Change Local Administrator Password On All Computers In A List
Questo script permette di resettare/cambiare la password dell’account "Administrator" locale di tutti i computer specificati in un elenco.
Richiede in input soltanto un semplice file di testo (computers.txt) contenente i nomi (o gli indirizzi IP) dei PC sui quali effettuare il reset della password di "Administrator"; è possibile generare velocemente tale elenco utilizzando lo script “List All Computers And Users Within An OU And SubOUs“.
Come output vengono generati due files: "errors.txt" e "changepwd.txt". Il primo riporta gli errori di connessione e grazie al loro numero/descrizione sarà possibile distinguere i computer spenti o inesistenti da quelli che hanno negato l'accesso alle vostre credenziali utente, il secondo invece costituisce il risultato dell'esecuzione ed ha appunto lo scopo di mettere in evidenza i client sui quali invece il cambio password è avvenuto con successo.
Gestisce in maniera completamente autonoma le operazioni di scrittura dei risultati su file di testo, potete perciò eseguirlo indifferentemente con entrambi i motori WSH ("wscript.exe" oppure "cscript.exe") senza quindi dovervi preoccupare di reindirizzarne manualmente l'output.
La password che verrà impostata impostata è l'unica informazione da modificare nel codice sorgente, la trovate a riga 17: objAdmin.SetPassword "P@ssw0rd".
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | Set oFS = CreateObject("Scripting.FileSystemObject") Set oTS = oFS.OpenTextFile("computers.txt") Set oTSOut = oFS.CreateTextFile("errors.txt") Set ResultsFile = oFS.CreateTextFile("changedpwd.txt") TotErr = 0 'go through the text file Do Until oTS.AtEndOfStream 'get next computer strComputer = oTS.ReadLine On Error Resume Next Set objAdmin = GetObject("WinNT://" & strComputer & "/Administrator,user") If Err <> 0 Then TotErr = TotErr + 1 oTSOut.WriteLine "Error on " & strComputer & ":" & Err.Number & ", " & Err.Description Else objAdmin.SetPassword "P@ssw0rd" objAdmin.SetInfo If Err <> 0 Then TotErr = TotErr + 1 oTSOut.WriteLine "Error on " & strComputer & ":" & Err.Number & ", " & Err.Description Else ResultsFile.WriteLine("Administrator password changed on " & strComputer) End If End If Loop oTS.Close oTSOut.Close ResultsFile.Close If TotErr = 0 Then msgbox "Task completed with " & TotErr & " errors" Else msgbox "Task completed with " & TotErr & " errors" & Chr(10) & Chr(13) & "Please check the error log" End If |
Print This • Email this • Twit This! • Add to del.icio.us • Share on Facebook • Digg This! • Stumble It! • AddThis! • Share on Segnalo Alice • Share on OKNotizie
2 Marzo 2010 alle 13:07
grazie x il tuo script
4 Marzo 2010 alle 21:57
@ Luca
Prego :-)
14 Agosto 2010 alle 8:17
per cortesia aiuto. non riesco nemmeno a capire come fare il download dello script. ho cliccato sul link ma poi non si pare nulla.
che faccio? non ci capisco molto di queste cose.
sto usando il "guest" account. ora quando faccio partire il computer mi chiede una password. non sapevo nemmeno di averne una.
non posso fare nulla in guest account. nemmeno scaricarmi skype.
che faccio? aiutooooo
14 Agosto 2010 alle 9:17
@ michela
Questo script non ti aiuterà a risolvere il problema.
Il tuo sistema operativo è Windows XP? Prova ad avviare il computer in modalità provvisoria (premendo il tasto F8 prima che appaia la schermata di avvio con il logo di Windows XP) ed entra con l'utente "Administrator" (senza password) che dovrebbe apparire tra le varie scelte possibili.
Utilizzando questo account dovresti ora essere in grado di reimpostare la password di tutti gli altri utenti utilizzando l'interfaccia amministrativa che trovi in "pannelo di controllo->account utente"