---
title: "UNIX LDAP med ADSI"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10843-unix-ldap-med-adsi"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "roxpace"
published: "2001-07-30T08:15:00.000Z"
updated: "2001-07-30T12:41:00.000Z"
replies: 4
views: 205
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/10843-unix-ldap-med-adsi"
---

# UNIX LDAP med ADSI

## #1 — roxpace, 2001-07-30T08:15Z

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 :)

Permalänk: https://www.webforum.nu/p/10843

## #2 — emission, 2001-07-30T09:47Z

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

Permalänk: https://www.webforum.nu/p/279172

## #3 — roxpace, 2001-07-30T11:37Z

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. :/

Permalänk: https://www.webforum.nu/p/279173

## #4 — emission, 2001-07-30T11:43Z

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?

Permalänk: https://www.webforum.nu/p/279174

## #5 — roxpace, 2001-07-30T12:41Z

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\]

Permalänk: https://www.webforum.nu/p/279175

---

Tråden på webben: https://www.webforum.nu/amne/asp/10843-unix-ldap-med-adsi