On Mon, 04 Oct 2004 16:55:38 GMT, "Jim Bunton"
<jBunton@BlueYonder.co.uk> wrote:
[color=blue]
>Hm! - am I doing something obsurdly stupid?
>Or ???
>This all works until
> .Groups("Users").Users.Append UsrNew
>=======================
>With WkSpace
> Set UsrNew = .CreateUser("aNewUser", "123456", "Pwd")
> .Users.Append UsrNew
> .Users.Refresh
> .Groups.Refresh
> .Groups("Users").Users.Refresh
> Set UsrNew = .Users("aNewUser")
> MsgBox UsrNew.Name & " - " & .Groups("Users").Name
> .Groups("Users").Users.Append UsrNew
> 'AHHHH - Error
> 'Err 3219 - Invalid operation
> 'Mystified
>End with
>
>
>--
>Jim Bunton
>jBunton@Blueyonder.co.uk[/color]
Hi
Try
With WkSpace
Set UsrNew = .Groups("Users").CreateUser("aNewUser", "123456",
"Pwd")
.Users.Append UsrNew
.Users.Refresh
End With
David
[color=blue]
>
>---
>Outgoing mail is certified Virus Free.
>Checked by AVG anti-virus system (
http://www.grisoft.com).
>Version: 6.0.771 / Virus Database: 518 - Release Date: 28/09/2004
>
>[/color]
