上一道冷门的菜（在VBA中使用WMI，,到此结束）

win2009

补充一个，进程监控

1. Set ws = WScript.CreateObject("WScript.Shell")
   
2. ws.Popup "进程监控已启动" + vbCrLf + "1分钟后开始监控", 3, " 3 秒后自动关闭", 4 + 32
   
3. WScript.Sleep 60000
   
4. '-------------------------------------------------------------------------
   
5. strComputer = "."
   
6. Set objWMIService = GetObject("winmgmts:" _
   
7.     & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
   
8. Set colMonitoredProcesses = objWMIService. _        
   
9.     ExecNotificationQuery("select * from __instancecreationevent " _
   
10.         & " within 1 where TargetInstance isa 'Win32_Process'")
    
11.         i = 0
    
12. Do While i = 0
    
13.     Set objLatestProcess = colMonitoredProcesses.NextEvent
    
14.     ws.Popup "新进程： " + objLatestProcess.TargetInstance.Name, 1, " 1 秒后自动关闭", 4 + 32  
    
15. Loop

复制代码

win2009

建议版主继续，把监控部分发完，谢谢

wpxxsyzx

win2009 发表于 2014-7-25 06:34
建议版主继续，把监控部分发完，谢谢

http://club.excelhome.net/thread-1025152-1-1.html
看看这个吧，一个例子

琼恩·雪诺

这个牛，果断跟帖占位学习

琼恩·雪诺

暂时只看了第一楼，请问您是怎么知道的有DisplayName这个属性的呢？我发现VBE中好像不能自动列出这个成员啊？谢谢。。

lsm4234

wpxxsyzx 发表于 2011-6-22 11:04
建立对WMI对象的引用的方法
例1中第二步Set WMIServices = WMILocator.ConnectServer()中使用ConnectServe ...

看不懂，这确实有点难度

我要注册

太强了！谢谢分享！

真主

你好，谢谢楼主提供WMI的使用方法，我将（上一道冷门的菜）在Excel中读取电脑CPU、硬盘及网卡的代码搬到Access中后，发现读取本机行很好用，所以我试着将Excel的Set WMIServices = WMILocator.ConnectServer("192.168.8.11", "root\CIMV2", "admin", "llz")，在Excel中读取局域网电脑正常，但同样的方法在Access中，读取局域网中的电脑时，提示“无效的外部过程”，请问为什么？

kylin_studio

收藏一下，以后学习

xfox

用上了，谢谢！