vbs 获取计算机内存,求VBS获取电脑硬件信息，并保存

满意答案

x617602129

2018.11.23

采纳率：59%    等级：9

已帮助：1115人

set wmi=GetObject("winmgmts:\\.\root\CIMV2")

set w=wmi.ExecQuery("select * from win32_processor")

a="CPU名称"

for each i in w

a=a & vbcrlf & i.Name

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"

说明：程序运行约2s(因为读取硬件信息)

部分程序命令可能出错(电脑禁用)

结果保存为“xinxi.txt”

00分享举报