Смена пароля локального администратора на компьютерах в домене.

Для безопасности ИТ инфраструктуры, следует установить пароли на учетные записи локального администратора на все рабочие компьютеры домена.

Для этого создаем групповую политику и в Starup Scripts добавляем следующий скрипт:





On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_UserAccount Where LocalAccount = True")
For Each objItem in colItems
If Left (objItem.SID, 6) = "S-1-5-" and Right(objItem.SID, 4) = "-500" Then
Set objUser = GetObject("WinNT://" & strComputer & "/" & objItem.name & ",user")
objUser.SetPassword "new_password"
objUser.SetInfo
End If
Next

Меняем new_password на нужный нам сложный пароль.

Успехов!