PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Active Directory via LDAP auslesen

urs
13.04.2004, 15:51
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.

Könnt ihr mir helfen?

Danke im voraus,
urs


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://IPADRESSE' 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>

cYrus
13.04.2004, 19:28
du hast aber schon die "IPADRESSE" angepasst?
urs
14.04.2004, 16:07
IPADRESSE steht nur als Platzhalter für dir richtige IP Adresse, welche ich nicht im Forum veröffentlichen möchte.

Aber ja, im richtigen Source steht an dieser Stelle natürlich die IP Adresse.

gruss
urs
chakotey
13.05.2004, 11:34
HAST DU SCHON EINE LÖSUNG GEFUNDEN????

WENN JA KÖNNTEST SIE MIR SCHICKEN BZW. MIR TIPPS GEBEN?

mailto:webmaster@4body4mind.com

lg
Bernhard
god3000
14.09.2004, 12:29
hallo!

ich wollte das auch probieren mit dem auslesen von usern aus dem Active Directory, doch beim response.write kommt mir eine Fehlermeldung:


1

Antwortobjekt- Fehler 'ASP 0106 : 80020005'

Typ passt nicht

/public/asp/temp/test1.asp, line 0 Es wurde ein unbekannter Datentyp gefunden.

hier der code für die prozedur:
<%
'---------------------------------------------
'Connection
'---------------------------------------------
strlogon=split(Request.ServerVariables("LOGON_USER"),"\")
strvar=request.querystring("var")
struser=strlogon(1)
strusername = "hans"
'---------------------------------------------
' Variabeln initialisieren
'---------------------------------------------
Set rs = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=ADSDSOObject"
Conn.Open strConn
rs.Open "SELECT cn, ADsPath " & _
"FROM 'LDAP://DC=hans,DC=hans,DC=de' " & _
"WHERE objectCategory = 'user' " & _
"AND sAMAccountName = '" & strusername & "'", _
Conn

Response.Write(rs.RecordCount)

If Not rs.EOF Then


response.write rs.fields("cn")

else

response.write "error"
End If

rs.Close
Set rs = Nothing
Set Conn = Nothing
%>

weiß jemand wie man das richtig macht, ich kann einfach nichts auslesen lassen..
Cord Worthmann
14.09.2004, 23:46
versuche mal...

response.write CString(rs.fields("cn"))



grtz
chief
god3000
15.09.2004, 00:04
ok, danke werd ich versuchen!

geb bescheid!

danke, sebi
god3000
15.09.2004, 11:10
jetzt kommt das





Laufzeitfehler in Microsoft VBScript- Fehler '800a000d'

Typen unverträglich: 'CString' /public/asp/temp/test2.asp, line 27


versuche mal...

response.write CString(rs.fields("cn"))



grtz
chief