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

VC中实现文字竖排的简单方法(推荐)

好多人都觉得在vc中实现文字竖排是一件很难的事情，其实可以使用“躺”着的字体很方便的实现文字竖排。windows中有一些字体是“躺”着的，例如：@fixedsy... [阅读全文]

VBS获取GZIP压缩的HTTP内容的实现代码

不少网站为了提高加载速度，启用http服务器的gzip压缩功能，当客户端发送的http请求中声明可以接受gzip编码时，服务器自动对http响应内容进行gzip... [阅读全文]

VBS中Run和Exec的区别

语法：（常识（demon注：常识这个词我喜欢）：作为过程使用时，不要加括号，否则出现编译器错误（参数唯一或没有时加括号不会出错，但建议不要加））ws.run(s... [阅读全文]

VBS实现截图功能

百度说，vbs很难截图，倒是有个利用第三方软件的方法，调用该软件，然后该软件会自动截图。但这样，违背了用vbs的初衷。用vbs就是因为它方便快捷。要是用第三方软... [阅读全文]

VBS实现查询服务的制造商

一个网友提问：select * from win32_service 这个能查服务名称、状态……但我想查这个服务的制造商，如微软、农业银行，还是未知的？？这个属... [阅读全文]

VBS中解决带空格路径的三种方法

方法一：set wshell=createobject("wscript.shell")wshell.run """c:program files360360s... [阅读全文]


验证码：

验证码：

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

2024年05月19日 • 其它脚本 •我要评论

相关文章:

发表评论