Office: Ein- und Ausschaltzeiten des PC aus der registry auslesen

ms-office-nutzer · 19. Februar 2016

Hallo,

ich suche nach einem VBA-Code, um die Ein- und Ausschaltzeiten des PC aus der registry auszulesen und entsprechend in ein Excel-Tabellenblatt zu schreiben.

Gibt es da eine Möglichkeit? Google liefert mir da leider keine nützlichen Ergebnisse.

Viele Grüße

:)

ebs17 · 21. Februar 2016

aus der registry auszulesen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie lauten die entsprechenden Reg-Schlüssel?

daolix · 21. Februar 2016

Hallo

mittels WMI mit der Class Win32_NTLogEvent und den EventCodes 6005 (Start) und 6006 (Ende) ist dies machbar. Ist nicht das schnellste, auch werden z.b. Abstürze nicht erfasst.

haklesoft · 21. Februar 2016

Hallo,

den Zeitpunkt des letzten Herunterfahrens kann man tatsächlich aus der Registry ermitteln. Steht in HKEY_LOCAL_MACHINE\SYSTEM\Current\ControlSet\Control\Windows\ShutDownTime. Muss man nur umrechnen.

Den Zeitpunkt des letzten Bootens kann man mit GetTickCount in der Kernel-API errechnen.

RPP63 · 21. Februar 2016

Hi!
[off topic]
Das hat für mich ein Gschmäckle …
Wenn dies dazu dient, die Mitarbeiter zu überwachen, solltest Du vorher eine Vereinbarung mit dem Betriebsrat machen.
Alternativ erkundige Dich bei einem Anwalt Deines Vertrauens über die Wirksamkeit evtl. arbeitsrechtlicher Schritte.
[/off topic]

Gruß Ralf

ms-office-nutzer · 22. Februar 2016

Werter Ralf,

falls ich jemanden mit meiner Anfrage zu Nahe getreten sein sollte, dann bitte ich nochmal um Aufmerksamkeit, um mein Anliegen genauer erläutern zu können.
Es geht mir nicht um das überwachen oder kontrollieren von Mitarbeitern. Ich will ganz gerne die Möglichkeit haben, dass ich meine eigenen notierten Zeiten überprüfen kann.

Vielleicht kommt dir die Situation bekannt vor, dass du Freitag nachmittag deine Zeiten notierst, weil du in der aktuellen Woche noch keine Zeit dazu hattest. Manchmal komme ich dann stark ins Grübeln und bin mir gar nicht mehr so sicher wann ich denn nun genau gekommen und gegangen bin.

Ich will also mit einem solchen Makro eine Stütze schaffen, wenn ich mir nicht mehr ganz sicher bin.

Hier steht auch sehr schön beschrieben wie das geht:
http://wewimo.de/einschaltzeit-und-a...ner-ermitteln/
Ich will es mir jedoch gerne vereinfachen und mit nur einem Mausklick über einen Button in Excel realisieren.

@ebs17
Mit reg-Schlüssel bin ich jetzt überfragt, weil ich mich damit nicht auskenne. Ich war der Annahme, dass es hier jemanden gibt, der sich damit auskennt und einen entsprechenden Code parat hat.

@daolix
Abstürze müssen nicht erfasst werden. Es geht nur die Ein- und Ausschaltzeit. Danke für die Erklärung, doch "WMI mit der Class Win32_NTLogEvent" sagt mir jetzt gar nichts. Da bin ich noch Frischling auf dem Gebiet. Wie muss das in Form eines Codes aussehen?

RPP63 · 22. Februar 2016

Moin!
Das letzte Einschaltdatum wird mit
Code:

Now - GetTickCount / 86400000
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ermittelt, nachdem die API mittels
Code:

Declare Function GetTickCount Lib "kernel32.dll" () As Long
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in einem allgemeinen Modulkopf deklariert wurde.
Aber: Es betrifft nur ein tatsächliches Einschalten!
Ich schicke meinen PC idR in den Sleepmodus, dadurch wird GetTickCount nicht neu gesetzt.

An die Profis:
Mein Hex-Wert in der Registry ist
5D 8D 0E 53 57 6D D1 01
umgerechnet in Dec
6.741.059.968.355.389.697
Wie komme ich da auf einen Zeitpunkt?
(Sekunden nach dem 1.1.1900 sind 3.665.347.200)

EDIT:
Windows zählt ab dem 1.1.1601

Gruß Ralf

RPP63 · 22. Februar 2016

Hab es gefunden:
Code:

