问如何使用AutoLISP检查是否安装了特定的驱动程序

EN

;; Win32 System Driver-p  -  Lee Mac
;; Returns T if a driver exists with the supplied name

(defun LM:win32systemdriver-p ( drv )
    (LM:wmiqueryhasmembers-p (strcat "select * from win32_systemdriver where name = '" drv "'"))
)

;; WMI Query has Members-p  -  Lee Mac
;; Returns T if the supplied WMI query has members

(defun LM:wmiqueryhasmembers-p ( qry / rtn srv wmi )
    (if (setq wmi (vlax-create-object "wbemscripting.swbemlocator"))
        (progn
            (setq rtn
                (vl-catch-all-apply
                   '(lambda ( )
                        (setq srv (vlax-invoke wmi 'connectserver)
                              qry (vlax-invoke srv 'execquery qry)
                        )
                        (< 0 (vla-get-count qry))
                    )
                )
            )
            (foreach obj (list qry srv wmi)
                (if (= 'vla-object (type obj)) (vlax-release-object obj))
            )
            (and (not (vl-catch-all-error-p rtn)) rtn)
        )
    )
)