[LISP函数]：获取操作系统中正在运行的全部进程

fools

返回值与任务管理器里看到的一致
[php]
;;Writed By Patrick_35 @ TheSwamp.org
(defun appli(/ apps item lst meth1 meth2 WMI)
  (setq WMI (vlax-create-object "WbemScripting.SWbemLocator")
        meth1 (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil)
        meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_Process"))
  (vlax-for item meth2
    (setq lst (append lst (list (vlax-get item 'CommandLine))))
  )
  (vlax-release-object WMI)
  (vlax-release-object meth1)
  (vlax-release-object meth2)
  (vl-remove nil lst)
)
[/php]

橄榄滋味

怎么回事？
命令: (appli)
; 错误: ActiveX 服务器返回错误: 未知名称: "COMMANDLINE"