set wmi=GetObject("winmgmts:\\.\root\CIMV2")
set wmi2=GetObject("winmgmts:\\.\root\WMI")
set w=wmi.ExecQuery("select * from win32_Battery")
a="Battery"
for each i in w
a=a & vbcrlf & i.Availability
a=a & vbcrlf & i.BatteryStatus
a=a & vbcrlf & i.BatteryRechargeTime
a=a & vbcrlf & i.MaxRechargeTime
a=a & vbcrlf & i.Status
a=a & vbcrlf & i.StatusInfo
a=a & vbcrlf & i.TimeOnBattery
a=a & vbcrlf & i.TimeToFullCharge
next
set w=wmi.ExecQuery("select * from win32_processor")
a=a & vbcrlf & "CPU名称"
for each i in w
a=a & vbcrlf & i.Name
next
set w=wmi2.ExecQuery("select * from MSAcpi_ThermalZoneTemperature")
a=a & vbcrlf & vbcrlf & "CPU温度"
for each i in w
a=a & vbcrlf & (i.CurrentTemperature - 2732)/10.0
next
set w=wmi.ExecQuery("select * from win32_ComputerSystem")
a=a & vbcrlf & vbcrlf & "内存大小"
for each i in w
a=a & vbcrlf & i.TotalPhysicalMemory
next
set w=wmi.ExecQuery("select * from win32_DiskDrive")
a=a & vbcrlf & vbcrlf & "硬盘大小"
for each i in w
a=a & vbcrlf & i.Size
next
set w=wmi.ExecQuery("select * from win32_LogicalDisk where DriveType='3'")
a=a & vbcrlf & vbcrlf & "盘符----大小"
for each i in w
a=a & vbcrlf & i.DeviceID & " ---- " & i.Size
next
set w=wmi.ExecQuery("select * from win32_NetworkAdapter")
a=a & vbcrlf & vbcrlf & "网络适配器"
for each i in w
a=a & vbcrlf & i.ProductName
next
Set w = wmi.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=True")
a=a & vbcrlf & vbcrlf & "MAC地址"
For Each i in w
a=a & vbcrlf & i.MACAddress
Next
set w=wmi.ExecQuery("select * from win32_VideoController")
a=a & vbcrlf & vbcrlf & "显卡型号----显存"
for each i in w
a=a & vbcrlf & i.Name & " ---- " & i.AdapterRAM
next
Set FSO = CreateObject("Scripting.FileSystemObject")
set f=fso.opentextfile("xinxi.txt",2,true)
f.write "电脑信息:" & vbcrlf & vbcrlf & a
f.close
msgbox "OK"
引用C代码