Anmeldeinformationen eines Benutzers abfragen

<% Response.AddHeader "Pragma","no-cache" dim var var = Request.ServerVariables("LOGON_USER") response.write "Abfrage als: " & var & "

"%> <% Dim objUser,pwexp,pwexpd,ll,pwg,arr,dom,user,disabled,locked arr = Split(var,"\") On Error resume next dom = arr(0) user = Request.Form("name") if user = "" then response.write "Bitte geben Sie einen existierenden Domänenaccount als abzufragendes Konto an.
" response.end end if Set objUser = GetObject("WinNT://" & dom & "/" & user & ",user" ) If Err.number <> 0 Then response.write "Fehler:" & Err.number & Err.description & "
" response.write "Geben Sie einen gültigen Domänenaccount an oder versuchen Sie die Abfrage mit dem InternetExplorer erneut" response.end End if pwexp = objUser.Get("PasswordExpired") ll = objUser.LastLogin pwexpd = objUser.PasswordExpirationDate pwg = FormatNumber(objUser.PasswordExpirationDate - Date(),1) disabled= objUser.AccountDisabled locked = objUser.IsAccountLocked ' ja/nein umsetzen if pwexp = 1 then redim pwexp(0) pwexp = "Ja, Bitte Passwort neu vergeben" else pwexp = "Nein" end if if disabled = TRUE then redim disabled(0) disabled = "Ja, bitte Ticket erstellen" else disabled = "Nein" end if if locked = TRUE then redim locked(0) locked = "Ja, bitte Ticket erstellen" else locked = "Nein" end if response.write "

Informationen zu Ihrem Domänenaccount

" response.write "" 'response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" Response.write "

Domänenbenutzername:	" & arr(0)& "\" & user & "
Letzte erfolgreiche Anmeldung von " & user & ":	"& ll & "
Ist das Passwort von " & user & " abgelaufen ? Muss es geändert werden ?	" & pwexp & "
Passwort läuft / lief ab am:	"& pwexpd & "
Passwort von " & user & " ist noch :	" & pwg & " Tage gültig
Ist das Konto von " & user & " wegen falscher Anmeldungen gesperrt?	" & locked & "
Ist das Konto von " & user & " deaktiviert oder abgelaufen?	" & disabled & "

" Response.Write "Letzte Abfrage : " & Date() & " " & Time() Response.write "
von Host: " & Request.ServerVariables("REMOTE_HOST") & "
" user = "" pwexp = "" ll = "" pwexpd = "" pwg = "" disabled= "" %> Erstellen eines Ticket per VPN über unser Portal (bevorzugte Methode)
Bei sonstigen Problemen wenden Sie sich bitte telefonisch an : +49 1234 567 666
Änderung des Passworts hier möglich

Es werden keine Calls angenommen, bevor nicht auf dieser Seite überprüft wurde, ob das Passwort abgelaufen oder das Konto wegen falscher Passworteingabe gesperrt wurde.