Abfrage der letzten Anmeldung Datum für mehrere Benutzer
Ich bin ein Skript zu schreiben, muss die Abfrage, wenn mehrere Domänen-Benutzer sich zuletzt angemeldet hat, um eine Maschine. Ich dachte, ich könnte es tun, mit der das Datum des letzten Zugriffs: \Dokumente und Einstellungen\Benutzername aber unser backup-tool, vereitelt diesen plan.
Dann schaute ich mit WMI_UserProfile aber, dass nur Abfragen, lokale profile. So, das führte mich zu WNI_NetworkLoginProfile aber ich scheinen in der Lage, nur bekommen die Anmelde-Datum für den angemeldeten Benutzer. Ist es möglich, die Abfrage der letzten Anmeldung Datum für mehrere Benutzer mit WNI_NetworkLoginProfile oder ist es etwas, das ich Abfragen kann?
On Error Resume Next
Set WshNetwork = CreateObject("Wscript.Network")
strComputer = WshNetwork.ComputerName
strDayOfMonth = Right("0" & Day(Date()),2)
strMonth = Right("0" & Month(Date()),2)
strYear = Right (Year(Date()),4)
strDate = strDayOfMonth & "/" & strMonth & "/" & strYear
oLast = DateAdd("d", -60, strDate)
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "NT AUTHORITY\SYSTEM|NT AUTHORITY\SYSTEM|NT AUTHORITY\LOCAL SERVICE|NT AUTHORITY\NETWORK SERVICE"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkLoginProfile")
For Each objItem in colItems
dtmAccessTime = objItem.LastLogon
strReturn = WMIDateStringToDate(dtmAccessTime)
strUsers = objItem.Name
Set colMatches = objRegEx.Execute(strUsers)
If colMatches.Count < 1 Then
strfolder = objFolder.Name
Wscript.Echo objItem.Name & " " & strReturn
End If
Next
' Format Time and Date
Function WMIDateStringToDate(dtmStart)
WMIDateStringToDate = CDate(Mid(dtmStart, 5, 2) & "/" & _
Mid(dtmStart, 7, 2) & "/" & Left(dtmStart, 4) _
& " " & Mid (dtmStart, 9, 2) & ":" & _
Mid(dtmStart, 11, 2) & ":" & Mid(dtmStart, _
13, 2))
End Function
InformationsquelleAutor chemist | 2012-04-02
Du musst angemeldet sein, um einen Kommentar abzugeben.
Test mit dem Kommandozeilen-tool
wmic
:zeigt mir die Daten für alle Benutzer auf meinem Rechner. Das macht mich Frage mich, ob diese gesperrt ist, ob Sie Administratorrechte haben oder nicht. Auf einem Windows Vista/7/2008 box, diese kann auch bedeuten, dass Nutzer die Zugangskontrolle wird verhindert, dass Sie sehen, alle Daten.
Versuchen, zwingen Sie Ihr Skript ausführen als administator.
Poste dein Skript damit anderen können einen Blick drauf werfen.
InformationsquelleAutor Chris J