国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表

圖片精選

主站蜘蛛池模板： 丘北县| 图木舒克市| 堆龙德庆县| 金乡县| 涡阳县| 张家口市| 乳源| 南康市| 兴义市| 察哈| 葵青区| 舟曲县| 锦屏县| 慈利县| 广元市| 巴南区| 竹溪县| 神池县| 宜州市| 永嘉县| 田东县| 富裕县| 临高县| 林周县| 米泉市| 额尔古纳市| 伽师县| 柳林县| 淮北市| 南陵县| 朝阳区| 迁安市| 云南省| 德化县| 阿城市| 天长市| 高唐县| 墨竹工卡县| 日照市| 东丰县| 化德县|