VBA获取您的电脑硬件信息

yhdcxy · 发表于 2010-12-24 09:58

楼主是个牛人呀

tfc · 发表于 2010-12-24 10:39

牛！非常好。

qhllqhll · 发表于 2010-12-24 10:43

谢谢老师，您是vb最强的，祝你好运

dodo2000 · 发表于 2010-12-24 14:27

帮助很大，顶起！

CLTZGS · 发表于 2010-12-25 11:09

面对这么强的搂主，只能无语。

yuanhongly · 发表于 2010-12-25 12:59

请教楼主及各位高手，有什么更好的办法取U盘的唯一的物理序列号吗？

qhllqhll · 发表于 2010-12-27 16:44

老师您好：首先万分感谢您提供了这么好的代码结构和方法，还有个小遗憾我提供的代码 “Set 硬盘 = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")”
获取的不是每个硬盘的唯一序列号，
下面这段代码获得的硬盘号，不是硬盘的唯一物理序号，请帮助在修改，谢谢！是否加上您的代码就可能行了，见您的“答案”附件。
Sub 硬盘型号()
Dim 硬盘
Dim STR As String
Set 硬盘 = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
For Each mo In 硬盘
      If Len("硬盘型号为:" & mo.Model) > 1 Then
         STR = mo.Model
         Exit For
      End If
Next
If STR = "这里写你指定的硬盘型号" Then
      '这里写你的代码
Else
      ThisWorkbook.Close 0
      Application.Quit
End If
End Sub
这是您的“MsgBox GetObject("winmgmts:").InstancesOf("Win32_PhysicalMedia")("Win32_PhysicalMedia.Tag=""\\\\.\\PHYSICALDRIVE0""").serialnumber”此代码我没试验成功，有的电脑提示错误信息，检测不到序号，请指

[ 本帖最后由 qhllqhll 于 2010-12-27 17:22 编辑 ]

zhy253 · 发表于 2011-1-8 11:32

好东西，学习！

yaojil · 发表于 2011-1-29 16:05

这些对注册加密很有用处的

zzx97102 · 发表于 2011-2-1 22:17

震撼！！震撼！！震撼！！

		自动登录	找回密码
密码			免费注册

[分享] VBA获取您的电脑硬件信息

回复 80楼 andysky 的帖子

回复 80楼 andysky 的帖子