я сделал чере vbe, меняю пароли Администратора
Код:
Option Explicit
Dim objComputer
Dim objUser
Dim strComputer
Dim strUser
Dim strpass
Dim objSysInfo
Dim arrFULLNAME
Dim arrCN
Set objSysInfo = CreateObject("ADSystemInfo")
strComputer = objSysInfo.ComputerName
arrFULLNAME = Split(strComputer, ",")
arrCN = Split(arrFULLNAME(0), "=")
strComputer = arrCN(1)
strUser="Администратор"
strpass="тут_пароль"
set objUser = GetObject("WinNT://" & strComputer & "/" & strUser)
objUser.Description = "пароль изменен при помощи скрипта"
objUser.SetPassword strpass
objUser.SetInfo
все это закодировал через Windows Script Encoder и запихал через политику в Автозагрузку.
