当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 查询电脑开关机时间的vbs代码

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

2017年12月01日  | 移动技术网IT编程  | 我要评论

丹美社,神医喜来乐剧情介绍,从零开始全集

核心代码：

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后缀的文件，双击运行即可。看到这次的开机时间，上次的开关机时间。

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网