AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]LISP要如何讀取硬碟序號 Ioaoe110[討論]LISP要如何讀取硬碟序號 2020-310[討論]LISP要如何讀取硬碟序號 Oiu15010[討論]LISP要如何讀取硬碟序號 2020-211[討論]LISP要如何讀取硬碟序號 Ia15010[討論]LISP要如何讀取硬碟序號 Aizyao10[討論]LISP要如何讀取硬碟序號 Uos15010[討論]LISP要如何讀取硬碟序號 BPl3tjj[討論]LISP要如何讀取硬碟序號 Ziao1510
[討論]LISP要如何讀取硬碟序號 Oo-2-110[討論]LISP要如何讀取硬碟序號 Zuoiy_10[討論]LISP要如何讀取硬碟序號 Aizyao11[討論]LISP要如何讀取硬碟序號 Iyb_1510[討論]LISP要如何讀取硬碟序號 Aoe1-111[討論]LISP要如何讀取硬碟序號 Uos15011[討論]LISP要如何讀取硬碟序號 Aoe2da10[討論]LISP要如何讀取硬碟序號 Aoe2da11[討論]LISP要如何讀取硬碟序號 Aoe10

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

3 posters

向下

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

發表 由 tarpon 2011-08-09, 01:04

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


tarpon 在 2011-08-16, 10:22 作了第 1 次修改
tarpon
tarpon
中級會員
中級會員

文章總數 : 209
年齡 : 33
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 6013
威望值 : 263
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下

[討論]LISP要如何讀取硬碟序號 Empty 回復: [討論]LISP要如何讀取硬碟序號

發表 由 明~ 2011-08-10, 01:43

在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
)
明~
明~
高級會員
高級會員

文章總數 : 307
年齡 : 44
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 6956
威望值 : 667
注冊日期 : 2009-12-24
藍鵲292號
男 雙魚座 猴

回頂端 向下

[討論]LISP要如何讀取硬碟序號 Empty 回復: [討論]LISP要如何讀取硬碟序號

發表 由 tarpon 2011-08-10, 07:34

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)
)
tarpon
tarpon
中級會員
中級會員

文章總數 : 209
年齡 : 33
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 6013
威望值 : 263
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下

[討論]LISP要如何讀取硬碟序號 Empty 回復: [討論]LISP要如何讀取硬碟序號

發表 由 cvi001 2011-09-02, 13:57

学习了。又吸收了一个精华。
这个东西很有用。
cvi001
cvi001
初級會員
初級會員

文章總數 : 20
年齡 : 40
來自 : 贵州
職業 : 贵州省地矿局职员
愛好 : AutoCAD LISP 编程
個性 : 无聊
使用年資 : 新手
使用版本 : 2011
積分 : 1
經驗值 : 4700
威望值 : 31
注冊日期 : 2011-08-26
男 水瓶座 豬

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]LISP要如何讀取硬碟序號 Ioaoe110[討論]LISP要如何讀取硬碟序號 2020-310[討論]LISP要如何讀取硬碟序號 Oiu15010[討論]LISP要如何讀取硬碟序號 2020-211[討論]LISP要如何讀取硬碟序號 Ia15010[討論]LISP要如何讀取硬碟序號 Aizyao10[討論]LISP要如何讀取硬碟序號 Uos15010[討論]LISP要如何讀取硬碟序號 BPl3tjj[討論]LISP要如何讀取硬碟序號 Ziao1510
[討論]LISP要如何讀取硬碟序號 Oo-2-110[討論]LISP要如何讀取硬碟序號 Zuoiy_10[討論]LISP要如何讀取硬碟序號 Aizyao11[討論]LISP要如何讀取硬碟序號 Iyb_1510[討論]LISP要如何讀取硬碟序號 Aoe1-111[討論]LISP要如何讀取硬碟序號 Uos15011[討論]LISP要如何讀取硬碟序號 Aoe2da10[討論]LISP要如何讀取硬碟序號 Aoe2da11[討論]LISP要如何讀取硬碟序號 Aoe10