Accessing LDAP through VB

[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!

[Travis Sharpe]

Are you writing this application in VBScript or VB.Net and/or which version?

Pixaar wrote:

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!