Visto l'interesse attorno al primo script su ADSI, in questo numero proponiamo qualcosa di più avanzato.
Questa volta creeremo uno script in grado di aggiungere un utente ad un dominio NT, impostando anche una password.

L'esempio funziona sia con NT4 che con Windows 2000, naturalmente anche come script WSH.
Nel caso di un utilizzo su NT4 bisogna installare ADSI, ma soprattutto fare in modo che lo script giri nel contesto dell'utente administrator.

<%

strDominio ="ASPItalia"
strUser ="TEST"
strWorkGroup = "WEB"

' CREO L'UTENTE
Set objDomain = GetObject("WinNT://" & strDominio)
Set objUser = objDomain.Create ("User", strUser)
objUser.SetInfo
objUser.SetPassword ( "indovinala" )
Set objUser = nothing

'AGGIUNGO AL WORKGROUP
Set objGroup = objDomain.GetObject("Group", strWorkGroup)
objGroup.Add ("WinNT://" & strDominio & "/" & strUser)
objGroup.SetInfo
Set objGroup = nothing
Set objDomain = nothing

%>

Per maggiori informazioni su ADSI si veda
https://www.aspitalia.com/articoli/ADSI.asp