Creare un utente ed impostarne la password con ADSI

di Daniele Bochicchio, in Classic ASP, ADSI,

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

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi