获取磁盘ID

lohas1118

感谢楼主分享!

snddd2000

wangph 发表于 2010-12-4 08:17
很好，CPU的物理ID一直没有见到过，能有一个更好了

2. (defun wmiProcessorId (/ item meth1 meth2 s serx wmi)
   
3.   (vl-load-com)
   
4.   (setq WMI (vlax-create-object "WbemScripting.SWbemLocator")
   
5. meth1 (VLAX-INVOKE WMI 'ConnectServer nil nil nil nil nil nil nil nil)
   
6. meth2 (vlax-invoke meth1 'ExecQuery "select ProcessorId from Win32_Processor")
   
7. s (vlax-for item meth2 (setq serx (list (vlax-get item 'ProcessorId))))
   
8.   )
   
9.   (vlax-release-object meth1)
   
10.   (vlax-release-object meth2)
    
11.   (vlax-release-object wmi)
    
12.   (car s)
    
13. )
    

(defun wmiProcessorId (/ item meth1 meth2 s serx wmi)<br />   (vl-load-com)<br />   (setq WMI (vlax-create-object "WbemScripting.SWbemLocator")<br /> meth1 (VLAX-INVOKE WMI 'ConnectServer nil nil nil nil nil nil nil nil)<br /> meth2 (vlax-invoke meth1 'ExecQuery "select ProcessorId from Win32_Processor")<br /> s (vlax-for item meth2 (setq serx (list (vlax-get item 'ProcessorId))))<br />   )<br />   (vlax-release-object meth1)<br />   (vlax-release-object meth2)<br />   (vlax-release-object wmi)<br />   (car s)<br /> )<br />

记不得从哪里找来的。

425017842

多谢楼主分享源码

qfkxc

有的电脑无法得到id号不知什么原因

byxs

请问楼主能不能开发一个改磁盘ID的软件啊？

wangph

snddd2000 发表于 2011-12-6 11:35
记不得从哪里找来的。

这个不是物理的，网上是有的

宇涵他爹/

顶起！向楼主学习！

革天明

谢谢楼主分享！

lichenxui

感謝樓主分享好源碼

pslstar

谢谢分享！
谢谢分享！