Auslesen seit wann ein Benutzer angemeldet ist

Textitext

Ich würde gerne herausbekommen seit wann ein Benutzer in einer Domäne angemeldet ist. Ich möchte das nur mit Autoit hinbekommen und nicht mit PsLoggedon.exe oder ähnlichen. Leider habe ich bisher keinen Lösungsansatz gefunden. Vielen Dank im Vorraus

AutoIt: Func1

func _Func1()
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$strUser = "XXXX\" & GUICtrlRead($Input1)
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("Select * FROM Win32_UserAccount", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


If IsObj($colItems) then
   For $objItem In $colItems
	  if $objItem.Caption = $strUser then
		 GUICtrlSetData($Input3, $objItem.Status)
	  endif
   Next
Endif
endfunc

Alles anzeigen

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Schrieb bei Anmeldung die Urzeit in einen "offenen" Regestry Zweig, die kannst Du dann immer wieder auslesen. Wenn dir das mit der Regestry nicht gefällt, schreib eine min Datei auf den Server, Rechner, Share, wie auch immer. Wenn das nicht kraut und Rüben stehen soll richte irgendwo einen Ordener ein, da werden die TXT Files reingeschrieben. Die Urzeit des erstellens = Anmeldezeit.

Mag nicht besonders elegant sein, funktioniert aber mit einfachsten Mitteln.

Gruß

Peter

Axel

Vielleicht eine Hilfe...

"net stats server" liefert dir zwar nicht die Zeit wie lange ein Benutzer angemeldet ist, aber wie lange der Rechner schon läuft.
Die Ausgabe lässt sich in eine Textdatei umleiten und dann auslesen. Sieht dann so aus....

RunWait(@ComSpec & " /c net stats srv >c:\temp\shutdowntime.txt","",@SW_HIDE)
$file = FileOpen("c:\temp\shutdowntime.txt", 0)
If $file = -1 Then Exit(1)
$zeit = ""
While 1
$a = FileReadLine($file)
If @error = -1 Then ExitLoop
If StringLeft($a, 15) = "Statistik seit " Then $zeit = StringMid($a,16)
WEnd
FileClose($file)
Sleep(500)
FileDelete("c:\temp\shutdowntime.txt")
Msgbox(0,"Zeit",$zeit)

RogerSt

Warum beim Login die Zeit irgend wohin schreiben?
Windows muss doch wissen, wann man sich angemeldet hat.

Vieleicht ist "quser" die lösung.
Da wird die LogonTime angezeigt.

Gruss Roger

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Wenn schon dann schon das Orginal https://technet.microsoft.com/de-de/library/…5(v=ws.10).aspx

Aber da braucht man eben schon wieder einen externen Aufruf.

Gruß

Peter

n00b-it

Hallo.

Ich hab mal etwas weiter geforscht und gesehen, dass man das auch mittels WMI lösen kann.
Hier hast du mal ein entsprechendes Script.

AutoIt

#cs ----------------------------------------------------------------------------


	AutoIt Version: 3.3.14.2
	Author:         Philip G.


	Script Function:
	Template AutoIt script.


#ce ----------------------------------------------------------------------------


; Script Start - Add your code below here


_GetLogonTime()


Func _GetLogonTime()
	$wbemFlagReturnImmediately = 0x10
	$wbemFlagForwardOnly = 0x20
	$colItems = ""
	$strComputer = "localhost"


	$Output = ""
	$Output = $Output & "Computer: " & $strComputer & @CRLF
	$Output = $Output & "==========================================" & @CRLF
	$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
	$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_LogonSession", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


	If IsObj($colItems) Then
		For $objItem In $colItems
			$Output = $Output & "AuthenticationPackage: " & $objItem.AuthenticationPackage & @CRLF
			$Output = $Output & "Caption: " & $objItem.Caption & @CRLF
			$Output = $Output & "Description: " & $objItem.Description & @CRLF
			$Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
			$Output = $Output & "LogonId: " & $objItem.LogonId & @CRLF
			$Output = $Output & "LogonType: " & $objItem.LogonType & @CRLF
			$Output = $Output & "Name: " & $objItem.Name & @CRLF
			$Output = $Output & "StartTime: " & WMIDateStringToDate($objItem.StartTime) & @CRLF
			$Output = $Output & "Status: " & $objItem.Status & @CRLF
			If MsgBox(1, "WMI Output", $Output) = 2 Then ExitLoop
			$Output = ""
		Next
	Else
		MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_LogonSession")
	EndIf
EndFunc   ;==>_GetLogonTime




Func WMIDateStringToDate($dtmDate)
	Return (StringMid($dtmDate, 5, 2) & "/" & _
			StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
			 & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc   ;==>WMIDateStringToDate

Alles anzeigen

Ich hoffe das hilft dir weiter.

LG

Textitext

Code

$strComputer = "."
$userName = @USERNAME
 $objWMIService = ObjGet("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
 ;$colItems = $objWMIService.ExecQuery("Select * from Win32_NetworkLoginProfile")
 $colItems = $objWMIService.ExecQuery ("Select * from Win32_NetworkLoginProfile where caption = '" & $userName &"'")
For $objItem in $colItems
    MsgBox (64, "Test", $objItem.LastLogon)
Next

Super vielen Dank für die Unterstützung. Die Zeile mit dem Starttime sieht interessant aus. Das werde ich mal bei mir einbauen. Meine zwischenzeitliche Lösung mit LastLogon brachte mit nur eine komplette falsche Ausgabe.