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