VB 利用WMI进行外界设备插入分配盘符监视

原创 2007年10月03日 11:30:00

VERSION 5.00
Begin VB.Form frmMain
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private WithEvents CreateDriveEvent As SWbemSink
Attribute CreateDriveEvent.VB_VarHelpID = -1
Private WithEvents DeleteDriveEvent As SWbemSink
Attribute DeleteDriveEvent.VB_VarHelpID = -1
Private WithEvents ModificationDriveEvent As SWbemSink
Attribute ModificationDriveEvent.VB_VarHelpID = -1
Private objSWbemServices As SWbemServices

Private Sub Form_Load()
    StartMonitorCreateDriveEvent
    StartMonitorDeleteDriveEvent
'    StartMonitorModificationDriveEvent
End Sub


Private Sub Form_Unload(Cancel As Integer)
    CreateDriveEvent.Cancel
    DeleteDriveEvent.Cancel
'    ModificationDriveEvent.Cancel
End Sub

'驱动器创建事件
Private Sub CreateDriveEvent_OnObjectReady(ByVal objWbemObject As WbemScripting.ISWbemObject, ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)

    MsgBox objWbemObject.Properties_.Item("TargetInstance").Value.Properties_.Item("Name").Value

End Sub
'dim ss as WbemScripting.
 

'驱动器删除事件
Private Sub DeleteDriveEvent_OnObjectReady(ByVal objWbemObject As WbemScripting.ISWbemObject, ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)
    MsgBox objWbemObject.Properties_.Item("TargetInstance").Value.Properties_.Item("Name").Value
End Sub

'驱动器属性变更事件
Private Sub ModificationDriveEvent_OnObjectReady(ByVal objWbemObject As WbemScripting.ISWbemObject, ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)
    MsgBox "修改了" & objWbemObject.Properties_.Item("TargetInstance").Value.Properties_.Item("Name").Value
End Sub


Private Sub StartMonitorCreateDriveEvent()
    Set CreateDriveEvent = New SWbemSink
    Set objSWbemServices = GetObject("winmgmts://./root/cimv2")
    objSWbemServices.ExecNotificationQueryAsync CreateDriveEvent, "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_LogicalDisk'"
End Sub

Private Sub StartMonitorDeleteDriveEvent()
    Set DeleteDriveEvent = New SWbemSink
    Set objSWbemServices = GetObject("winmgmts://./root/cimv2")
    objSWbemServices.ExecNotificationQueryAsync DeleteDriveEvent, "SELECT * FROM __InstanceDeletionEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_LogicalDisk'"
End Sub

Private Sub StartMonitorModificationDriveEvent()
    Set ModificationDriveEvent = New SWbemSink
    Set objSWbemServices = GetObject("winmgmts://./root/cimv2")
    objSWbemServices.ExecNotificationQueryAsync ModificationDriveEvent, "SELECT * FROM __InstanceModificationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_LogicalDisk'"
End Sub
 

NET(C#)使用WMI事件查询实现对进程和可移动磁盘的监控

转自:http://www.cnblogs.com/mgen/archive/2011/09/26/2192033.html     NET(C#)使用WMI事件查询实现对进程和可移动磁盘的监控...
  • asciil
  • asciil
  • 2011年11月03日 11:23
  • 1794

VB 利用WMI进行进程监视

 VERSION 5.00Begin VB.Form frmMain    Caption         =   "Form1"   ClientHeight    =   3090   Clien...
  • chenhui530
  • chenhui530
  • 2007年10月03日 11:16
  • 2474

wmi接口如何通过Win32_Volume类修改盘符

想要通过wmi接口修改windows盘符,该如何实现呢?wmi提供了Win32_Volume类,通过该类可以修改盘符。 python脚本 import wmi _root_conn = wmi.WMI...
  • wyongqing
  • wyongqing
  • 2017年06月18日 10:03
  • 377

WMI监视进程启动

// WMIProcessCreateMonitor.cpp : 定义控制台应用程序的入口点。 // #include "stdafx.h" #include #include #include...
  • baggiowangyu
  • baggiowangyu
  • 2014年12月08日 12:44
  • 3061

VB 利用WMI进行服务监视

VERSION 5.00Begin VB.Form frmMain    Caption         =   "服务监视"   ClientHeight    =   2730   ClientL...
  • chenhui530
  • chenhui530
  • 2007年10月03日 11:25
  • 1467

VB 利用WMI进行USB监视

VERSION 5.00Begin VB.Form frmMain    BorderStyle     =   1  Fixed Single   Caption         =   "Usb监...
  • chenhui530
  • chenhui530
  • 2007年10月03日 11:22
  • 2218

VB 利用WMI进行共享目录的监视

VERSION 5.00Begin VB.Form frmMain    Caption         =   "Form1"   ClientHeight    =   3090   Client...
  • chenhui530
  • chenhui530
  • 2007年10月03日 11:24
  • 1061

VB 利用WMI进行日志监视

VERSION 5.00Begin VB.Form frmMain    Caption         =   "Form1"   ClientHeight    =   3090   Client...
  • chenhui530
  • chenhui530
  • 2007年10月03日 11:08
  • 1172

VB 利用WMI进行PNP监视

VERSION 5.00Begin VB.Form frmMain    BorderStyle     =   1  Fixed Single   Caption         =   "PNP监...
  • chenhui530
  • chenhui530
  • 2007年10月03日 11:23
  • 1622

C# 利用WMI进行注册表监视

VERSION 5.00Begin VB.Form frmMain    Caption         =   "Form1"   ClientHeight    =   3090   Client...
  • chenhui530
  • chenhui530
  • 2007年10月03日 11:20
  • 2447
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB 利用WMI进行外界设备插入分配盘符监视
举报原因:
原因补充:

(最多只允许输入30个字)