VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)
导读：收集整理的这篇文章主要介绍了VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版 ，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下...
收集整理的这篇文章主要介绍了VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下: If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then
CreateObject("WScript.Shell").Run("%ComsPEc% /C " & Chr(34)& "mode con cols=100& Cscript.exe //NoLOGo "& Chr(34)& Wscript.ScriptFullName & Chr(34)& "& & (Echo 此窗口40秒后自动关闭...& Ping -n 40 127.0.1> nul& ExIT)"& Chr(34)),3:Wscript.Quit
Wscript.Quit
End If
Set WMI = GetObject("winmgmts:{ impersonationLevel=impersonate} !\\.\root\cimv2")
Set colLoggedEvents = WMI.ExecQuery("Select * From Win32_NTLogEvent Where Logfile = 'System' And EventCode = '6005' Or EventCode = '6006' Or EventCode = '6008'")
For each objEvent In colLoggedEvents
Flag = Flag + 1
If Flag = 1 Then
Wscript.Echo "本次开机时间: " & UTCtoNow(objEvent.TimeWritten)
Elseif (Flag Mod 2) = 0 Then
G = UTCtoNow(objEvent.TimeWritten)
Else
K = UTCtoNow(objEvent.TimeWritten)
Wscript.Echo "前次开机："& K& " "& vbTab& "对应关机："& G& " "& vBTab& "运行时长：" & StoHMS(DateDiff("s", K, G))
End If
Next
Function UTCtoNow(nD)
If Not IsNull(nD) Then
Set SWDT = CreateObject("WbemScripting.SWbemDateTime")
SWDT.Value = nD
UTCtoNow = SWDT.GetVARDate(True)
End If
End Function
Function StoHMS(Sec)
H = Int(Sec/3600) :h1 = Sec Mod 3600:M = Int(H1/60) :S = H1 Mod 60
StoHMS = H & "小时" & M & "分钟" & S & "秒"
End Function
您可能感兴趣的文章:
- 可以定时自动关机的vbs脚本
- 自己写的一个定时关机或重启的vbs脚本
- vbs实现的定时关机、重启的脚本和程序
- vbs实现的eMule电驴自动关机脚本代码
- VBS 断网后自动关机30秒后
- Crack8 VBS整人脚本 你不说你爱我 就关机
- vb下的恶搞关机程序
- VB关机恶搞小程序
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)
本文地址： https://pptw.com/jishu/610004.html