webForumDet fria alternativet

UNIX LDAP med ADSI

ASP

4 svar · 189 visningar · startad av roxpace

Medlem sedan juli 200181 inlägg
Frågan#1

Hej,

Skulle någon vilja tala om för mig hur ni har implementerat en metod för att införa och tillgå information från en UNIX LDAP server genom ADSI med vbscript ?

Ge inget exempel på Exchange LDAP genom ADSI, det skiljer sig mycket.

Jag har en metod redan som fungerar hyffsat, men vill helst få mycket bättre funktioner, som exempelvis en sökfunktion i LDAP frågan.

Tack på förhand :)

Medlem sedan dec. 19996 721 inlägg
#2

Fungerar det inte med ADOs metoder? Jag har aldrig provat mot en extern LDAP, så jag vet inte.

Medlem sedan juli 200181 inlägg
#3

Nej absolut inte. Eller det kanske finns någon UNIX LDAP som är ADO kompatibel, det vet jag inte...

Men de jag har provat på fungerar absolut inte för att de arbetar enbart efter standard LDAP och ingen SQL syntax osv. :/

Medlem sedan dec. 19996 721 inlägg
#4

I princip borde det ju vara ADO-providern som gör en LDAP-query av SQL-frågan, även när man kör mot Exchange.

Hur långt har du kommit, och hur?

Medlem sedan juli 200181 inlägg
#5

Jag har fått det att fungera dock utan ADO eller med sökkriterier :(

Detta är min kod hittills:

<%
Dim choice
Dim ldapServerName
ldapServerName="LDAP://ldap.server.se/dc=se/dc=something";
Dim myCont, list
Set myCont = GetObject(ldapServerName)

With (Response)
.Write ("<TABLE BORDER=0 WIDTH=100% >")
.Write ("<TR BGCOLOR=#C0C0C0><TH>Användarnamn:</TH>")
.Write ("<TH>Förnamn</TH>")
.Write ("<TH>Efternamn</TH>")
.Write ("<TH>Avdelning</TH>")
.Write ("<TH>EPost</TH>")
.Write ("<TH>Telefon</TH>")
.Write ("<TH>Mobil</TH>")
End With

On Error Resume Next

For Each obj in myCont
ThisPath = ldapServerName & "/" & obj.Name
Set ThisObj = GetObject(ThisPath)

cCN = ThisObj.uid
givenName = ThisObj.givenName
cMail = ThisObj.mail
cSN = ThisObj.sn
cPhone = ThisObj.telephoneNumber
cMobile = ThisObj.mobile
cDep = ThisObj.ou

If ((NOT cPhone = "") OR (NOT cMobile = "")) Then
With (Response)
.Write ("<TR><TD>")
.Write (cCN & "</TD><TD>")
.Write (givenName & "</TD><TD>")
.Write (cSN & "</TD><TD>")
.Write (cDep & "</TD><TD>")
.Write (cMail & "</TD><TD>")
.Write (cPhone & "</TD><TD>")
.Write (cMobile & "</TD>")
.Write ("</TR>")
End With
End If
Next

Response.Write ("</TABLE>")
%>

Denna fungerar helt perfekt, jag har även modifierat den vidare så att jag kan sortera arrayen i många olika dimensioner. Och att man kan enbart få ut det man vill ha, men det är fel väg att gå, det kan tynga ner webbservern lite för mycket om det är många ldap poster. :q

[Redigerat av roxpace den 30 jul 2001]

262 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
136 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)