Change local administrator account password

The script below changes the local administrator account for the PCs in Computers.txt and logs success to one log file, failure to another, and a third with the list of PCs that were registered as failures so that you can use that list to run the script again at a different time after fixing the errors. Some errors are ping failures and these obviously will be PCs that are not on the network. You will need to change the directories in the script or create the directory structure for this script to work. Note: When you run this you will need to be using an account that has administrative access to the PCs. I used my account that is in a group that is setup to be an administrator on all PCs.

On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Shares\Scripts\ChangeAdminPW\Computers.txt", 1) Set fsoLog = CreateObject("Scripting.FileSystemObject") Set objLog = fsoLog.OpenTextFile("C:\Shares\Scripts\ChangeAdminPW\" & Year(now) & Month(now) & Day(now) & " - " & Hour(now) & Minute(now) & ".log", 2, True) Set objLog2 = fsoLog.OpenTextFile("C:\Shares\Scripts\ChangeAdminPW\" & Year(now) & Month(now) & Day(now) & " - " & Hour(now) & Minute(now) & "Failed.log", 2, True) Set objLog3 = fsoLog.OpenTextFile("C:\Shares\Scripts\ChangeAdminPW\" & Year(now) & Month(now) & Day(now) & " - " & Hour(now) & Minute(now) & "FailedPCs.log", 2, True) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine strComputer = strLine Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd /c ping -n 1 -w 1000 " & strComputer & " >" & "C:\Shares\Scripts\ChangeAdminPW\objTempFile", 0, True Set objTextFile = objFSO.OpenTextFile("C:\Shares\Scripts\ChangeAdminPW\objTempFile", 1) i=i+1 strFailedPing = "" strSuccess="No" Do While objTextFile.AtEndOfStream <> True strText = objTextFile.ReadLine strFailedPing = strFailedPing & strtext If Instr(strText, "Reply") > 0 Then objLog.WriteLine("****************") objLog.WriteLine(i & ": Successful ping to " & strComputer) strSuccess="Yes" End If Loop If strSuccess = "No" Then objLog2.WriteLine("****************") objLog2.WriteLine(i & ": " & strComputer) objLog2.WriteLine("ERROR: " & strFailedPing) objLog2.WriteLine("****************") objLog3.WriteLine strComputer End if If strSuccess = "Yes" Then Set objUser = GetObject("WinNT://" & strComputer & "/administrator") err.clear objUser.SetPassword("YourPasswordHere") Select Case Err.number Case 0 objLog.WriteLine "Password Changed Successfully" Case -2147022651 objLog2.WriteLine(i & ": " & strComputer) objLog2.WriteLine "ERROR: Password Not Changed!" & "An Error occurred, Please try again." & "The specific Error number Is:" & err.number & " - " & err.description & "The error message is: The password does not meet the password policy requirements. Check the minimum password length, password complexity and password history requirements." objLog.WriteLine "Password Change Failed for " & strComputer objLog3.WriteLine strComputer Case Else objLog2.WriteLine(i & ": " & strComputer) objLog2.WriteLine "ERROR: Password Not Changed!" & "An error occurred, Please try again." & "The specific error number is:" & err.number & " - " & err.description & " - If no specific error description appears then a specific error message is not available via the err object." objLog.WriteLine "Password Change Failed for " & strComputer objLog3.WriteLine strComputer End Select objLog.WriteLine("****************") err.clear End If Loop