Hi zusammen,
ich habe ein Problem beim Auslesen des Active Directory via LDAP.
Das folgende Script sollte eigentlich Usernamen und zugehörige Pfadangaben auslesen. Jedoch gibt es keinen einzigen User aus. Eine Fehlermeldung erscheint nicht und die Ausgabe sieht auch so formatiert aus, wie ich diese eigentlich gerne hätte.
Was mache ich falsch? Könnt ihr mir helfen?
Danke im voraus,
Code:
Dim strQuery
'---------------------------------------------
'Connection
'---------------------------------------------
Dim objRstMain, objConMain
'---------------------------------------------
' Variabeln initialisieren
'---------------------------------------------
Set objRstMain = Server.CreateObject("ADODB.RecordSet")
Set objConMain = Server.CreateObject("ADODB.Connection")
objConMain = "Provider=ADSDSOObject"
strQuery = "SELECT cn, ADsPath FROM 'LDAP://192.168.1.1' WHERE objectCategory = 'user' ORDER BY cn"
%>
<html>
<head>
</head>
<body>
<table cellspacing=1 cellpadding=1 width=300 border=1 ID="Table1">
<%
objRstMain.Open strQuery, objConMain
Response.Write(objRstMain.RecordCount)
Do While Not objRstMain.EOF
%>
<tr>
<td><% =objRstMain.Fields("cn") %></td>
<td><% =objRstMain.Fields("ADsPath") %></td>
</tr>
<%
objRstMain.MoveNext
Loop
objRstMain.Close
Set objRstMain = Nothing
Set objConMain = Nothing
%>
</table>
</body>
</html>
