用VB 写程序获取MAC ,IP ,hd ,CPU,内存,电脑名称等信息

最新推荐文章于 2022-11-15 12:37:21 发布

utpcb

最新推荐文章于 2022-11-15 12:37:21 发布

阅读量3.2k

点赞数

文章标签： vb each disk

本文链接：https://blog.youkuaiyun.com/utpcb/article/details/2033544

版权

这个VB程序用于获取电脑的CPU型号、内存大小、硬盘信息、MAC地址、IP地址和电脑名称。通过WMI（Windows Management Instrumentation）技术，程序遍历相关对象集合，收集并显示这些系统详细信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Form_Load()
Dim Cpu, Mer, Disk, Mac, Ip, DiskSerial, PCName
strComputer = "."
Cpu = ""
Mer = ""
Disk = ""
Mac = ""
Ip = ""
DiskSerial = ""
PCName = ""

'密码初始化标签
TePs.Text = ""
'获得CPU信息
Set objWMIService = GetObject("winmgmts://" & strComputer)
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
Cpu = objItem.Name
Next
TeCpu.Text = Trim(Cpu)

'获得内存信息
Set wbemObjectSet = objWMIService.InstancesOf("Win32_LogicalMemoryConfiguration") 'Win32_LogicalMemoryConfiguration Win32_PhysicalMemory

For Each wbemObject In wbemObjectSet
Mer1 = wbemObject.TotalPhysicalMemory ' & "KB"
Next
Mer = Int(((CLng(