[amel27]

понятно - на 2003-й WMIC генерит в конце пустую строку, которая сбрасывает значение переменной UserDisabled (исправил), я тестил на XP - там этой строки не было и скрипт работал как задумано

[hse2000]

Вот сварганил на проверку учетки VBS

Код:

Dim objUser, objShell, objWSNet, strComputerName
Dim blnStatus
Const ComputerName = "."

strUser = InputBox("Имя управляемой записи:", "Включение (выключение) учётной записи")
If Len(strUser) > 0 Then
    On Error Resume Next
    Set objWSNet = CreateObject("WScript.Network")
       Set objWSNet = Nothing
    Set objUser = GetObject("WinNT://" & ComputerName & "/" & strUser & ",user")
    If Err.Number = 0 Then
        Set objShell = CreateObject("WScript.Shell")
        blnStatus = objUser.AccountDisabled
        If blnStatus Then
            'Запись отключена
            objShell.Run "c:\2.bat"
        Else
            'Запись включена
            objShell.Run "c:\1.bat"
        End If
    Set objUser = Nothing
End If
WScript.Quit 0
end if