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

2026-03-23
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