[VLISP函数]：利用WMI获取硬盘物理ID

eachy

http://www2.allusenet.org/pages/4047.html

2. 
   
3. ;;Test OK with XP
   
4. (defun xd-phyhar        (/ ret serx objw lccon lox)
   
5.   (vl-load-com)
   
6.   (setq serx '())
   
7.   (if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
   
8.     (progn
   
9.       (SETQ lccon (VLAX-INVOKE
   
10.                     OBJW       'ConnectServer             "."
    
11.                     "\\root\\cimv2"          ""             ""
    
12.                     ""               ""          128             nil
    
13.                    )
    
14.       )
    
15.       (setq lox        (vlax-invoke
    
16.                   lccon
    
17.                   'ExecQuery
    
18.                   "Select SerialNumber,Tag from Win32_PhysicalMedia"
    
19.                 )
    
20.       )
    
21.       (vlax-for        item lox
    
22.         (setq serx (cons (list (vlax-get item 'Tag)
    
23.                                (vlax-get
    
24.                                  item
    
25.                                  'SerialNumber
    
26.                                )
    
27.                          )
    
28.                          serx
    
29.                    )
    
30.         )
    
31.       )
    
32.       (vlax-release-object lox)
    
33.       (vlax-release-object lccon)
    
34.       (vlax-release-object objW)
    
35.     )
    
36.   )
    
37.   (princ (reverse serx))
    
38.   (princ)
    
39. )

<br /> ;;Test OK with XP<br /> (defun xd-phyhar        (/ ret serx objw lccon lox)<br />   (vl-load-com)<br />   (setq serx '())<br />   (if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))<br />     (progn<br />       (SETQ lccon (VLAX-INVOKE<br />                     OBJW       'ConnectServer             "."<br />                     "\\root\\cimv2"          ""             ""<br />                     ""               ""          128             nil<br />                    )<br />       )<br />       (setq lox        (vlax-invoke<br />                   lccon<br />                   'ExecQuery<br />                   "Select SerialNumber,Tag from Win32_PhysicalMedia"<br />                 )<br />       )<br />       (vlax-for        item lox<br />         (setq serx (cons (list (vlax-get item 'Tag)<br />                                (vlax-get<br />                                  item<br />                                  'SerialNumber<br />                                )<br />                          )<br />                          serx<br />                    )<br />         )<br />       )<br />       (vlax-release-object lox)<br />       (vlax-release-object lccon)<br />       (vlax-release-object objW)<br />     )<br />   )<br />   (princ (reverse serx))<br />   (princ)<br /> )

狂刀

_$ (xd-phyhar)

错误: SWbemLocator: 无效参数

_1$

不知道是什么原因，其他人测试可以么？（win2000环境，cad2004）

它山之石

eachy已经注明：Test OK with XP
俺同狂刀的环境一样，不行。

adisonmaster

我用xp测试通过

playboy

为什么不搞一个win2000也可以的啊

小菜

(VLAX-INVOKE    OBJW       'ConnectServer     "."            "\\root\\cimv2"  ""     ""    ""       ""  128     nil   )
这一句说不定改改就可以用win2K，但不知道怎么改法

eachy

1. (VLAX-INVOKE OBJW 'ConnectServer "." "\\root\\cimv2" "" "" "" "" 128 nil )

复制代码

改为

1. 
   
2. (VLAX-INVOKE OBJW 'ConnectServer "." "\\root\\default" "" "" "" "" 128 nil )

复制代码

小菜

win2000似乎不能查到序列号，返回值总是nil

色龙

(xd-phyhar)
在XP中CAD 2002和CAD MAP2004都是以下情况
((\\.\PHYSICALDRIVE0 nil))

啵浪鼓

我知道了,斑竹的程序在管理员的模式下使用,返回值:
命令: (xd-phyhar)
((\\.\PHYSICALDRIVE0 3359475057304542202020202020202020202020))

在使用者的模式下,返回值:
命令: (xd-phyhar)
nil

小菜

win2000下无法取得序列号,用(vlax-dump-object lox)得到：; ISWbemObjectSet: A collection of Classes or Instances
; Property values:
;   Count (RO) = SWbemObjectSet: 未指定的错误

;   Security_ (RO) = #<VLA-OBJECT ISWbemSecurity 0490a540>

haibinpro

命令: 'VLIDE
命令:
命令: (xd-phyhar)
; 错误: SWbemLocator: 无效参数

wangph

电脑上插入一个U盘时就读不出来了，请问如何修改。

wyzcm

首先感谢楼主的程序,可不知为什么我在使用中总得不到预计的结果,总出错呢?

lph960405

359475057304542202020202020202020202020是什么数,我的硬盘物理号只有五位数,那些数字是什么呢?
谢谢