Creare Account Locali amministrativi da Dominio

Oggi dovevo risolvere un problema che consisteva nel creare nel modo più veloce possibile 30 account locali su altrettanti PC messi in un dominio per consentire ai docenti di installare quello che volevano. Dare la password di amministratore di dominio era chiaramente cosa da "brividi"!

Ho quindi cercato e scovato in rete un ottimo script da eseguire dalla macchina controller di dominio con chiaramente account di amministratore. Basta creare un file di testo di nome Workstations.TXT contenente, uno per riga i nomi dei PC (docente00, pcnum01, pcnum02, etc....) e immettere direttamente nello script, il nome utente da creare e la password scelta. Lo script creerà l'utente, lo inserirà nel gruppo Administrators locali e per accedere basterà digitare pcnum01\$utentescelto$ e la relativa $password$

' This is a script to add local user accounts and add them to the local admin group 
on error resume next 
 
Set objNet = WScript.CreateObject( "WScript.Network" ) 
 
Const FOR_READING = 1 
 
strFilename = "c:\scripts\workstations.txt" 
 
strUser = "utentescelto" 
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
 
Set objTextStream = objFSO.OpenTextFile(strFilename, FOR_READING) 
 
 
 
Do Until objTextStream.AtEndOfStream 
    ' Create user 
    strComputer = objTextStream.ReadLine 
    Set colAccounts = GetObject("WinNT://" & strComputer & "") 
    Set objUser = colAccounts.Create("user", strUser) 
    objUser.SetPassword "password" 
    objUser.SetInfo 
    Wscript.Echo "Added user " & strUser & " to " & strComputer 
    ' add user to admin group 
    Set objLocalUser = GetObject("WinNT://" & strComputer & "/" & strUser) 
    Set objLocalAdmGroup = GetObject("WinNT://" & strComputer & "/Administrators,group") 
    objLocalAdmGroup.Add(objLocalUser.AdsPath) 
    Wscript.Echo "Added user " & strUser & " to " & strComputer & "'s local admin group" 
Loop 

In pochi secondi l'operazione ha dato il risultato voluto. Consiglio di togliere la riga "on error resume next" in modo da vedere eventuali errori di esecuzione. Copiare il contenuto quindi salvarlo come CreaUtentiLocali.VBS

Buon lavoro!