Функция изменения пароля пользователя на удаленном компьютере
Function FnSetPass(strHost, strUser, strNewPass, strAdmin, strAdminPass)

?Функция возвращает True в случае успешной смены пароля на целевом 
?компьютере или False, если не удалось установить ADSI-соединение или
?недостаточно прав для смены пароля. 
?Параметры: strHost — имя или IP-адрес целевого компьютера,
?strUser, strNewPass — имя пользователя и новый пароль,
?strAdmin, strAdminPass — реквизиты учетной записи локального администратора
?на целевом компьютере.

const intTimeOut = 15 ?Тайм-аут в секундах
Dim oShell, oScript

Set oShell =  CreateObject(«Wscript.Shell»)
Set oScript = oShell.Exec(«wscript.exe setpass.vbs « & strHost & « « & _
              strUser & « « & strNewPass & « « & strAdmin & « « & strAdminPass)
i =0
Do While (oScript.Status = 0) And (i < intTimeOut)
  i = i + 1
  Wscript.Sleep 1000
Loop
If oScript.Status = 0 Then
  oScript.Terminate
  FnSetPass = False
Else
  FnSetPass = (oScript.ExitCode = 0)
End If
End Function