vbs查看系统开关机时间

如何获取XP系统的开机时间？

下面给出两种代码，保存到扩展名为vbs的文件中。具体哪个请根据自己需求决定。

一：根据系统日志，查看开机时间和关机时间，---- 使用弹出对话框的形式

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'")
For Each objEvent In colLoggedEventsFlag = Flag +1If Flag = 1 ThenWscript.Echo "本次开机时间: " & UTCtoNow(objEvent.TimeWritten)ElseIf (flag < 4) ThenIf (flag Mod 2) = 0 ThenG = "上次关机时间：" & UTCtoNow(objEvent.TimeWritten) & vbNewLineElseK = "上次开机时间：" & UTCtoNow(objEvent.TimeWritten)Wscript.Echo K & vbNewLine & GEnd IfEnd IfEnd If
Next'CreateObject("Wscript.Shell").Run "D:\Document\消费记录.xlsx",3,ture  '此处用于测试打开文件Function UTCtoNow(nD)If Not IsNull(nD) ThenSet SWDT = CreateObject("WbemScripting.SWbemDateTime")SWDT.Value = nDUTCtoNow = SWDT.GetVarDate(True)End If
End Function

二：下面在给出一个循环查找多次开机记录的方式，并且写到文件并打开 ---- 写文件形式

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'")filePath="c:\startLog.txt"
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile(filePath,2,true)
file.writeline "当前时间：" & Now
file.writeline "最近几次的开机和关机时间："
file.close
set file=fso.opentextfile("c:\startLog.txt",8,true)Flag = 0
For Each objEvent In colLoggedEventsFlag = Flag +1msg = ""If (flag < 25) ThenIf (flag Mod 2) = 0 Thenmsg = "关机时间：" & UTCtoNow(objEvent.TimeWritten) & vbNewLineElsemsg = "开机时间：" & UTCtoNow(objEvent.TimeWritten)End Iffile.writeline msgEnd If
Next
file.close
CreateObject("Wscript.Shell").Run filePath,3,tureFunction UTCtoNow(nD)If Not IsNull(nD) ThenSet SWDT = CreateObject("WbemScripting.SWbemDateTime")SWDT.Value = nDUTCtoNow = SWDT.GetVarDate(True)End If
End Function

View Code

以下是经过优化代码：提示保存路径，以及增加换行

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'")filePath="c:\startLog.txt"
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile(filePath,2,true)
file.writeline "当前时间：" & Now
file.writeline "最近几次的开机和关机时间：" & vbNewLine
file.close
set file=fso.opentextfile("c:\startLog.txt",8,true)
Wscript.Echo "开机日志已保存到：" & vbNewLine & filePathFlag = 0
For Each objEvent In colLoggedEventsFlag = Flag +1msg = ""If (flag < 25) ThenIf (flag Mod 2) = 0 Thenmsg = "关机时间：" & UTCtoNow(objEvent.TimeWritten) & vbNewLineElsemsg = "开机时间：" & UTCtoNow(objEvent.TimeWritten)End Iffile.writeline msgEnd If
Next
file.close
CreateObject("Wscript.Shell").Run filePath,3,tureFunction UTCtoNow(nD)If Not IsNull(nD) ThenSet SWDT = CreateObject("WbemScripting.SWbemDateTime")SWDT.Value = nDUTCtoNow = SWDT.GetVarDate(True)End If
End Function

View Code

vbs查看系统开关机时间相关推荐

如何查看系统开关机时间
背景在做系统耗电量评测时,我们需要让软件一直运行(比如观看视频等),直到系统电量耗完关机.但是我们又不能一直盯着屏幕,看什么时候关机,这时我们就可以查看系统的开机关机时间,来确定系统的待机时长了. ...
怎么查看电脑开关机时间——Win10
1.找到我的电脑-右击选择管理 2.选择事件查看器--Windows日志--系统 3.点击右侧的筛选当前日志 4.弹出对话框,在ID号栏出输入6005,意思就是获取开机时间,点击确定. 4.这个时候窗 ...
Windows操作系统查看电脑开关机记录
2019独角兽企业重金招聘Python工程师标准>>> Windows操作系统查看电脑开关机记录一.系统环境操作系统:Windows 10 二.具体步骤计算机/我的电脑 - 右 ...
计算机管理任务类别103,win7系统如何查看电脑的历史开关机时间｜win7系统怎么查询电脑开机后运行多长时间...
win7系统如何查看电脑的历史开关机时间为了避免自己的电脑被他人盗用,可以通过电脑自带的程序软件查看电脑的历史开关机时间,以此来判断是否有人在你不在的情况下动过你的电脑.接下来小烟就给大家介绍一下w ...
纯MASM32打造BootClos——查看、备份系统开关机记录（0.0.0001 beta1，9KB）
主要功能就是:查看.备份系统开关机记录你可以先点击列表框的列标题条来对记录进行排序,然后再备份. 文件说明符 : C:\masm32\works\BootClos\BootClos.exe 属性 : ...
windows如何查看电脑开关机记录
如何查看电脑开关机记录 (一)如果你只是想查看一下,从昨天关机到今天开机之间有没有人使用我的计算机,在"开始"菜单的运行"中输入"eventvwr.msc&qu ...
如何查看电脑开关机记录
如果有一天,你上班忘签到了,又记不得有没有请假了,怎么办了? 教你一招:通过事件查看器查看电脑开关机记录. 怎么打开事件查看器,我就不浪费时间了,请看百度经验:http://jingyan.baidu ...
Linux常用命令(第二版) --系统开关机命令
系统开关机命令说明-服务器不会经常的关机,重启,没有故障,服务器不会关机.因此这些命令就显得不是很常用. 1.shutdown /usr/sbin/shutdown e.g. shutdown -h ...
自动记录电脑开关机时间
自动记录电脑开关机时间新建两个文本文件 start.cmd 记录开机时间. @echo 开机时间:%DATE% %time%>>D:/开关机记录.log 保存为start.cmd shu ...

vbs查看系统开关机时间

vbs查看系统开关机时间相关推荐

最新文章

热门文章