VB创建、修改、删除WIN2K用户

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