Home All Groups Group Topic Archive Search About

Accessing LDAP through VB

Author
18 Jul 2006 8:04 AM
Pixaar
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!

Author
20 Jul 2006 3:50 PM
Travis Sharpe
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!
>