|
web
newsgroups
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
Accessing LDAP through VBI am new to VB and really new to LDAP I am trying to write an application for our lunch card system...where a student's card is read by a barcode reader and the information (a string) is sent to the LDAP and some attribute value is accessed. here's the BaseDN:- ou=test1,dc=ky,dc=local LDAP server:- ldapone.ky.local I have the userDN and Password!... I would like to know the syntax for bindin and R/W to a specific attribute!...... i tried to make the connection using the following but it's not working!.. Dim con Dim command Dim rs Dim dso Dim cont Dim path Dim user AdsPath = "LDAP://ldapone.ky.local/ou=Students,ou=test1,dc=ky,dc=local" Set con = CreateObject("ADODB.Connection") con.Provider = "ADsDSOObject" con.Properties("User ID") = "uid=test2admin,ou=adminuser,dc=ky,dc=local" con.Properties("Password") = "password" con.Properties("ADSI Flag") = "34" con.Open "ADSI" Set com = CreateObject("ADODB.Command") Set com.ActiveConnection = con com.CommandText = "<" & LDAP: /ldapone.ky.local/ou=Students,ou=test1,dc=ky,dc=local & ">;(uid="& kt40627 & " );Adspath,cn,SavoniaStudentCard,SavoniaLastLunch;s ubtree" Set rs = com.Execute may i get some help working things out here? thank you very much! Are you writing this application in VBScript or VB.Net and/or which version?
Pixaar wrote: Show quoteHide quote > hello.. > I am new to VB and really new to LDAP > > I am trying to write an application for our lunch card system...where a > student's card is read by a barcode reader and the information (a > string) is sent to the LDAP and some attribute value is accessed. > > here's the BaseDN:- ou=test1,dc=ky,dc=local > LDAP server:- ldapone.ky.local > > I have the userDN and Password!... > I would like to know the syntax for bindin and R/W to a specific > attribute!...... i tried to make the connection using the following but > it's not working!.. > > Dim con > Dim command > Dim rs > Dim dso > Dim cont > Dim path > Dim user > > AdsPath = "LDAP://ldapone.ky.local/ou=Students,ou=test1,dc=ky,dc=local" > Set con = CreateObject("ADODB.Connection") > con.Provider = "ADsDSOObject" > con.Properties("User ID") = > "uid=test2admin,ou=adminuser,dc=ky,dc=local" > con.Properties("Password") = "password" > con.Properties("ADSI Flag") = "34" > > con.Open "ADSI" > > Set com = CreateObject("ADODB.Command") > Set com.ActiveConnection = con > > > > > com.CommandText = "<" & LDAP: > /ldapone.ky.local/ou=Students,ou=test1,dc=ky,dc=local & ">;(uid="& > kt40627 & " );Adspath,cn,SavoniaStudentCard,SavoniaLastLunch;s > ubtree" > > > > Set rs = com.Execute > > > may i get some help working things out here? > thank you very much! > |
|||||||||||||||||||||||