1

Тема: VBScript: список disabled-компьютеров в домене

Автор скрипта - alexii.
Скрипт выводит список компьютеров в домене, которые находятся в состоянии "disabled", в указанном подразделении (подразделение просматривается со всеми вложенными).

Option Explicit

Const ADS_SCOPE_SUBTREE = 2
Const ADS_UF_ACCOUNTDISABLE = 2

Dim objConnection
Dim objCommand
Dim objRecordSet


Set objConnection = WScript.CreateObject("ADODB.Connection")
Set objCommand    = WScript.CreateObject("ADODB.Command")

objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection

objCommand.CommandText = _
    "SELECT Name, distinguishedName, userAccountControl " & _
    "FROM 'LDAP://OU=MyOU,DC=MyDomain,DC=ru' " & _
    "WHERE objectClass='computer'" 'WHERE objectCategory='computer'
    
objCommand.Properties("Page Size")   = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

Set objRecordSet = objCommand.Execute

With objRecordSet
    .MoveFirst
    
    Do Until .EOF
        If .Fields("userAccountControl") AND ADS_UF_ACCOUNTDISABLE Then
            WScript.Echo "[" & .Fields("distinguishedName") & "] is disabled"
        End If
        
        .MoveNext
    Loop
End With

WScript.Quit 0

В строке

FROM 'LDAP://OU=MyOU,DC=MyDomain,DC=ru'

замените имя домена и подразделения на свои данные.

Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.