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

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(Mer1)) / 1024 * 10) / 10)
TeMer.Text = CStr(Mer) & "MB"
'获得硬盘信息

Set wbemObjectSet = objWMIService.InstancesOf("Win32_DiskDrive")
For Each wbemObject In wbemObjectSet
Disk = wbemObject.Model
Next
TeDisk.Text = Disk

Set wbemObjectSet = objWMIService.InstancesOf("Win32_DiskDrive")
For Each wbemObject In wbemObjectSet
DiskSerial = wbemObject.Signature
Next
TeHd_serial.Text = DiskSerial

'获得MAC信息
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each objItem In colItems
Mac = Mac + " " + objItem.macaddress
Next
TeMac.Text = Replace(Trim(Mac), ":", "-")

'获得电脑名称
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each objItem In colItems
PCName = objItem.DNSHostName
Next
TePcName.Text = PCName

strComputer = "."
Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colIP = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each Ip In colIP
If Not IsNull(Ip.ipaddress) Then
For I = LBound(Ip.ipaddress) To UBound(Ip.ipaddress)
'Mac = Ip.macaddress(I)objObject.DNSHostName
If Ip.ipaddress(I) = "0.0.0.0" Then
Else

TeIp.Text = Trim(TeIp.Text + " " + Ip.ipaddress(I))
End If
'MsgBox "IP 地址:" & IP.ipaddress(I) & Chr(10) & _
"网卡类型:" & IP.Description(I) & Chr(10) & _
"网卡地址:" & IP.macaddress(I)
Next
End If
Next

'Set wbemObjectSet = objWMIService.InstancesOf("Win32_NetworkAdapterConfiguration")

'For Each wbemObject In wbemObjectSet
' Mac = wbemObject.MACAddress

'Next
'TeMac.Text = Mac

'获得ip 及电脑名称信息

'Set winIP = GetObject("Win32_NetworkAdapterConfiguration") 'CreateObject("MSWinsock.Winsock")
'TeIp.Text = winIP.localip
'TePcName.Text = winIP.LocalHostName

End Sub