Заметка для себя
Excel это мега инструмент администратора:
* выгружаем список компов в одну колонку
* заполняем вторую колонку паролями (или паролем)
* пишем VBA код вроде такого:
Private Sub CommandButton1_Click ()
intRow = 2
Do
If Cells (intRow, 1).Value = "" Then
Exit Do
End If
strComputer = Cells (intRow, 1).Value
On Error Resume Next
Set objUser = GetObject («WinNT://» & strComputer & «/Administrator,User»)
If Err.Number 0 Then
Cells (intRow, 3).Value = «No»
Cells (intRow, 4).Value = Err.Description
intRow = intRow + 1
End If
strNewPassword = Cells (intRow, 2).Value
objUser.SetPassword strNewPassword
objUser.SetInfo
If Err.Number 0 Then
Cells (intRow, 3).Value = «No»
Cells (intRow, 4).Value = Err.Description
Err.Clear
Else
Cells (intRow, 3).Value = «Yes»
Cells (intRow, 4).Value = ""
End If
intRow = intRow + 1
Loop
End Sub
и получаем готовый sheet со статусами где сменился пароль и на какой.
Пишем дату, распечатываем и в сейф.