Username aus Winnt auslesen

[MäXX]

Hallo

das kannst du eigentlich ganz leicht mit LDAP auslesen.
Mit ASP ist es zumindest ganz einfach, PHP + JavaSript keine Ahnung.

In ASP wärs folgendermassen:

public function CallData(NTlogin)
        CallData = true
        'Der NT-Login wird in Domäne und User unterteilt
        DomainUser = Split(NTlogin,"")
        User = DomainUser(Ubound(DomainUser))

'Objekt für den Zugriff auf exchange wird erzeugt
 set oConn = CreateObject("ADODB.Connection")
 set oCommand = CreateObject("ADODB.Command")
 set oRS = CreateObject("ADODB.Recordset")

'Das zugriffspasswort für die Exchange-Datenbank wir eingegeben
  oConn.Provider = "ADsDSOObject"
  oConn.Properties("User ID") = USER_ID
  oConn.Properties("Password") = Passwort
  oConn.Open "Ads Provider"

set oCommand.ActiveConnection = oConn

'Dieses Kommando durchsucht die komplette Globale Adressliste nach dem User
'Wenn der Server sich ändert, muss der string wie folgt umgewandelt werden (mit x markiert)

strQuery= "LDAP://SERVERNAME;(UID="&User&");mail,sn,givenName,department,l,Company,title,telephoneNumber;subtree"
 oCommand.CommandText = strQuery

'Damit das Exchange server-Limit nicht überschritten wird (optional)
oCommand.Properties("Page Size") = 88
set oRS = oCommand.Execute

'Wenn kein nutzer vorhanden ist, wird false zurückgegeben
  If oRS.EOF Then
   CallData = false
   Exit Function
  End If

'Die Werte werden in den Privaten variablen zwischengespeichert
  mail= oRS.Fields("mail")
  sn = oRS.Fields("sn")
  givenName = oRS.Fields("givenName")
  department = oRS.Fields("department")
  ort = oRS.Fields("l")
  Company = oRS.Fields("Company")
  telephoneNumber = oRS.Fields("telephoneNumber")
  title = oRS.Fields("title")

End function