Определяем последний вход пользователя в Windows

Всем привет сегодня вашему внимаю предоставлю небольшой скриптик который покажет вам последний вход пользователя в Windows. Покажет он только для локальных пользователей, так что в домене Active Directory другие методы например аудит. Ниже смотрим описание скрипта и его применение.

Последний вход как я и написал выше мы вычислим vbs script. Когда может быть это полезно, для выявления каких либо ситуаций при которых кто то что то натворил и нужно понять, по времени входа кто нашкодил. Содержание скрипта последний вход пользователя .

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, "последний вход для всех локальных учетных данных"

В итоге вы получите вот такое окно с оповещением, где видим последний вход пользователя Администратор был 17.05.2015, а вот пользователь lacy последний вход совершил 26.11.2015, то есть сегодня.

Более правильным конечно нужно рассматривать, метод локального аудита входа, его настройку я опишу в следующей статье которая думаю выйдет на следующей неделе, все зависит от загрузки. Уверен, что вы сами придумаете сценарии где вы сможете применить данный script.

Скачать script как и всегда можно по прямой ссылке. Спасибо за внимание.

Материал сайта pyatilistnik.org

Определяем последний вход пользователя в Windows

Популярные Похожие записи: