ScriptsVBS & VBA

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

122 views
Nenhum comentário
5
(1)

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

O que você achou disso?

Média da classificação 5 / 5. Número de votos: 1

Nenhum voto até agora! Seja o primeiro a avaliar este post.

Como você achou esse post útil...

Ajude o site a crescer compartilhando o conteúdo

Lamentamos que este post não tenha sido útil para você!

Vamos melhorar este post!

Diga-nos, como podemos melhorar este post?

Tags: ,

Artigos Relacionados

Gostou do conteúdo? Deixe seu comentário

Veja também

Menu