国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > VBScript > 正文

VBScript 監(jiān)控磁盤更改事件實(shí)現(xiàn)代碼

2019-10-26 18:06:00
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友

來(lái)自微軟官方，寫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

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板： 搜索| 平谷区| 临清市| 元谋县| 通州区| 蒲城县| 名山县| 玉田县| 大安市| 麻江县| 确山县| 南平市| 沙雅县| 翼城县| 长治县| 信宜市| 高邑县| 磐安县| 祁东县| 涞源县| 彰化市| 西乌珠穆沁旗| 阜阳市| 陈巴尔虎旗| 荣昌县| 汉寿县| 罗源县| 宁阳县| 山阳县| 平泉县| 松桃| 北安市| 永吉县| 开原市| 周宁县| 沙坪坝区| 连城县| 莲花县| 吴江市| 鹤山市| 康定县|