好湿?好紧?好多水好爽自慰,久久久噜久噜久久综合,成人做爰A片免费看黄冈,机机对机机30分钟无遮挡

主頁 > 知識庫 > 用vbs確定可移動驅動器的連接時間

用vbs確定可移動驅動器的連接時間

熱門標簽:百度地圖標注是什么意思 拉薩外呼系統業務 外呼線路中繼線是什么 外呼系統免費招代理 合肥高德地圖標注 深圳外呼系統收費 廣州ai電銷機器人一般多少錢 怎么看地圖標注 外呼系統telrobot
問:
您好,腳本專家!如何確定 USB 閃存驅動器的連接時間?
-- PS
答:
您好,PS。是的,我們承認:腳本專家確實懶惰。(尤其是在周五,這一天我們必須編寫周一專欄。)可能有一種方法能夠專門監視何時插入 USB 閃存驅動器。但是,我們找不到這種方法,至少不能馬上找到它。不可否認,或許我們可能感覺有點困難。但是,我們還是決定編寫一個腳本,用來告訴您任何可移動驅動器與計算機連接(或斷開連接)的時間。我們希望這樣可以為您提供一些附加價值和靈活性。
嗨,我們并沒有說我們確實已為您提供了附加價值和靈活性。我們只是希望自己能夠做到。
實際上,這是一個容易編寫的小腳本。另外,它還有一個優點,就是能夠在任意版本的 Windows 上運行。(最初,我們曾經不加思索地想要使用 Win32_VolumeChangeEvent 類來完成這項任務,但是,該特定 WMI 類只能在 Windows Server 2003 上找到。)
該段代碼如下所示:
復制代碼 代碼如下:

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\"  strComputer  "\root\cimv2") 
Set colEvents = objWMIService.ExecNotificationQuery _ 
    ("Select * From __InstanceOperationEvent Within 10 Where " _ 
         "TargetInstance isa 'Win32_LogicalDisk'") 
Do While True 
    Set objEvent = colEvents.NextEvent 
    If objEvent.TargetInstance.DriveType = 2 Then  
        Select Case objEvent.Path_.Class 
            Case "__InstanceCreationEvent" 
                Wscript.Echo "Drive "  objEvent.TargetInstance.DeviceId  _ 
                    " has been added." 
            Case "__InstanceDeletionEvent" 
                Wscript.Echo "Drive "  objEvent.TargetInstance.DeviceId  _ 
                    " has been removed." 
        End Select 
    End If 
Loop 

是的,它確實類似于幾天前我們向您展示的屏幕保護程序監視腳本。我們希望重復使用同一個腳本為您提供附加價值和靈活性。(盡管這主要是確保我們能夠節省精力。) 
此腳本首先連接到本地計算機上的 WMI 服務。然后,我們發出以下查詢:
Set colEvents = objWMIService.ExecNotificationQuery _
    ("Select * From __InstanceOperationEvent Within 10 Where " _
         "TargetInstance ISA 'Win32_LogicalDisk'")
