VBS WMI acquires computer hardware information instance _vbs

Set wmi=getobject ("winmgmts:\\")

Set board=wmi.instancesof ("Win32_baseboard")
For each B in board
msg= "Motherboard:" &B.MANUFACTURER&VBTAB&B.PRODUCT&VBTAB&CHR (13)
Next
MSG=MSG&CHR & "---" +CHR (13)

Set cpus=wmi.instancesof ("Win32_Processor")
msg=msg& "CPU Features:" +CHR (13)
For all CPU in CPUs
MSG=MSG+CPU.DEVICEID&VBTAB&CPU.NAME&CHR (13) _
&vbtab&cpu. Socketdesignation&vbtab&cpu. currentclockspeed& "MHz" &vbtab&cpu.l2cachesize& "Kb_l2" &CHR (13)
Next
MSG=MSG&CHR & "---" +CHR (13)

Set mem=wmi.instancesof ("Win32_physicalmemory")
msg=msg& "Memory Capacity:" +CHR (13)
For each m in mem
Msg=msg&m.tag&space (&M.CAPACITY&+CHR) (13)
Next

Set mem=wmi.instancesof ("Win32_ComputerSystem")
For each m in mem
msg=msg& "Total memory Capacity:" &round (m.totalphysicalmemory/1024^2), 2) & "M" +CHR (13)
Next
MSG=MSG&CHR & "---" +CHR (13)

Set display=wmi.instancesof ("Win32_VideoController")
msg=msg& "Display system:" +CHR (13)
For each display
MSG=MSG&VIDEO.DEVICEID&VBTAB&VIDEO.NAME&CHR (13)
Next
MSG=MSG&CHR & "---" +CHR (13)


Set disks=wmi.instancesof ("Win32_DiskDrive")
msg=msg& "Hard disk Capacity:" +CHR (13)
For each D in disks
If Int (d.size/(1024^3)) =0 Then
N=round (d.size/(1024^2), 2) & "M"
Else
N=round (d.size/(1024^3), 2) & "G"
End If

msg=msg+d.deviceid& "Space for:" &N&CHR (13)
Next
MSG=MSG&CHR & "---" +CHR (13)


MsgBox msg,0, "Basic computer Features"