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