Zeitstempel

Alle anderen Themen ...

Moderator: ModerationP

Zeitstempel

Beitragvon Fennek » 06. Jun 2018, 07:44

Hallo,

in der Registry unter

Code: Alles auswählen
Computer\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\{F20AD08B-6923-47C4-BD2F-3FF21A413E5E}


habe ich folgenden Zeitstempel gefunde:

Code: Alles auswählen
DateCreated e0 07 0c 00 01 00 05 00 0e 00 20 00 39 00 ef 01


Wie kann man dieses Format in eine lesbare Zeit übersetzen?

Vielen Dank

mfg

(einige der gefundenen Netwerke sind mir unbekannt)
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Fennek
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 507
Registriert: 12. Feb 2016, 18:56

Re: Zeitstempel

Beitragvon Fen » 06. Jun 2018, 08:53

Hallo,

zum Lesen auf dem eigenen Rechner, ein CMD-Fenster als Admin öffnen:

Code: Alles auswählen
reg query "HKLM\software\microsoft\windows nt\currentversion\networklist\profiles" /s /f date


mfg
Fen
 

Re: Zeitstempel

Beitragvon Fen » 06. Jun 2018, 12:07

Hallo,

mein Versuch war (in cmd.exe)

Code: Alles auswählen
w32tm.exe /dumpreg /subkey:"HKLM\software\microsoft\windows nt\currentversion\networklist\profiles\{F20AD08B-6923-47C4-BD2F-3FF21A413E5E}\datecreated"


Hat aber nicht geklappt!

mfg
Fen
 

Re: Zeitstempel

Beitragvon Fen » 07. Jun 2018, 08:17

Hallo,

ich übe mich mal als X-Poster:

Code: Alles auswählen
https://www.win-10-forum.de/windows-10-allgemeines/


Der Vorschlag dort ergab 1.1.1970, mein Gerät ist aber definitiv etwas neuer, der Zeitpunkt der ersten Verbindung mit diesem Netzwerk kann max. 2 Jahre zurückliegen.

mfg
Fen
 

[gelöst] Zeitstempel

Beitragvon Fen » 08. Jun 2018, 07:44

Hallo,

in der angegeben Seite des X-post gab es eine Antwort:

http://shahkottech.blogspot.com/2009/12 ... d-and.html

Hier ein VBA-Code:

Code: Alles auswählen
Sub F_en_Date_Reg()
Dim Hx As String

Hx = "d9070200020018001700140025000001"
Debug.Print Date_NetworkList(Hx)
End Sub

Function Date_NetworkList(Hx As String) As Date
Dim Jahr As Integer, Monat As Integer, iTag As Integer
Dim Stunde As Integer, Minute As Integer, Sekunde As Integer
Dim Datum As Date, Zeit As Date

    Jahr = Val("&H" & Mid(Hx, 3, 2) & Mid(Hx, 1, 2))
    Monat = Val("&H" & Mid(Hx, 7, 2) & Mid(Hx, 5, 2))
    iTag = Val("&H" & Mid(Hx, 15, 2) & Mid(Hx, 13, 2))
    Stunde = Val("&H" & Mid(Hx, 17, 2))
    Minute = Val("&H" & Mid(Hx, 21, 2))
    Sekunde = Val("&H" & Mid(Hx, 25, 2))
    Datum = DateSerial(Jahr, Monat, iTag)
    Zeit = VBA.TimeSerial(Stunde, Minute, Sekunde)
    'Debug.Print Datum, Zeit, Jahr, Monat, iTag, Stunde, Minute, Sekunde
   
    Date_NetworkList = CDbl(Datum) + CDbl(Zeit)
End Function


mfg

(wie immer: nach dem ersten Test posten und danach erst richtig prüfen)
Fen
 


Zurück zu Offtopic (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste