Как с помощью VBS скрипта определить состояние (вкл/выкл) учётной записи пользователя в домене.
- Создаём пустой документ «Find user status AD.vbs»
- Пишем туда следующий код
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
- Сохраняем и запускаем для проверки.
Вводим логин пользователя в AD.
Указываем свой домен. Например domain.ru
Сообщение «Account enabled» говорит что УЗ включена. Если появляется сообщение «Account disabled» — УЗ выключена.
Рейтинг:
/5 -
голосов
Комментарии ()