Kiểm tra thời điểm log on máy tính

[Mr.Quangvd]

Bạn muốn biết lượng thời gian mà mình đã log on vào máy tính, user nào đã đăng nhập vào máy tính của bạn lần cuối cùng. Hãy để script sau giúp đỡ bạn làm điều này

​

Bạn hãy copy đoạn mã sau vào Notepad và lưu lại dưới tên lastlogon.vbs

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, "Last Logon Information for Local Users"




Nếu bạn cần biết các thông tin đăng nhập lần cuối cùng, bạn hãy đặt script này vào thư mục Startup Để mở thư mục Startup:
Run > "shell:startup" (không có dấu ngoặc kép) và nhấn ENTER.
Kéo tập tin lastlogon.vbs vào thư mục Startup.

​

Nếu bạn muốn kiểm tra thời gian sử dụng máy tính, bạn chỉ cần click vào tập tin trên là ok.