Shulou(Shulou.com)06/03 Report--

This article will explain in detail how to query the on / off time of the computer by vbs. The editor thinks it is very practical, so I share it with you as a reference. I hope you can get something after reading this article.

Core code:

StrComputer = "." Set objWMIService = GetObject ("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" strComputer & "\ root\ cimv2") Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent" _ & "Where Logfile = 'System' And EventCode =' 6005' Or EventCode = '6006'") For Each objEvent In colLoggedEvents Flag = Flag + 1 If Flag = 1 Then Wscript.Echo "this boot time:" & FormatWMIUTC (objEvent.TimeWritten) ElseIf Flag = 2 Then Wscript.Echo "Last shutdown time: & FormatWMIUTC (objEvent.TimeWritten) ElseIf Flag = 3 Then Wscript.Echo" Last boot time: & FormatWMIUTC (objEvent.TimeWritten) Exit For End IfNext'FormatUTCFunction FormatWMIUTC (WMIDateString) DS = "/ /::" FormatWMIUTC = Left (WMIDateString) 2) For I = 2 To 7 FormatWMIUTC = FormatWMIUTC & Mid (WMIDateString, I * 2-1,2) & Mid (DS,i,1) Next 'FormatWMIUTC = Mid (WMIDateString, 1,4) & "year" _' & Mid (WMIDateString, 5,2) & "month" _'& Mid (WMIDateString, 7,2) & "Day" _'& Mid (WMIDateString, 9) 2) & ":" _'& Mid (WMIDateString, 11,2) & ":" _'& Mid (WMIDateString,13, 2) End Function

Save the above code as a file with the vbs suffix and double-click to run it. See the boot time this time, the last switch time.

This is the end of the article on "how to query the computer on and off time in vbs". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, please share it out for more people to see.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.