Код:

' VBScript source code
Const ADS_SCOPE_SUBTREE = 2

Dim objConnection
Dim objCommand
Dim objRecordset

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand    = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "мой.домен.local"

Set fso = CreateObject("Scripting.FileSystemObject")
Set objCommand.ActiveConnection = objConnection

objCommand.CommandText = "Select HomeDirectory, Description, DisplayName, Mail, Title, Department, Company, " & _
    " TelephoneNumber, FacsimileTelephoneNumber, WWWHomePage" & _
    " from 'LDAP://DC=airmg,DC=local' " & _
    " Where objectClass='user' and objectClass='person' and objectClass <> 'computer'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    IF Not IsNull(objRecordSet.Fields("Company").Value) Then
	WScript.Echo objRecordSet.Fields("Description").Value
    End If
    objRecordSet.MoveNext
Loop