关于获取硬盘信息的一些疑问。

ou67169488

caaooo 发表于 2022-9-14 16:59
我刚查了一下

Windows识别的磁盘编号取决于磁盘初始化完成的时间点。如果磁盘初始化所需要的时间不一 ...

受教了，谢谢。

ou67169488

自贡黄明儒 发表于 2022-9-14 17:33
再看这个
http://bbs.mjtd.com/thread-184656-1-1.html?_dsign=427ed74f

这种方式属于绑定U盘， 也是一种思路。

mokson

lisp能干的事情真是多。

caaooo

ou67169488 发表于 2022-9-15 09:09
受教了，谢谢。

这几天忙，一直惦记着还有这个事情，我整理了一下代码，估计这个应该就是你想要的结果了

2. (setq a (vlax-create-object "wbemscripting.swbemlocator") b (vlax-invoke a 'connectserver))
   
3. (setq c (vlax-invoke b 'execquery "select * from win32_diskpartition"))
   
4. (vlax-for e c (if (/= (vlax-get e "bootable") 0) (setq d (vlax-get e "diskindex"))))
   
5. (setq f (vlax-invoke b 'execquery "select * from win32_diskdrive"))
   
6. (vlax-for e f (if (= (vlax-get e "index") d) (setq g (vlax-get e "serialnumber"))))
   
7. (princ g)

(setq a (vlax-create-object "wbemscripting.swbemlocator") b (vlax-invoke a 'connectserver))<br /> (setq c (vlax-invoke b 'execquery "select * from win32_diskpartition"))<br /> (vlax-for e c (if (/= (vlax-get e "bootable") 0) (setq d (vlax-get e "diskindex"))))<br /> (setq f (vlax-invoke b 'execquery "select * from win32_diskdrive"))<br /> (vlax-for e f (if (= (vlax-get e "index") d) (setq g (vlax-get e "serialnumber"))))<br /> (princ g)

ou67169488

caaooo 发表于 2022-9-19 14:33
这几天忙，一直惦记着还有这个事情，我整理了一下代码，估计这个应该就是你想要的结果了

厉害，解决了我的老大难，但是M.2接口的序列号真短。。。。

zj20190405

caaooo 发表于 2022-9-19 14:33
这几天忙，一直惦记着还有这个事情，我整理了一下代码，估计这个应该就是你想要的结果了

获取的，每台电脑都不一样吗