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