用vbs記錄屏幕保護程序的開始時間和結(jié)束時間

2019-10-26 17:59:12

字體：大中小

供稿：網(wǎng)友

問：
您好，腳本專家！如何記錄屏幕保護程序的開始時間和結(jié)束時間？
-- JS
答：
您好，JS。您知道，一位腳本專家（嘿，誰說“肯定是 Greg”？）年紀大得記得屏幕保護程序剛出現(xiàn)的日子。那時，這類腳本毫無意義。畢竟，屏幕保護程序啟動后，每個人都神魂顛倒，從未想過讓它結(jié)束。事實上，作為計算機支持人員的這位腳本專家首先必須做的一件事就是在每個人的桌面上創(chuàng)建快捷方式，使他們能夠隨時啟動“飛轉(zhuǎn)的小烤爐”。
那時人們很容易得到快樂。
啊，但是活在過去沒有意義，對吧？在今天的現(xiàn)代社會中，顯然不僅需要停止屏幕保護程序，還需要記錄停止的時間。明確這一點后，讓我們來看一看下面這個 WMI 事件監(jiān)控腳本，它會跟蹤屏幕保護程序的每次啟動和停止：
復(fù)制代碼代碼如下:

strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set objEventSource = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceOperationEvent WITHIN 5 WHERE TargetInstance ISA 'Win32_Process'")
Do While True
    Set objEventObject = objEventSource.NextEvent()
        If Right(objEventObject.TargetInstance.Name, 4) = ".scr" Then
        Select Case objEventObject.Path_.Class
            Case "__InstanceCreationEvent"
                Wscript.Echo "Screensaver " & objEventObject.TargetInstance.Name & _
                    " started: " & Now
            Case "__InstanceDeletionEvent"
                Wscript.Echo "Screensaver " & objEventObject.TargetInstance.Name & _
                    " ended: " & Now
        End Select
    End If
Loop

它看起來的確有點復(fù)雜，不是嗎？但是別慌：就設(shè)計而言，WMI 事件腳本總是看起來有點復(fù)雜。幸運的是，這些腳本只是看起來復(fù)雜；您會看到，這些腳本實際上并不那么難理解。

上一篇：用vbs返回 Internet Explorer 的下載控件和 Applet 的列表

下一篇：vbs中Empty和Null的區(qū)別