获取电脑硬件信息

m809289064j

怎么用VISUAL LISP获取电脑硬件信息提取硬盘(C)序列号的代码可以这样写：
(setq Drive (vlax-get-property
                   (vlax-invoke-method
                     (vlax-create-object "Scripting.FileSystemObject")
                     "GetDrive"
                     "C")
                   "SerialNumber"))

那提取CPU的序列号的代码怎么写呢？哪位大虾教教