VBA获取您的电脑硬件信息

mynamezp · 发表于 2011-3-2 16:23

弱弱的问一句怎样把获取到的ID记录到单元格呢

无辣味水煮鱼 · 发表于 2011-3-2 16:32

Thank you very much, It is usefull.

tmzxgxw · 发表于 2011-3-22 12:30

写得真好，受用了，谢谢

baixingr · 发表于 2011-3-22 12:40

支持与学习

lanceflyliu · 发表于 2011-5-21 16:58

这个还不错，收藏一下

wpxxsyzx · 发表于 2011-5-21 17:54

http://club.excelhome.net/viewthread.php?tid=721323&extra=page%3D1%26amp%3Bfilter%3D0%26amp%3Borderby%3Dlastpost%26amp%3Bascdesc%3DDESC
这里齐全，还有优盘物理序列号

yuioplkjh · 发表于 2011-6-19 12:26

收藏，学习，感谢，支持！

peter-chen · 发表于 2011-8-20 21:55

THANK YOU FOR YR SHARING AGAIN, I HAVE USED YR 网卡MAC() BEFORE, IT'S VERY GOOD!

peter-chen · 发表于 2011-8-20 22:36

请教:请教：请问如何用VBA编写一个让别人用破解软件更改了密码后仍然打不开文件或密码不是自己原来设置的就删除指定的文件！
也就是说VBA工程密码或EXCEL 打开密码与自己设定不一样时，DELE文件或删除重要资料的表吗？因为密码目前很容易破解，但是被破解后密码与原来不一样的时候可以保护文件。

xq1234 · 发表于 2011-8-20 23:59

经测试, GetHardDiskInfo 函数代码需然沉长,但速度比 GetObject("Winmgmts:"). 至少快5-10倍

Sub 硬盘型号()
t = Timer
Dim 硬盘
Set 硬盘 = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
For Each mo In 硬盘
aa = "硬盘型号为:" & mo.Model
Next
MsgBox Timer - t & vbLf & aa

End Sub

Sub 硬盘型号2()
t = Timer
aa = GetHardDiskInfo(hdPrimaryMaster, hdmodelsn)
MsgBox Timer - t & vbLf & aa
End Sub

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

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