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

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    查询电脑开关机时间的vbs代码

    核心代码:

    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 "本次开机时间: "  FormatWMIUTC(objEvent.TimeWritten)
      ElseIf Flag = 2 Then
        Wscript.Echo "上次关机时间: "  FormatWMIUTC(objEvent.TimeWritten)
      ElseIf Flag = 3 Then
        Wscript.Echo "上次开机时间: "  FormatWMIUTC(objEvent.TimeWritten)
        Exit For
      End If
    Next
    
    'FormatUTC
    Function 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)  "年" _
      '       Mid(WMIDateString, 5, 2)  "月" _
      '       Mid(WMIDateString, 7, 2)  "日 " _
      '       Mid (WMIDateString, 9, 2)  ":" _
      '       Mid(WMIDateString, 11, 2)  ":" _
      '       Mid(WMIDateString,13, 2)
    End Function

    将上面的代码保存为vbs后缀的文件,双击运行即可。看到这次的开机时间,上次的开关机时间。

    上一篇:vbs枚举进程 vbs列出进程的详细列表
    下一篇:通过vbs修改以点结尾的文件的属性为隐藏
  • 相关文章
  • 

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

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

    查询电脑开关机时间的vbs代码 查询,电脑,开关,机时,间的,