Determinați ultima conectare a utilizatorului în Windows
Determinați ultima conectare a utilizatorului în Windows
Toate saluturile de astăzi vă dau un mic script care vă va arăta ultimul login utilizator în Windows. Acesta va fi afișat numai pentru utilizatorii locali, deci în domeniul Active Directory alte metode, cum ar fi auditul. Mai jos este o descriere a scenariului și a utilizării acestuia.
Opțiune explicită
Dim objWMIService, colitems, WshNetwork, strComputer
Dim objUser, objItem, dtmLastLogin, strLogonInfo
Setați WshNetwork = CreateObject ("Wscript.Network")
strComputer = WshNetwork.ComputerName
Setați objWMIService = GetObject ("winmgmts:" strComputer "\ root \ cimv2")
Setați colItems = objWMIService.ExecQuery _
("Selectați * din Win32_UserAccount Unde Domain =" " strComputer "„")
Pentru fiecare obiect în coli
dtmLastLogin = ""
La reluarea erorii următoare
Setați objUser = GetObject ("WinNT: //" strComputer _
"/" objItem.Name ", utilizator")
dtmLastLogin = objUser.lastLogin
La eroare Goto 0
strLogonInfo = strLogonInfo vbCrLf objItem.Name ":" dtmLastLogin
următor
MsgBox strLogonInfo, vbOKOnly + vbInformation, "ultima autentificare pentru toate acreditările locale"
Cursul mai corect de luat în considerare, metoda de audit local al intrării, configurația pe care o voi descrie în următorul articol care cred că va fi lansat săptămâna viitoare, totul depinde de descărcare. Sunt sigur că veți veni cu scenarii în care puteți aplica acest script.
Descărcați scriptul ca întotdeauna, puteți prin link direct. Vă mulțumesc pentru atenție.