Sub ShutDownTime()
Dim strValueName As String
Dim oShell As Object, Ar, Term As Double, Days As Double
strValueName = "HKLM\SYSTEM\CurrentControlSet\Control\Windows\" _
& "ShutdownTime"
Set oShell = CreateObject("WScript.Shell")
Ar = oShell.RegRead(strValueName)
Term = Ar(7) * (2 ^ 56) + Ar(6) * (2 ^ 48) + Ar(5) * (2 ^ 40) + Ar(4) * (2 ^ 32) _
+ Ar(3) * (2 ^ 24) + Ar(2) * (2 ^ 16) + Ar(1) * (2 ^ 8) + Ar(0)
Days = Term / (10000000# * 86400)
Debug.Print "ShutdownTime = " & CDate(DateSerial(1601, 1, 1) + Days)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Siehe auch:
http://www.winhelponline.com/blog/ho...s-xp2003vista/
Gruß Ralf

Case_Germany · 22. Februar 2016

Hallo, *Smilie

prinzipiell kann man das auch über die Ereignisanzeige auslesen - muss natürlich noch angepasst werden: *wink.gif*

eventvwr Systemstartzeit und - Endzeit auslesen

Servus
Case

RPP63 · 22. Februar 2016

Hi Case! *Smilie
Ich habe es nicht ausprobiert, scheint aber zeitkritisch zu sein?
Das Auslesen aus der Registry geht jedenfalls pfeilschnell. *tongue.gif*

Gruß Ralf

ms-office-nutzer · 23. Februar 2016

Vielen Dank für die Unterstützung. Mit folgendem Code zeigt es mir die Ein- und Ausschaltzeit eines zuvor definierten Datums an.

Code:

Option Explicit

''Logfile =****
'Application
'System
'Security

''EventType =**
'1 Error
'2 Warning()
'3 Information()
'4 Security audit success
'5 Security audit failure
Sub Versuch()
Dim objWMIService As Object, colLoggedEvents As Object
Dim dtmStartDate As Object, dtmEndDate As Object
Dim objEvent As Object
Dim strMessage As String, strDatum As String
Dim Pruefvariable As String
Dim lngRow As Long
Dim SDatum As Date

SDatum = Date 'welches Datum auslesen (heute)?

Set objWMIService = GetObject("winmgmts:" _
& "\\" & "." & "\root\cimv2")

Const CONVERT_TO_LOCAL_TIME = True
Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime")
Set dtmEndDate = CreateObject("WbemScripting.SWbemDateTime")

dtmStartDate.SetVarDate SDatum, CONVERT_TO_LOCAL_TIME
dtmEndDate.SetVarDate SDatum + 1, CONVERT_TO_LOCAL_TIME

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")

Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where TimeWritten >= '" _
& dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "' and Logfile = 'System' and EventType = '3'")

'Application.ScreenUpdating = False
Range("A2", Cells(Rows.Count, "C")).ClearContents
lngRow = 1

For Each objEvent In colLoggedEvents

'Infotext
If IsNull(objEvent.Message) = False Then
strMessage = objEvent.Message
Pruefvariable = InStr(1, strMessage, "Betriebssystem")

If Pruefvariable = "5" Then

Do While Right$(strMessage, 1) = Chr(10) Or Right$(strMessage, 1) = Chr(13)
strMessage = Trim$(Left$(strMessage, Len(strMessage) - 1))
Loop
Cells(lngRow, "A") = strMessage

'Datum
strDatum = Trim$(objEvent.TimeWritten)
If strDatum > "" Then Cells(lngRow, "B") = _
CDate(Mid(strDatum, 7, 2) & "." & Mid(strDatum, 5, 2) & "." & Mid(strDatum, 1, 4) & " " & _
Mid(strDatum, 9, 2) & ":" & Mid(strDatum, 11, 2) & ":" & Mid(strDatum, 13, 2))

'User
'Cells(lngRow, "C") = IIf(IsNull(objEvent.User), "", Trim(objEvent.User))

lngRow = lngRow + 1
End If
End If

''andere Parameter****************************
' Debug.Print "Category: " & objEvent.Category
' Debug.Print "Computer Name: " & objEvent.ComputerName
' Debug.Print "Event Code: " & objEvent.EventCode
' Debug.Print "Record Number: " & objEvent.RecordNumber
' Debug.Print "Source Name: " & objEvent.SourceName
' Debug.Print "Event Type: " & objEvent.Type
'**********************************************

Next
'Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt zeigt er mir aber aber z. B. 7:35 Uhr statt 8:35 Uhr an. Immer eine Stunde weniger. Ich bin verwirrt. Woran liegt das? *confused.gif* *confused.gif*

haklesoft · 23. Februar 2016

Jetzt zeigt er mir aber aber z. B. 7:35 Uhr statt 8:35 Uhr an. Immer eine Stunde weniger. Ich bin verwirrt. Woran liegt das?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

UTC ?

ms-office-nutzer · 25. Februar 2016

Danke für den Hinweis. Jetzt stimmt die Zeit.

Office: Ein- und Ausschaltzeiten des PC aus der registry auslesen

Ein- und Ausschaltzeiten des PC aus der registry auslesen

Ein- und Ausschaltzeiten des PC aus der registry auslesen

Ein- und Ausschaltzeiten des PC aus der registry auslesen

Ein- und Ausschaltzeiten des PC aus der registry auslesen

Ein- und Ausschaltzeiten des PC aus der registry auslesen

Ein- und Ausschaltzeiten des PC aus der registry auslesen - Similar Threads - Ausschaltzeiten registry auslesen

Kein Video

UserForm Daten speichern. Registry oder externe Datei?

Excel 2010: AddIn und die Registry

Access 365: Aufrufpfad aus Registry

Problem mit Umlaute in verknüpften dbf-Tabellen (DataCodePage in Registry passt)

Wird Windows schneller mit dem Registry Booster?

Word Bearbeitung ermöglichen. Setzen eines HKEY im Registry