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

获取U盘相关信息

本帖最后由 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 static/image/common/back.gif
这个方法基本上是最适用的，我是说，可能会因为硬件机器的原因，某些设备没有信息，不是这个方法不好，另 ...

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85042

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

楼主强大 我的测试成功但不知道下一步怎么操作 请提供一下说明
页: [1] 2 3 4
查看完整版本: 获取U盘相关信息