主頁(yè) > 知識(shí)庫(kù) > VBS中獲取系統(tǒng)本次及上次開(kāi)關(guān)機(jī)時(shí)間的代碼(WinXP/win2003/Win7兼容版)

VBS中獲取系統(tǒng)本次及上次開(kāi)關(guān)機(jī)時(shí)間的代碼(WinXP/win2003/Win7兼容版)

熱門標(biāo)簽:齊齊哈爾高德地圖標(biāo)注店 地圖標(biāo)注政府哪個(gè)部門管 百度地圖標(biāo)注點(diǎn)距離代碼 佛山真人電銷機(jī)器人廠家 如何用機(jī)器人進(jìn)行電銷 除了地圖標(biāo)注還有這種生意嗎 神行者美術(shù)館地圖標(biāo)注 東營(yíng)快遞外呼系統(tǒng) 哪里有便宜的地圖標(biāo)注公司
復(fù)制代碼 代碼如下:

If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then
CreateObject("WScript.Shell").Run("%Comspec% /C " Chr(34)"mode con cols=100Cscript.exe //NoLogo "Chr(34) Wscript.ScriptFullName Chr(34)"(Echo 此窗口40秒后自動(dòng)關(guān)閉...Ping -n 40 127.0.1>nulExit)"Chr(34)),3:Wscript.Quit
Wscript.Quit
End If
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' Or EventCode = '6008'")
For Each objEvent In colLoggedEvents
Flag = Flag + 1
If Flag = 1 Then
Wscript.Echo "本次開(kāi)機(jī)時(shí)間: " UTCtoNow(objEvent.TimeWritten)
ElseIf (Flag Mod 2) = 0 Then
G = UTCtoNow(objEvent.TimeWritten)
Else
K = UTCtoNow(objEvent.TimeWritten)
Wscript.Echo "前次開(kāi)機(jī):"K" "vbTab"對(duì)應(yīng)關(guān)機(jī):"G" "vbTab "運(yùn)行時(shí)長(zhǎng):" StoHMS(DateDiff("s", K, G))
End If
Next

Function UTCtoNow(nD)
If Not IsNull(nD) Then
Set SWDT = CreateObject("WbemScripting.SWbemDateTime")
SWDT.Value = nD
UTCtoNow = SWDT.GetVarDate(True)
End If
End Function

Function StoHMS(Sec)
H = Int(Sec/3600) :H1 = Sec Mod 3600:M = Int(H1/60) :S = H1 Mod 60
StoHMS = H "小時(shí)" M "分鐘" S "秒"
End Function
您可能感興趣的文章:
  • 可以定時(shí)自動(dòng)關(guān)機(jī)的vbs腳本
  • 自己寫(xiě)的一個(gè)定時(shí)關(guān)機(jī)或重啟的vbs腳本
  • vbs實(shí)現(xiàn)的定時(shí)關(guān)機(jī)、重啟的腳本和程序
  • vbs實(shí)現(xiàn)的eMule電驢自動(dòng)關(guān)機(jī)腳本代碼
  • VBS 斷網(wǎng)后自動(dòng)關(guān)機(jī)30秒后
  • Crack8 VBS整人腳本 你不說(shuō)你愛(ài)我 就關(guān)機(jī)
  • vb下的惡搞關(guān)機(jī)程序
  • VB關(guān)機(jī)惡搞小程序

標(biāo)簽:邢臺(tái) 湖州 銅川 文山 鶴壁 四平 西安

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《VBS中獲取系統(tǒng)本次及上次開(kāi)關(guān)機(jī)時(shí)間的代碼(WinXP/win2003/Win7兼容版)》,本文關(guān)鍵詞  VBS,中,獲取,系統(tǒng),本次,及,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《VBS中獲取系統(tǒng)本次及上次開(kāi)關(guān)機(jī)時(shí)間的代碼(WinXP/win2003/Win7兼容版)》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于VBS中獲取系統(tǒng)本次及上次開(kāi)關(guān)機(jī)時(shí)間的代碼(WinXP/win2003/Win7兼容版)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章