VB創(chuàng)建、修改、刪除WIN2K用戶(hù)

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改為機(jī)器名
    2.Win2k自帶ADSI，并不需要安裝Active Directory