[討論]LISP要如何讀取硬碟序號

上次有問過LISP要如何讀取網卡序號?
獲得站上先進指導已解決
這次再請教LISP要如何讀取硬碟序號?謝謝

在xp的環境正常,其他的不知道~
(defun wl-PNPDeviceID (/ str old-users4 PNPDeviceID i)
(vl-load-com)
(setq old-users4 (getvar "users4"))
(vla-eval (vlax-get-acad-object)
(setq str (strcat "set colDiskDrives = GetObject(\"Winmgmts:\").ExecQuery(\"Select * from Win32_DiskDrive\")" ":"
"out = \"\"" ":"
"For each objDiskDrive in colDiskDrives" ":"
"out = out & objDiskDrive.PNPDeviceID & \"~\"" ":"
"next" ":"
"ThisDrawing.SetVariable \"USERS4\", out"
)
)
)
(setq PNPDeviceID (getvar "users4"))
(setvar "users4" old-users4)
(setq i (vl-string-position (ascii "~") PNPDeviceID))
(setq PNPDeviceID (substr PNPDeviceID 1 i))
PNPDeviceID
)

to:~明
謝謝您提供的程式
請有安裝win7的幫忙測試一下
如果在win7下是否可正確執行
不行的話要如何修改

另提供一則網路上的程式
但求的值和~明的不一樣也是xp下使用
~明的程式和系統硬體值一樣
(defun phyhar (/ ret serx objw lccon lox)
(vl-load-com)
(setq serx '())
(if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
(progn
(SETQ lccon (VLAX-INVOKE
OBJW 'ConnectServer "."
"\\root\\cimv2" "" ""
"" "" 128 nil
)
)
(setq lox (vlax-invoke
lccon
'ExecQuery
"Select SerialNumber,Tag from Win32_PhysicalMedia"
)
)
(vlax-for item lox
(setq serx (cons (list (vlax-get item 'Tag)
(vlax-get
item
'SerialNumber
)
)
serx
)
)
)
(vlax-release-object lox)
(vlax-release-object lccon)
(vlax-release-object objW)
)
)
(princ (reverse serx))
(princ)
)

学习了。又吸收了一个精华。
这个东西很有用。