关于VBS中的GetObject("WinMgmts:")获取系统进程，翻译成lisp的问题

lover920

Dim WMI,objs
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")
For Each obj In objs
Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10)
Next
msgbox Enum1

在网上查到了上面这段VBS代码。存为VBS后缀名的文件后可获取进程列表。
不会vbs本想着看着不难，查查资料应该能翻译成lisp，但奈何太菜，第一句就出问题了。

(vlax-get-or-create-object "winmgmts:")始终返回nil。不知道是怎么回事，望大神指教！！

newer

用 WMI 搜索论坛，有现成的函数

lover920

newer 发表于 2017-12-5 22:20

不太懂这个，如果可以的话能不能帮忙给个链接啊

newer

你就是论坛上面搜索框里面输入  WMI ，然后点搜索，就看到很多了。

lover920

newer 发表于 2017-12-5 23:05

刚看了您的大作，还在学习中。非常感谢您的指点！



另外弱弱的问一句 "WinMgmts: 和 "WbemScripting.SWbemLocator"  有区别么，和您说的WMI都是什么关系？为什么获取的不一样，结果一样啊？



问题很小白，但百度半天也没搞清楚，望大神解答

lover920

newer 发表于 2017-12-5 23:05

还有最后一个问题。我用您帖子给的代码:
(setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
(setq meth1 (VLAX-INVOKE WMI 'ConnectServer nil nil nil nil nil nil nil nil))
(setq meth2 (vlax-invoke meth1 'ExecQuery "select * from win32_diskdrive"))
是可以获取信息的，进程也可以获取。

但我想用(setq meth2 (vlax-invoke meth1 'ExecQuery "select * form Win32_Process where name='EXCEL.EXE'"))
来杀掉excel进程为什么不可以啊？

marting

VLISP可以直接执行VBS的代码，看下面例子，读取CPU序列号，就是用你提的 Winmgmts：

1. (defun ProcessorID (/ ID USERS4)
   
2.   (vl-load-com)
   
3.   (setq users4 (getvar "users4"))
   
4.   (vla-eval (vlax-get-acad-object)
   
5.             (strcat
   
6.                  "set colInstances = GetObject(\"Winmgmts:\").ExecQuery(\"Select * from Win32_Processor\")" ":"
   
7.                  "id = \"\"" ":"
   
8.                  "For each objInstance in colInstances" ":"
   
9.                  "id = id & objInstance.ProcessorId" ":"
   
10.                  "next" ":"
    
11.                  "ThisDrawing.SetVariable \"USERS4\", id"
    
12.                  )
    
13.            )
    
14.   (setq ID (getvar "users4"))
    
15.   (setvar "users4" users4)
    
16.   id
    
17. )
    

(defun ProcessorID (/ ID USERS4)<br />   (vl-load-com)<br />   (setq users4 (getvar "users4"))<br />   (vla-eval (vlax-get-acad-object)<br />             (strcat<br />                  "set colInstances = GetObject(\"Winmgmts:\").ExecQuery(\"Select * from Win32_Processor\")" ":"<br />                  "id = \"\"" ":"<br />                  "For each objInstance in colInstances" ":"<br />                  "id = id & objInstance.ProcessorId" ":"<br />                  "next" ":"<br />                  "ThisDrawing.SetVariable \"USERS4\", id"<br />                  )<br />            )<br />   (setq ID (getvar "users4"))<br />   (setvar "users4" users4)<br />   id<br /> )<br />

lover920

marting 发表于 2017-12-6 12:22

还可以这样？谢谢谢谢。我研究下。
还有，还是想问下那个问题，这WinMgmts 和 WbemScripting.SWbemLocator 有什么区别啊？

Lisphk

lover920 发表于 2017-12-6 14:25

不同的两个接口。都可以对WMI进行查询。


WMI脚本对象模型
    为了在脚本中使用WMI特性,需要在WMI脚本类型库(称为WbemScripting)例示一个对象.同WScript用作WSH模型的一个入口点一样,
    WbemScripting用于提供对各种WMI脚本API接口的访问.


winmgmt指的是计算机中的一种进程。WinMgmt.exe是Windows管理服务。用于系统管理员创建WIndows管理脚本。

Windows Management Service透过Windows Management Instrumentation data (WMI)技术处理来自应用客户端的请求。winmgmt是Windows 2000客户端管理的核心组件。当客户端应用程序连接或当管理程序需要他本身的服务时这个进程初始化。WinMgmt.exe(CIM对象管理器)和知识库(Repository)是WMI两个主要构成部分，其中知识库是对象定义的数据库，它是存储所有可管理静态数据的中心数据库，对象管理器负责处理知识库中对象的收集和操作并从WMI提供程序收集信息。WinMgmt.exe在Windows 2000/NT上作为一个服务运行，而在Windows 95/98上作为一个独立的exe程序运行。Windows 2000系统在某些计算机上出现的WMI错误可以通过安装Windows 2000 SP2来修正。

lover920

Lisphk 发表于 2017-12-6 19:20

话说好复杂，其实就想用SWbemServer 的 Terminate 方法结束个进程。居然好处这么多东西，这下有的学了。