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 "My Provider" 
 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set objCommand.ActiveConnection = objConnection 
 
objCommand.CommandText = "Select Description from 'LDAP://DC=airmg,DC 
=local' Where objectClass='user' and objectClass='person' and objectC 
l 
ass <> '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