Tip 002 : 透過 VBScript 控制 ADSI

dsRoot = "WinNT://domain/userid"
set wshShell = Wscript.CreateObject("Wscript.Shell")
set dsObj = GetObject(dsRoot)
For Each Prop In dsobj.groups
    wshshell.popup Prop.Name
Next 'Prop

set user = GetObject("WinNT://domain/user")
     User.FullName = FirstNameVar
     User.HomeDirectory = UserHome
     User.Profile = "\Server\Share\user"
     User.LoginScript = LogonScript
     User.Description = "Description"

     User.setinfo

Using ADSI you can do the following...
Dim adsNS, adsDomain
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set adsNS = GetObject("WinNT:")
adsNS.Filter = Array("domain")
For Each adsDomain In adsNS
WSHShell.popup adsDomain.ADsPath
Next 'adsDomain

On Error Resume Next
strUser="UserID"
Set oDomain = GetObject("WinNT://YourDomain")
Set oUser = oDomain.Create ("user", strUser)
If (err.number = 0) Then 'If not 0 then user ID already exists
    oUser.SetInfo
oUser.SetPassword "mypassword"
oUser.SetInfo
End If

StrGroup="NewGroupName"
Set oDomain = GetObject("WinNT://YourDomain")
Set oGroup = oDomain.Create ("group", strGroup)
OGroup.SetInfo

Ok , 有關

ADSI User Group
http://www.15seconds.com/focus/ADSI.htm
Understanding ADSI
http://www.15seconds.com/Issue/980304.htm
Configuring NTLM with ADSI
http://www.15seconds.com/Issue/980318.htm