VBScript: установка пароля локального Администратора

Данный скрипт будет полезен для смены пароля локального Администратора на компьютерах в домене. Поскольку аккаунт идентифицируется с помощью SID, код будет работать для любых локализаций Windows.

SET WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName
SET objSystem = GetObject("winmgmts://" & strComputer & "/root/cimv2").ExecQuery("Select * from Win32_UserAccount WHERE Domain = '" & strComputer & "'")
FOR EACH objUser IN objSystem
 IF Left(objUser.SID, 8) = "S-1-5-21" AND Right(objUser.SID, 3) = "500" THEN
  SET oSystem = GetObject("WinNT://" & strComputer)
  SET oUser = oSystem.GetObject("user", objUser.Name)
  oUser.SetPassword "NEW_PASSWORD"
  oUser.SetInfo
 END IF
NEXT

Скрипт успешно тестировался на всех версиях ОС Windows начиная с XP.