Function GetAdsProp(ByVal SearchField, ByVal SearchString, ByVal ReturnField)
    ' Get the domain string ("dc=domain, dc=local")
    
    Dim adoCommand, strDomain, objConnection

    strDomain = "Server/baseDN"
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"
        
    ' Connection
    Set adoCommand = CreateObject("ADODB.Command")
    adoCommand.ActiveConnection = objConnection

       ' Search the AD recursively, starting at root of the domain
    adoCommand.CommandText = _
        "<LDAP://" & strDomain & ">;(&(objectCategory=" & "User" & ")" & _
        "(" & SearchField & "=" & SearchString & "));" & SearchField & "," & ReturnField & ";subtree"

    ' RecordSet
    Dim objRecordSet
    Set objRecordSet = adoCommand.Execute
         
    
    If objRecordSet.RecordCount = 0 Then
        GetAdsProp = "not found"  ' no records returned
    Else
        GetAdsProp = objRecordSet.Fields(ReturnField) ' return value
    End If
     
    ' Close connection
    objConnection.Close
    
    ' Cleanup
    Set objRecordSet = Nothing
    Set objCommand = Nothing
    Set objConnection = Nothing
End Function