Визначаємо останній вхід користувача в Windows
Визначаємо останній вхід користувача в Windows
Всім привіт сьогодні вашій увазі надам невеликий скриптик який покаже вам останній вхід користувача в Windows. Покаже він тільки для локальних користувачів, так що в домені Active Directory інші методи наприклад аудит. Нижче дивимося опис скрипта і його застосування.
Option Explicit
Dim objWMIService, colItems, WshNetwork, strComputer
Dim objUser, objItem, dtmLastLogin, strLogonInfo
Set WshNetwork = CreateObject ( "Wscript.Network")
strComputer = WshNetwork.ComputerName
Set objWMIService = GetObject ( "winmgmts:" strComputer "\ Root \ cimv2")
Set colItems = objWMIService.ExecQuery _
( "Select * from Win32_UserAccount Where Domain = '" strComputer " '")
For Each objItem in colItems
dtmLastLogin = ""
On Error Resume Next
Set objUser = GetObject ( "WinNT: //" strComputer _
"/" objItem.Name ", User")
dtmLastLogin = objUser.lastLogin
On Error Goto 0
strLogonInfo = strLogonInfo vbCrLf objItem.Name ":" dtmLastLogin
Next
MsgBox strLogonInfo, vbOKOnly + vbInformation, "останній вхід для всіх локальних облікових даних"
Більш правильним звичайно потрібно розглядати, метод локального аудиту входу, його налаштування я опишу в наступній статті яка думаю вийде на наступному тижні, все залежить від завантаження. Упевнений, що ви самі придумаєте сценарії де ви зможете застосувати даний script.
Завантажити script як і завжди можна за прямим посиланням. Дякуємо за увагу.