VBS获取系统本次及上次开关机时间

VBS 获取系统本次及上次开关机时间WinXP 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

原文链接：http://bbs.bathome.net/viewthread.php?tid=13752

随机文章:

1. VBS修改文件和文件夹的NTFS 权限
2. 批处理技术内幕：IF命令
3. Unicode中的方框绘制字符
4. VBS获取GZIP压缩的HTTP内容
5. _open_osfhandle函数

这篇文章发布于 2012年11月22日，星期四，09:23，归类于 复制粘贴。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。