Este script VBS lhe permitirá mudar a senha do administrador local nas máquinas contidos em um arquivo de texto chamado MachineList.Txt. O script irá solicitar a senha de uma caixa de diálogo de entrada ao invés de codificar a senha. O script, então, escrever o nome da máquina e se ou não a senha foi alterada com sucesso para uma planilha excel.
Vamos ao Script:
Abra arquivo no bloco de notas, coloque o conteúdo abaixo e salve com extensão .vbs
strNewPassword = InputBox (“Insira Nova Senha”)
Set objExcel = CreateObject(“Excel.Application”)
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2
objExcel.Cells(1, 1).Value = “Nome da Máquina”
objExcel.Cells(1, 2).Value = “Senha alterada”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objTextFile = objFSO.OpenTextFile(“MachineList.Txt”)
Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.ReadLine
On Error Resume Next
Set objUser = getobject(“WinNT://” & strComputer & “/Administrator,User”)
objUser.SetPassword strNewPassword
objUser.SetInfo
objExcel.Cells(intRow, 1).Value = UCase(strComputer)
If Err.Number <> 0 Then
objExcel.Cells(intRow, 2).Value = “No”
Err.Clear
Else
objExcel.Cells(intRow, 2).Value = “Yes”
End If
intRow = intRow + 1
Loop
objExcel.Range(“A1:B1”).Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 11
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit
MsgBox “Done”
Set objExcel = CreateObject(“Excel.Application”)
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2
objExcel.Cells(1, 1).Value = “Nome da Máquina”
objExcel.Cells(1, 2).Value = “Senha alterada”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objTextFile = objFSO.OpenTextFile(“MachineList.Txt”)
Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.ReadLine
On Error Resume Next
Set objUser = getobject(“WinNT://” & strComputer & “/Administrator,User”)
objUser.SetPassword strNewPassword
objUser.SetInfo
objExcel.Cells(intRow, 1).Value = UCase(strComputer)
If Err.Number <> 0 Then
objExcel.Cells(intRow, 2).Value = “No”
Err.Clear
Else
objExcel.Cells(intRow, 2).Value = “Yes”
End If
intRow = intRow + 1
Loop
objExcel.Range(“A1:B1”).Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 11
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit
MsgBox “Done”
até a próxima
