Heute mal wieder was für die Tutorial Ecke meiner Homepage. Da ich derzeit am Redesign des Intranets meiner Firma arbeite wollte ich dabei auch ein wenig mehr Benutzerkomfort integrieren. Dazu soll zum einen eine automatische Identifizierung des Benutzers anhand seiner Windows UserId erfolgen. Was zum beispiel auch für das autmatische ausfüllen von Formularen genutzt werden soll. Müsste unter Windows doch eigentlich kein Problem sein dachte ich mir… in Verbindung mit ASP, LDAP und Active Directory … und ist es auch nicht. Hier nun ein Script mit dem es bei mir wunderbar funktioniert, es sind natürlichalle weiteren Werte des AD ebenfalls auslesbar.

<%
Dim objCommand, objConnection, strBase, strFilter, strAttributes
Dim strQuery, objRecordset, sFullUser , sUser, strDomain’##### Hier den LDAP Basispfad angeben
‘##### Beispiel: mydomain.com, Domänencotroller: myserver
‘##### strBase = “<LDAP://myserver/dc=mydomain,dc=com>”
strBase = ““

‘##### Hier den Domain Namen (im Netbios Format) angeben (dieser wird später aus dem Benutzernamen extrahiert)
‘##### Beispiel: strDomain = “MYDOMAIN”
strDomain = “”

‘##### Ab hier beginnt die Verarbeitung
If Request(”REMOTE_USER”) = “” Then
Response.Status = “401 Unauthorized”
elseif request(”REMOTE_USER”) <> “” then
username = Request.Servervariables(”REMOTE_USER”)
end if

sFullUser=Request.Servervariables(”REMOTE_USER”)
sUser=REPLACE (sFullUser, strDomain & “\”, “”)

Set objCommand = CreateObject(”ADODB.Command”)
Set objConnection = CreateObject(”ADODB.Connection”)
objConnection.Provider = “ADsDSOObject”
objConnection.Open “Active Directory Provider”
objCommand.ActiveConnection = objConnection
strFilter = “(&(objectCategory=person)(objectClass=user)(sAMAccountName=” & sUser & “))”
strAttributes = “sAMAccountName,cn,telephoneNumber,streetAddress,l,st,postalCode,mail”

strQuery = strBase & “;” & strFilter & “;” & strAttributes & “;subtree”
objCommand.CommandText = strQuery
objCommand.Properties(”Size Limit”) = 1
Set objRecordSet = objCommand.Execute

Do Until objRecordSet.EOFResponse.Write “Benutzer: ” & objRecordSet.Fields(”cn”).value & ” (” & objRecordSet.Fields(”sAMAccountName”).value & “) - ” & objRecordSet.Fields(”mail”).value & ”
”
objRecordSet.MoveNext
Loop
objConnection.Close
%>

Hinterlasse einen Kommentar