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!
