Set dom = GetObject("WinNT://aDomain")

Set usr = dom.Create("user","jsmith")

usr.SetInfo

Set grp = GetObject("WinNT://aDomain/group")

grp.Add ("WinNT://aDomain/jsmith")


注意

1.aDomain改为机器名

2.Win2k自带ADSI，并不需要安装Active Directory