Как с помощью VBS скрипта определить состояние (вкл/выкл) учётной записи пользователя в домене.

  1. Создаём пустой документ «Find user status AD.vbs»
  2. Пишем туда следующий код
    Function IsAccountDisabled( strDomain, strAccount )
        Dim objUser
        Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount & ",user")
        IsAccountDisabled = objUser.AccountDisabled
    End Function 
    
    Dim strUser, strDomain
    Do
        strUsr = inputbox("Please enter the user account name", "Input")
    loop until strUsr <> ""
    
    ' Request the domain name for this user
    do
        strDom = inputbox("Please enter the domain for this account.", "Input")
    loop until strDom <> ""
    
    
    If( IsAccountDisabled( strDom, strUsr ) = True ) Then
        WScript.Echo "Account disabled"
    Else
        WScript.Echo "Account enabled"
    End If
    
  3. Сохраняем и запускаем для проверки.
  4. vbs find user AD status
    Вводим логин пользователя в AD.
  5. vbs find user AD status
    Указываем свой домен. Например domain.ru
  6. vbs find user AD status
    Сообщение «Account enabled» говорит что УЗ включена. Если появляется сообщение «Account disabled» — УЗ выключена.

124