亚洲免费乱码视频,日韩 欧美 国产 动漫 一区,97在线观看免费视频播国产,中文字幕亚洲图片

      1. <legend id="ppnor"></legend>

      2. 
        
        <sup id="ppnor"><input id="ppnor"></input></sup>
        <s id="ppnor"></s>

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

        字號:


            這篇文章主要介紹了如何用vbs實現(xiàn)監(jiān)控磁盤更改事件,需要的朋友可以參考下
            代碼如下:
            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