问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

如何使用excel vba获得当前电脑的信息?

发布网友 发布时间:2022-04-22 13:27

我来回答

2个回答

热心网友 时间:2023-11-06 11:41

需要输入比较多的代码,具体参考如下:
Sub 主板序列号()
Dim objs As Object, Obj As Object, WMI As Object, 主板序列号
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each Obj In objs
MsgBox "您的主板序列号是:" + Obj.SerialNumber
Next
End Sub
Sub 显卡信息()
On Error Resume Next
Dim tmp1, tmp2
Set tmp2 = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
For Each tmp1 In tmp2
MsgBox "型 号: " & tmp1.VideoProcessor & vbCrLf & "厂 商: " & tmp1.AdapterCompatibility & vbCrLf & "名 称: " & tmp1.Name & vbCrLf & "状 态: " & tmp1.Status & vbCrLf & "显 存: " & (tmp1.AdapterRAM \ 1024000) & "MB" & vbCrLf & "驱 动(dll): " & tmp1.InstalledDisplayDrivers & vbCrLf & "驱 动(inf): " & tmp1.infFilename & vbCrLf & "版 本: " & tmp1.DriverVersion
Next
End Sub
Sub 网卡MAC()
Dim 网卡
Set 网卡 = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each 地址 In 网卡
If 地址.IPEnabled = True Then
MsgBox "网卡MAC地址: " & 地址.MacAddress
Exit For
End If
Next
End Sub
Sub 硬盘型号()
Dim 硬盘
Set 硬盘 = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
For Each mo In 硬盘
MsgBox "硬盘型号为:" & mo.Model
Next
End Sub
Sub CPU序列号()
'特别提示:这个不是唯一的,即有可能多个CPU同一一序列号
For Each 序列 In GetObject("Winmgmts:").InstancesOf("Win32_Processor")
MsgBox "CPU 序列号: " & CStr(序列.ProcessorId)
Next
End Sub
————————

热心网友 时间:2023-11-06 11:41

录制个宏看一下代码
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
Linux系统安装FTP服务器 Linux系统的网络文件共享 建筑的七盏明灯的内容简介 面向对象设计七大原则 简单说 交互设计七大定律 交互设计的“根”——七大定律 交互设计原则和理论2——七大定律 七大设计原则 附近的加油站有哪些 附近的加油站有哪些地方 EXCEL读取64位的电脑名称和物理地址 常用excel函数公式有哪些怎么用 excel如何读出完整的计算机名 EXCEL中能否用VBA读取电脑的机器码? 衣服上染上了朱砂水怎么能去掉 导入Excel的时候如何去获取Excel中页的ID Excel 如何获取本计算机的名称加域名 朱砂手串戴的时间长了如何清洗? EXCEL内链接存在多个ID怎么指定提取? 朱砂手串可以用酒清洗吗 excel怎样获取本机ip,或计算机名,或用户名 朱砂佛像脏了怎么能清理一下 朱砂怎么清洗 请何朱砂手饰脏了如何清洗 手上弄上了朱砂怎么清洗 朱砂被火烧黑怎么清洗 向日葵 百合 玫瑰的花语 朱砂手串怎么清洗 向日葵简介、花语、图片 关于“我喜欢喝茶”的英语作文(带谐音)翻译 如何在EXCEL表格里打钩? 高分求EXCEL中自动获取IP地址,不要用WINSOCK EXCEl表格怎么弄到ID或Cdr里而且能修改 Excel vba提取日期和windows帐号 EXCEL表格如何用函数实现从D列读取满足A列条件对应的ID 如何用excel精确查找某ID的分类信息 表格中如何提取网址中id后面的数值? Excel表格是什么 ? 玉米淀粉能做饺皮吗? 玉米粉可以做成饺子皮或者馄饨皮吗? 擀饺子皮可不可以用玉米淀粉做面白? 玉米百科 玉米淀粉和红薯淀粉可以做饺子皮吗? 玉米淀粉能做水晶饺子吗 做虾饺皮里面加什么淀粉 生粉加玉米淀粉可以做饺子皮吗? 玉米粉可以做饺子皮吗 玉米淀粉饺子皮的做法? 玉米芡粉可以做饺子皮吗 藕粉和面粉能做水晶虾饺面皮吗?