Листинг 4

Файл setpass.vbs

?Вызов из командной строки (все параметры вводятся в одной строке):
?setpass.vbs <Компьютер> <Пользователь> <Пароль пользователя> <Администратор>
?<Пароль администратора>
Option Explicit
const ADS_SECURE_AUTHENTICATION = &h01
Dim oArgs, oUser
Dim strComputer, strUser, strNewPass, strAdmin, strAdminPass
On Error Resume Next 
Set oArgs = WScript.Arguments
If oArgs.Count <> 5 Then Wscript.Quit (9) ?Неверное число аргументов
strComputer = oArgs(0)
strUser = oArgs(1)
strNewPass = oArgs(2)
strAdmin = oArgs(3)
strAdminPass = oArgs(4)
 Set oUser = GetObject(«WinNT:»).OpenDSObject(«WinNT://» & strComputer & _
            «/» & strUser, strAdmin, strAdminPass, ADS_SECURE_AUTHENTICATION)
If Err.Number <> 0 Then Wscript.Quit (2) ?Ошибка ADSI-соединения
oUser.SetPassword strNewPass
If Err.Number <> 0 Then Wscript.Quit (1) ?Недостаточно прав для изменения пароля
Wscript.Quit (0) ?Успешное завершение