Подскажите как сделать что он мог менять пароль нетолько в английской но и в русской винде. Может какой то цикл сделать...
Option Explicit
'On Error Resume Next
Dim strComputer
Dim objUser
strComputer = "имя_компа"
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user")
objUser.SetPassword "1q2w3e4r5t"
objUser.SetInfo