获取磁盘ID

461045462 · 发表于 2011-1-2 20:05:46

谢谢楼主的分享
源码收藏学习学习

azbd · 发表于 2011-1-3 11:28:29

代码测试通过，谢谢

yxl88168 · 发表于 2011-1-10 21:34:12

这东东如何用呀，有什么用呢

icefrog · 发表于 2011-1-11 19:31:16

这个东西牛B~~

zark · 发表于 2011-4-14 22:00:36

你检测那么多，肯定会占用很多时间

jialiang168 · 发表于 2011-7-11 17:31:16

楼主！可否请问一下。如何在64位元的电脑中也可以使用？

jialiang168 · 发表于 2011-7-11 18:55:55

(setq str
   "On Error Resume Next
   Set ObjWMI = GetObject(\"winmgmts:\\\\.\\root\\cimv2\")
   Set colItems = objWMI.ExecQuery(\"Select * From Win32_DiskDrive\")
   For Each objItem In colItems
   Name = objItem.Caption
   ID = objItem.PNPDeviceID
   Tab = Tab & \"{><}\" & Name & \"{><}\" & ID
   Next
   ")
"再发问一下，是否是这一句要改才可以在64位元的电脑中获取ID？
该怎么改呢？？？

skynoon · 发表于 2011-7-11 22:23:15

謝謝樓主的源碼，好好学习一下。

jialiang168 · 发表于 2011-7-13 12:47:03

等了两天了。盼不到楼主的回应。是否有高手能帮忙解答一下呢？
(setq str
   "On Error Resume Next
   Set ObjWMI = GetObject(\"winmgmts:\\\\.\\root\\cimv2\")
   Set colItems = objWMI.ExecQuery(\"Select * From Win32_DiskDrive\")
   For Each objItem In colItems
   Name = objItem.Caption
   ID = objItem.PNPDeviceID
   Tab = Tab & \"{><}\" & Name & \"{><}\" & ID
   Next
   ")
"再发问一下，是否是这一句要改才可以在64位元的电脑中获取ID？
该怎么改呢？？？

jialiang168 · 发表于 2011-9-25 14:59:48

elitefish 你的磁盘ID程序真的好用，但是最近皮用出现了个问题遇到64位元的电脑就不能用了。请问一下该如何修改，这问题我问了很久都没人回答，不知你是否有空可以向你请教一下吗？.

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