获取U盘相关信息

xshrimp · 发表于 2012-8-13 23:29:52

本帖最后由 xshrimp 于 2012-8-13 23:35 编辑

看了chpmould贴子获取U盘相关信息
http://bbs.mjtd.com/thread-95962-1-1.html
觉得很有意思,我也模仿写了一个. 源码收币一个.
\

highflybird · 发表于 2012-8-15 10:37:20

linshiyin2 发表于 2012-8-15 10:20
这个方法基本上是最适用的，我是说，可能会因为硬件机器的原因，某些设备没有信息，不是这个方法不好，另 ...

lht · 发表于 2018-1-29 14:14:08

测试成功!如果同时插有多个U盘,能不能同时把多个U盘的序列号都显示出来,或者放在一个变量内?

ynhh · 发表于 2020-1-9 09:46:15

请问大师
这是不是可以用来做U盘加密啊

那会不会有相同的U盘都是一样的序号呢

xshrimp · 发表于 2012-8-13 23:35:51

忘记上传了.

yjr111 · 发表于 2012-8-13 23:46:32

测试OK，顶一个...

chpmould · 发表于 2012-8-14 00:21:38

本帖最后由 chpmould 于 2012-8-14 00:22 编辑

看了你这段程序,比我的精简了很多,希望你能继续将此程序进一步完善,我的思路逗了很大的弯路,当初写那个测试程序时的思路不是站在LISP的角度来写的,后续还得多多向你学习

highflybird · 发表于 2012-8-14 00:52:39

本帖最后由 highflybird 于 2012-8-15 10:01 编辑

难道序列号不是这个设备ID?

(defun C:test (/ SWbemLocator Service USBDevices Info Name ID)
(setq SWbemLocator (vlax-create-object "WbemScripting.SWbemLocator"))
(setq Service (vlax-invoke SWbemLocator 'ConnectServer))
(setq USBDevices (vlax-invoke Service 'ExecQuery "Select * From Win32_USBHub"))
(vlax-for usb USBDevices
(setq Info (vlax-invoke usb 'GetObjectText_))
(setq Name (vlax-get usb 'Name))
(if (or (wcmatch name "*Storage*") (wcmatch name "*存储*")) (alert (setq Id (vlax-get usb 'DeviceID)))
)
)
(vlax-release-object USBDevices)
(vlax-release-object Service)
(vlax-release-object SWbemLocator)
)

smartstar · 发表于 2012-8-14 08:04:57

支持老大！

YAOSHIWEI · 发表于 2012-8-14 08:17:49

顶一下啊

xujinhua · 发表于 2012-8-14 08:21:22

错误: Automation 错误。未提供说明。

linshiyin2 · 发表于 2012-8-14 08:42:54

本帖最后由 linshiyin2 于 2012-8-14 08:51 编辑

顶一下，再试一下呵呵，支持源码
需要说明一下，这个方法获取的序列号是逻辑号，格式化后会变化。

lizhiqiang9801 · 发表于 2012-8-14 08:50:57

楼主强大我的测试成功但不知道下一步怎么操作请提供一下说明

账号		自动登录	找回密码
密码			注册