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

原创 2007年10月03日 11:24: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 CreateProcessEvent As SWbemSink
Attribute CreateProcessEvent.VB_VarHelpID = -1
Private WithEvents DeleteProcessEvent As SWbemSink
Attribute DeleteProcessEvent.VB_VarHelpID = -1
Private WithEvents ModificationProcessEvent As SWbemSink
Attribute ModificationProcessEvent.VB_VarHelpID = -1
Private objSWbemServices As SWbemServices

Private Sub Form_Load()
    StartMonitorCreateProcessEvent
    StartMonitorDeleteProcessEvent
    StartMonitorModificationProcessEvent
End Sub


Private Sub Form_Unload(Cancel As Integer)
    CreateProcessEvent.Cancel
    DeleteProcessEvent.Cancel
    ModificationProcessEvent.Cancel
End Sub

'共享创建事件
Private Sub CreateProcessEvent_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 DeleteProcessEvent_OnObjectReady(ByVal objWbemObject As WbemScripting.ISWbemObject, ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)
    MsgBox objWbemObject.Properties_.Item("TargetInstance").Value.Properties_.Item("path").Value
End Sub

'共享属性变更事件
Private Sub ModificationProcessEvent_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 StartMonitorCreateProcessEvent()
    Set CreateProcessEvent = New SWbemSink
    Set objSWbemServices = GetObject("winmgmts://./root/cimv2")
    objSWbemServices.ExecNotificationQueryAsync CreateProcessEvent, "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Share'"
End Sub

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

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

WMI监视进程启动

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

VB中使用WMI获取系统硬件和软件有关信息

原帖地址:http://blog.csdn.net/ericbai/article/details/474308 WMI是英文Windows Management Instrum...
  • whatnamecaniuse
  • whatnamecaniuse
  • 2013年11月20日 20:40
  • 2994

wmi远程启动exe程序

一、vbs:WMI远程控制机器时报0x80070005拒绝访问错误的解决方法 昨天晚上学习一个WMI远程连接机器的方法,可是始终报错,错误代码为0x80070005;拒绝访问,今天上午看到别人的...
  • qq_16072507
  • qq_16072507
  • 2017年01月18日 19:22
  • 1129

WMI技术介绍和应用——查询文件夹信息

本文使用了《WMI技术介绍和应用——使用VC编写一个半同步查询WMI服务的类》中代码做为基础。本节只是列出了WQL语句,具体使用参看前面的例子。         本节主要介绍Win32_Directo...
  • breaksoftware
  • breaksoftware
  • 2013年01月11日 20:08
  • 4923

WMI获取系统信息 得到product name

利用WMI获取系统信息, 一般步骤: 1. 通过调用CoInitialzeEx来初始化COM参数. 2. 通过调用CoInitializeSecurity来初始化COM过程安全. ...
  • liyun123gx
  • liyun123gx
  • 2014年02月12日 17:47
  • 801

利用WMI打造完美三无后门(scrcons.exe)

ASEC是WMI中的一个标准永久事件消费者。它的作用是当与其绑定的一个事件到达时,可以执行一段预先设定好的JS/VBS脚本...
  • QHH_QHH
  • QHH_QHH
  • 2015年10月16日 20:26
  • 4663

Linux 下监控程序 -- 共享内存通讯,消息订阅发布

实习的时候写的小练习程序: VMSTAT.h 此代码用以从服务器获取运行状态信息 class VMSTAT{ public: double...
  • Jack_Wong2010
  • Jack_Wong2010
  • 2014年03月11日 15:06
  • 1049

ACCESS数据库局域网内实现多机数据共享的方法

有不少朋友要把自己的数据库实现局域网内多机共享数据,这里我介绍一下一种简单的实现方法: 1.         首先把程序折分,分成一个前台程序,一个后台数据库。 利用ACCESS的数据库拆分向...
  • u010240338
  • u010240338
  • 2013年06月04日 20:38
  • 4941

WMI技术介绍和应用——执行方法

本文主要介绍如何使用WMI执行方法。
  • breaksoftware
  • breaksoftware
  • 2016年01月21日 20:20
  • 2238

WMI技术介绍和应用——查询驱动信息

本文使用了《WMI技术介绍和应用——使用VC编写一个半同步查询WMI服务的类》中代码做为基础。         如何使用WMI查询所有驱动信息?(转载请指明出于breaksoftware的csdn博客...
  • breaksoftware
  • breaksoftware
  • 2013年01月09日 20:28
  • 4462
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB 利用WMI进行共享目录的监视
举报原因:
原因补充:

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