<%@ Language="VBScript" %> <% Public Function GetUserInfo() on error resume next 'Ermitteln des Benutzernamens strUser = Trim(Request.ServerVariables("LOGON_USER")) 'Domänenkennzeichen abschneiden If InStr(strUser,"\") then strUser = Mid(strUser,InStr(strUser,"\") + 1) 'ADO-Verbindung initialisieren Set objConn = CreateObject("ADODB.Connection") objConn.Provider = "ADsDSOObject" objConn.Properties("User ID") = "" objConn.Properties("Password") = "" objConn.Open "Active Directory Provider" 'Abfrage-String zusammenstellen strBase = "" strFilter = "(&(objectCategory=person)" & _ (objectClass=user)(sAMAccountName=" & strUser & "*))" strAttributes = "sAMAccountName,sn,givenName,department" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" 'ADO-Command-Objekt initialisieren und Eigenschafen setzen Set objCmd = CreateObject("ADODB.Command") Set objCmd.ActiveConnection = objConn objCmd.CommandText = strQuery objCmd.Properties("Page Size") = 100 objCmd.Properties("Timeout") = 30 objCmd.Properties("Cache Results") = False 'ADO-Command ausführen (Rückgabewert: ADO-Recordset) Set objRS = objCmd.Execute 'User-Informationen auslesen und in Session-Variablen speichern If Len(Trim(objRS.Fields("sAMAccountName").value)) = 0 then Session("UserAccount") = "" Session("UserFirstName") = "" Session("UserLastName")= "" Session("UserDepartment") = "" Else Session("UserAccount") = objRS.Fields("sAMAccountName").value Session("UserFistName") = objRS.Fields("givenName").value Session("UserLastName") = objRS.Fields("sn").value Session("UserDepartment") = objRS.Fields("department").value End if 'Alle ADO-Objekte schließen und terminieren objRS.Close Set objRS = Nothing Set objCmd = Nothing objConn.Close Set objConn = Nothing End Function %>