• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)
    复制代码 代码如下:

    If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then
    CreateObject("WScript.Shell").Run("%Comspec% /C " Chr(34)"mode con cols=100Cscript.exe //NoLogo "Chr(34) Wscript.ScriptFullName Chr(34)"(Echo 此窗口40秒后自动关闭...Ping -n 40 127.0.1>nulExit)"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关机恶搞小程序
    上一篇:校准系统时间的VBS代码
    下一篇:VBS合并一个文件夹里的TXT的实现代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版) VBS,中,获取,系统,本次,及,