Листинг 6

Файл lmauth.vbs

?Вызов из командной строки:
?lmauth.vbs <Компьютер> <Администратор> <Пароль администратора>
Option Explicit
Const HKEY_LOCAL_MACHINE = &H80000002
Const keyLSA = «SYSTEMCurrentControlSetControlLsa»
Dim oArgs
Dim oLocator, oService, oLrc
On Error Resume Next 
Set oArgs = WScript.Arguments
If oArgs.Count <> 3 Then Wscript.Quit (9) ?Неверное число аргументов
Set oLocator = CreateObject(«WbemScripting.SWbemLocator»)
Set oService = oLocator.ConnectServer(oArgs(0),»ROOTDEFAULT», _
                                      oArgs(1), oArgs(2)) 
If Err.Number <> 0 Then Wscript.Quit (1) ?Ошибка WMI-соединения
set oLrc=oService.Get(«StdRegprov»)
If Err.Number <> 0 Then Wscript.Quit (1)
oLrc.setDWORDValue HKEY_LOCAL_MACHINE, keyLSA, «lmcompatibilitylevel», «5»
If Err.Number <> 0 Then Wscript.Quit (2) ?Недостаточно прав на запись в реестр
Wscript.Quit (0) ?Успешное завершение