ASP <-> LDAP

[Fabian Baum]

Hi,

i have a problem in the following source code, i cant read the department
from the AD ;(
where is my mistake?

Dim strBrowser 'Brausertyp

If Request.ServerV ariables("LOGON _USER") = "" Then
Response.Status = "401 Unauthorized"
Response.End
End If

Dim strUserADsPath 'ADSI user ads path
Dim objUser 'ADSI user object
Dim strADSPath 'ADS path

Dim strUserID 'User Name
Dim strUserDomain 'User Domain
Dim intSlash 'Hilfsvariable zum trennen von Domain und User
Dim strSpath 'Suchpfad im AD

Dim rs 'ADODB Recordset
Dim con 'Handle zur ADODB Verbindung
Dim ocommand 'ADODB Query Command

Dim strVorname
Dim strNachname
Dim strEmail
Dim strKostenstelle

strUserAdsPath = Request.ServerV ariables("LOGON _USER")

intSlash = instr(1,strUser AdsPath,"\")

strUserDomain = mid(strUserAdsP ath,1,intSlash -1 )
strUserID = mid(strUserAdsP ath,intSlash + 1 ,(len(strUserAd sPath)))
strSpath = "LDAP://dc=" & strUserDomain & ",dc=domain,dc= com"
'ADO Connection object
Set con = CreateObject("A DODB.Connection ")
con.Provider = "ADsDSOObje ct"
con.Open "Active Directory Provider"

'ADO Command object
Set ocommand = CreateObject("A DODB.Command")
ocommand.Active Connection = con
ocommand.Comman dText = "<" & strSpath &
">;(&(objectCat egory=person)(o bjectClass=user )(givenName=Fab ian)(sn=Baum)); a
dsPath,name,ou; subTree"

Set rs = ocommand.Execut e
Do While Not(rs.EOF)

' Connecten zum User im AD
strUserADsPath = rs.Fields(0).va lue

set objUser = GetObject(strUs erADsPath)

strVorname = objUser.givenNa me
strNachname = objUser.sn
strEmail = objUser.mail
strKostenstelle = objUser.descrip tion
strNTUser = objUser.cn
strAbteilung = objUser.departm ent

Response.Write "<br>SN: " & objUser.departm ent

rs.MoveNext
loop
Set objUser = Nothing

set con = Nothing
set ocommand = Nothing