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