VBScript 监控磁盘更改事件实现代码
2016-06-30来源:

这篇文章主要介绍了如何用vbs实现监控磁盘更改事件,需要的朋友可以参考下

代码如下:

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

推荐信息
Baidu
map