使用ADSI:

 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