quarta-feira, dezembro 12, 2018
Home » Programação/ Scripts » VBS – Script para alterar senha de computadores e exportando pro Excel

VBS – Script para alterar senha de computadores e exportando pro Excel

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”
Espero que seja útil.
até a próxima

Sobre Diego Duarte

Diego Duarte atua como coordenador de suporte, é apaixonado por TI e arranha um violãozinho nos finais de semana

Gostou do conteúdo? Deixe seu comentário