Option Explicit
? Описываем используемые переменные.
Dim sUserName, sDomain, oUser, sValue
?Запускаем подпрограмму Help по запросу пользователя или если программе не было передано ни одного аргумента.
If WScript.Arguments.Count < 1 Then Call Help
If WScript.Arguments(0) = «/?» Then Call Help
? Присваиваем переменным значения.
sUserName = WScript.Arguments(0)
sDomain = WScript.Arguments(1)
sValue = WScript.Arguments(2)
? Подключаемся к объекту пользователя.
Set oUser = GetObject(«WinNT://» & sDomain & «/» & _
 sUserName & «,user»)
?Устанавливаем значение свойства AccountDisabled, записываем информацию и выводим отчет.
oUser.AccountDisabled = sValue
oUser.SetInfo
WScript.Echo «The operation is complete.»
Sub Help
WScript.Echo «disableuser username domainname true/false»
WScript.Echo «This script enables and disables user accounts.»
WScript.Echo «The first argument is the user name.»
WScript.Echo «The second argument is the domain name.»
WScript.Echo «The third argument is the value of AccountDisabled.»
WScript.Echo «Separate the arguments with a single space.»
WScript.Echo «To disable the account, type True.»
WScript.Echo «To enable, type False.»
WScript.Quit
End Sub

Поделитесь материалом с коллегами и друзьями