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

原文转自：http://www.ltesting.net