VBA获取您的电脑硬件信息

jiangwh15 · 发表于 2011-11-23 15:57

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

朝明 · 发表于 2011-12-20 23:07

sblisb 发表于 2009-3-11 20:36
软件的也放在这吧，自己收集一下
取得文件属性
Sub FileInfo()

用不来，可以用自定义函数的形式吗？

studio51701 · 发表于 2012-1-3 12:21

感谢分享。。。。

xsy我可以很好 · 发表于 2012-1-13 17:22

罗老师，你太厉害了，我是你的忠实读者。

苯苯虎 · 发表于 2012-3-8 17:15

{:soso_e100:}{:soso_e179:}{:soso_e179:}

苯苯虎 · 发表于 2012-3-8 17:17

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

huyuwang · 发表于 2012-3-17 23:16

高人啊，羡慕

ycf8848 · 发表于 2012-4-19 11:55

提示: 作者被禁止或删除内容自动屏蔽

jhzghua · 发表于 2012-4-19 20:34

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

文宇 · 发表于 2012-4-20 15:23

佩服，用的出神入化

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

ycf8848 ycf8848 当前离线性别保密 UID 1741754 阅读权限 0 注册时间 2012-2-23 在线时间小时最后登录 1970-1-1 积分 90 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2012-4-19 11:55 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

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