查詢電腦開(kāi)關(guān)機(jī)時(shí)間的vbs代碼

更新時(shí)間：2016年12月03日 18:35:40 投稿：mdxy-dxy

這篇文章主要介紹了查詢電腦開(kāi)關(guān)機(jī)時(shí)間的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 "本次開(kāi)機(jī)時(shí)間: " & FormatWMIUTC(objEvent.TimeWritten)
  ElseIf Flag = 2 Then
    Wscript.Echo "上次關(guān)機(jī)時(shí)間: " & FormatWMIUTC(objEvent.TimeWritten)
  ElseIf Flag = 3 Then
    Wscript.Echo "上次開(kāi)機(jī)時(shí)間: " & 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后綴的文件，雙擊運(yùn)行即可?？吹竭@次的開(kāi)機(jī)時(shí)間，上次的開(kāi)關(guān)機(jī)時(shí)間。

相關(guān)文章

vbs adox提取數(shù)據(jù)庫(kù)表名和列名的類(lèi)
vbs結(jié)合adox實(shí)現(xiàn)提取表名，列名等信息的的vbs類(lèi)一直沒(méi)怎么了解adox，先轉(zhuǎn)過(guò)來(lái)，有時(shí)間研究下??！
2008-07-07
VBS利用SendKeys輸入中文字符的方法
Author:Trajon.BWL今天在網(wǎng)上隨便閑逛，逛到一個(gè)帖子，這位迷茫的朋友想知道該怎么使用SendKeys的vbs方法來(lái)輸入中文字符
2008-08-08
Windows Script Host之用vbs實(shí)現(xiàn)[瀏覽文件夾]功能
Windows Script Host之用vbs實(shí)現(xiàn)[瀏覽文件夾]功能...
2007-07-07
discuz 任意管理員密碼漏洞利用工具 vbs代碼
打算考慮寫(xiě)個(gè)python版的，考慮大家的機(jī)器環(huán)境還是弄了個(gè)vbs版
2009-07-07
VBS中通過(guò)調(diào)用CAPICOM對(duì)象實(shí)現(xiàn)SHA1&MD5加密
MD5算法的VBS代碼在網(wǎng)上可以找到很多，這些代碼都是按照“算法”寫(xiě)出來(lái)的，所以都很長(zhǎng)，更重要的是，找不到SHA1算法的VBS實(shí)現(xiàn)。
2011-01-01
VBS教程：函數(shù)-Hex 函數(shù)
VBS教程：函數(shù)-Hex 函數(shù)...
2006-11-11
VBScript 監(jiān)控并結(jié)束指定進(jìn)程的代碼
有時(shí)候我們需要監(jiān)控一些進(jìn)程，防止一些進(jìn)程的開(kāi)啟，發(fā)現(xiàn)指定進(jìn)程運(yùn)行就關(guān)閉它，那么就可以參考下面的代碼
2013-09-09
vbs加administrator用戶的代碼
使用ADSI的Winnt對(duì)象，Windows2000后面的系統(tǒng)都屬于NT系列
2008-08-08
用vbs檢查注冊(cè)表項(xiàng)的訪問(wèn)權(quán)限的代碼
有時(shí)候我們需要知道我們是否對(duì)注冊(cè)表有訪問(wèn)權(quán)限，下面的代碼就是解決了這個(gè)問(wèn)題，檢查下是否能用vbs修改注冊(cè)表項(xiàng)
2008-06-06
VBS教程：方法-Copy 方法
VBS教程：方法-Copy 方法...
2006-11-11