這個查詢起什么作用呢?嗯,這里我們要使用 ExecNotificationQuery 方法來訂閱一組特定的 WMI 事件。什么 WMI 事件?(伙計,您的問題太多了,不是嗎?)在本例中,我們希望在每次更改 Win32_LogicalDisk 類的實例時我們都會得到通知。正如您馬上就能看到的,這些更改將包括:為該類創建一個新實例(即,添加一個可移動驅動器)和刪除該類的一個現有實例(即,取下一個可移動驅動器)。Within 10 只是意味著每 10 秒鐘我們將檢查一次,看看是否有任何 Win32_LogicalDisk 實例發生了變化。 
是的,這也意味著,如果您插入了一個可移動驅動器,然后在 6 秒鐘后將其取出,那么我們可能永遠也不會知道這件事。如果這是個問題,那么將 10 改為一個更小的數值。也可以將 10 改為一個更大的數值。例如,將 10 改為 60,就會每 60 秒鐘進行一次檢查,而不是每 10 秒鐘。
明白了嗎?我們甚至將附加價值和靈活性加入了代碼自身中!
然后,我們建立一個不停運行的 Do 循環::
Do While True
接下來我們遇到了下面這行代碼:
Set objEvent = colEvents.NextEvent
正如我們在上一專欄中說過的,這行代碼將使腳本“中斷”,意思就是腳本將暫停在此行,直到 Win32_LogicalDisk 類發生變化為止。這種變化(可以是創建了新實例或者是刪除/修改了一個現有實例)將使腳本執行 Do 循環中的其余代碼行。
好問題:剩下那些行代碼究竟要做什么?嗯,首先看一下生成事件的驅動器是否恰好為可移動驅動器(至少就 WMI 而言,DriveType 為 2):
If objEvent.TargetInstance.DriveType = 2 Then
如果 DriveType 不是 2,那么我們只能再循環并等待下一個事件的發生。如果 DriveType 等于 2,那么我們使用 Select Case 塊來確定發生的是哪種類型的事件。我們可通過確定事件的 Class 來執行此操作:
Select Case objEvent.Path_.Class
為什么這樣做?有兩個原因:首先,我們并不關心現有實例所發生的任何變化。例如,我們并不關心驅動器 C 上的可用驅動器空間是否發生了變化。如果您看一下 Select Case 代碼,您就會注意到我們并不去費神檢查 __InstanceModificationEvent。為什么不呢?因為我們并不關心 __InstanceModificationEvent(以某種方式修改現有實例時生成的事件的類型)。
其次,我們想要對 __InstanceCreationEvent(它會告訴我們已經創建了一個新驅動器)和 __InstanceDeletionEvent(它會告訴我們已經刪除了一個現有驅動器)加以區別。通過確定事件類型,我們可以回顯不同(并相應)的消息。例如,下面是用于確定是否創建了新驅動器的代碼,如果是,則回顯一條用于指示該結果的消息:
Case "__InstanceCreationEvent"
    Wscript.Echo "Drive "  objEvent.TargetInstance.DeviceId  _
        " has been added."
下面是用于通知我們是否刪除了現有驅動器的代碼:
Case "__InstanceDeletionEvent"
    Wscript.Echo "Drive "  objEvent.TargetInstance.DeviceId  _
        " has been removed."
回顯相應的消息后,我們再循環并等待下一個事件的發生。默認情況下,該腳本將永遠運行下去,或者至少在您終止該腳本進程之前會是這樣。先發生哪種情況就先執行哪段代碼。
正如我們說過的,這并不是您真正想要的,但是它確實能夠達到這一目的。哦,不要忘了附加價值和靈活性。這應該足以彌補一個事實,那就是我們并沒有真正回答您的問題。(我們希望我們已經解答了該問題的一個方面。不過這不是您的問題。)

標簽:延安 嘉興 周口 玉林 臺灣 六安 廣安 漳州

巨人網絡通訊聲明:本文標題《用vbs確定可移動驅動器的連接時間》,本文關鍵詞  用,vbs,確定,可移動,驅動器,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《用vbs確定可移動驅動器的連接時間》相關的同類信息!
  • 本頁收集關于用vbs確定可移動驅動器的連接時間的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 美女黄群小视频短视频| 被多个人玩屁股眼| yy6080三级| 日韩电影伦理光棍网| 樱花影视电视剧电影| 宜阳县| 污污网站在线播放| 上海富婆黃色一級毛片| 精品国产91久久久久久暴行片| 失禁尿翻白爽h| 激情小说婷婷| 孕妇季玥2017.04.01图片胶衣| 小黄文在线观看| 亚洲精品久久久久久国产精华液 | 狠狠色丁香婷婷久久综合麻豆| 雄性宠物挺进女人下面的小说| 日韩伦理免费| 亚洲人成网站在线观看妞妞网| 全彩调教侵犯H本子全彩4399| 成年女人毛片免费视频永久vip| 疯狂迎合进入强壮公视频| 国产成人亚洲精品色欲软件下载 | 天天做天天爱天天综合网2021| 特大BBwBBWBBw高潮| 欧美性淫爽www视频播放| 日本AAAA片毛片免费观蜜桃| 国产真实伦对白全集| 亚洲94vvv男人的天堂五月| 猛男大g又粗又长男同| 少妇愉情理伦片香港红灯区扎职| 一级毛片网| 里番肉片h排行榜| 国产精品一区二区AV视频| 97热| 新婚娇妻被粗长征服| 日本精品无码亚洲专区伊甸园| 日韩操比视频| 波多野结衣作品在线观看| 成人深夜爽文小说网站| 一级黄色片武则天| free性中国婬妇xXXX视频|