Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Netzwerkloginzeit ermitteln

Netzwerkloginzeit ermitteln
13.11.2006 12:53:14
Herbert
Hallo zusammen,
suche verzweifelt nach der Möglichkeit die Zeit zu ermitteln, zu der man sich Morgens im Netzwerk angemeldet hat. Wenn möglich auch die Endzeit vom Vortag.
Das Ganze soll zur meiner eigenen Zeiterfassung dienen.
Vielen Dank vorab
Herbert

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Win32_NetworkLoginProfile
ransi
Hallo
Versuch mal ob du hiermit etwas anfangen kannst...


Option Explicit
Public Sub Seit_wann_angemeldet()
Dim LoginProfiles
Dim Profil
Dim a
Set LoginProfiles = GetObject("winmgmts:").InstancesOf("Win32_NetworkLoginProfile")
   For Each Profil In LoginProfiles
    a = Profil.lastlogon
    If a <> "" Then
         MsgBox Profil.Name & vbCrLf & _
         Mid(a, 7, 2) & "." & Mid(a, 5, 2) & "." & Mid(a, 1, 4) & " " & _
         Mid(a, 9, 2) & ":" & Mid(a, 11, 2) & ":" & Mid(a, 13, 2)
    End If
   Next
End Sub


ransi
Anzeige
AW: Win32_NetworkLoginProfile
13.11.2006 16:20:12
Herbert
Vielen Dank!
Das mit der Loginzeit klappt. Kann man denn auch irgendwo abfragen wann das letzte Logout war?
Herbert
AW: Win32_NetworkLoginProfile
ransi
Hallo Herbert
a = Profil.lastlogoff
Aber:
LastLogoff
Data type: datetime
Access type: Read-only
User last logged off the system. This value is calculated from the number of seconds elapsed since 00:00:00, January 1, 1970. A value of " **************.******+*** " means that the last logoff time is unknown. The format of this value is yyyymmddhhmmss.mmmmmm sutc.
Example: 19521201000230.000000 000

ransi
AW: Win32_NetworkLoginProfile
13.11.2006 18:01:16
Herbert
Hallo Ransi,
das mit dem dem Logoff ist so wie Du es beschrieben hast. Die Ergebnis bringt auch "*".
Also Syntax ok, aber nicht das gewünschte Ergebnis.
Vielleicht ist es ja so, wie es Rainer nach Dir gesagt hat. Nur die Lösung dürfte etwas komplizierter sein.
Dankeschön erstmal an beide!
Vielleicht findet ja noch jemand eine Lösung.
Herbert
Anzeige
AW: Win32_NetworkLoginProfile
13.11.2006 16:55:02
Ramses
Hallo Ransi
Vorsicht:
Dies ist nur für den lokalen Rechner mit Lokalem Userprofile.
Es wird nicht das letzte Logon am Server bzw. AD-Controller abgefragt.
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige