VBScript 監(jiān)控磁盤更改事件實(shí)現(xiàn)代碼
更新時(shí)間：2013年07月28日 19:18:59 作者：
這篇文章主要介紹了如何用vbs實(shí)現(xiàn)監(jiān)控磁盤更改事件，需要的朋友可以參考下
來自微軟官方，寫USB小偷腳本是最好不過的了
復(fù)制代碼 代碼如下:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService. _
ExecNotificationQuery("Select * from Win32_VolumeChangeEvent")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.DriveName
Wscript.Echo objLatestEvent.EventType
Wscript.Echo objLatestEvent.Time_Created
Loop
您可能感興趣的文章:
相關(guān)文章
VBS 強(qiáng)制關(guān)閉Symantec Endpoint Protection的代碼
很多企業(yè)電腦系統(tǒng)是Windows Xp，使用Windows server 2003 來控制，其中客戶端得殺毒軟件有不少是使用 Symantec Endpoint Protection2013-01-01
VBS教程：函數(shù)-DateDiff 函數(shù)
VBS教程：函數(shù)-DateDiff 函數(shù)...2006-11-11
vbs實(shí)現(xiàn)myipneighbors 域名查詢結(jié)果整理
把myipneighbors查詢的結(jié)果COPY下來,然后保存后,拖到此腳本上,進(jìn)行整理因?yàn)閙yipneighbors有驗(yàn)證碼,能力有限,沒辦法突破..只能先這樣了.2009-07-07
利用WScript.Shell對象隱藏cmd命令行運(yùn)行框的實(shí)現(xiàn)代碼
利用WScript.Shell對象隱藏cmd命令行運(yùn)行2009-12-12
VBS合并一個(gè)文件夾里的TXT的實(shí)現(xiàn)代碼
有時(shí)從網(wǎng)上的電子書網(wǎng)站上下載解壓后。得到的是多個(gè)TXT文本。有沒有辦法把多個(gè)TXT合在一起看呢？寫了個(gè)代碼。不是很完美，歡迎高手批評指教。 我只是個(gè)菜鳥，需要大家的關(guān)懷才能進(jìn)步哇2013-01-01
自己最近沒事研究注冊表，下面我想將自己找到的一些實(shí)用的VBS腳本送給大家2008-06-06
VBS教程：函數(shù)-Eval 函數(shù)...2006-11-11
VBScript教程 第十四課在VBScript中使用對象...2006-11-11
這篇文章主要介紹了使用 iisext.vbs 啟用應(yīng)用程序的相關(guān)資料,需要的朋友可以參考下2014-07-07
用vbs實(shí)現(xiàn)的批量文件的替換2008-05-05