求VBS获取电脑硬件信息，并保存

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

set w=wmiExecQuery("select from win32_processor")

a="CPU名称"

for each i in w

a=a & vbcrlf & iName

next

set w=wmiExecQuery("select from win32_ComputerSystem")

a=a & vbcrlf & vbcrlf & "内存大小"

for each i in w

a=a & vbcrlf & iTotalPhysicalMemory

next

set w=wmiExecQuery("select from win32_DiskDrive")

a=a & vbcrlf & vbcrlf & "硬盘大小"

for each i in w

a=a & vbcrlf & iSize

next

set w=wmiExecQuery("select from win32_LogicalDisk where DriveType='3'")

a=a & vbcrlf & vbcrlf & "盘符----大小"

for each i in w

a=a & vbcrlf & iDeviceID & " ---- " & iSize

next

set w=wmiExecQuery("select from win32_NetworkAdapter")

a=a & vbcrlf & vbcrlf & "网络适配器"

for each i in w

a=a & vbcrlf & iProductName

next

Set w = wmiExecQuery("Select from Win32_NetworkAdapterConfiguration Where IPEnabled=True")

a=a & vbcrlf & vbcrlf & "MAC地址"

For Each i in w

a=a & vbcrlf & iMACAddress

Next

set w=wmiExecQuery("select from win32_VideoController")

a=a & vbcrlf & vbcrlf & "显卡型号----显存"

for each i in w

a=a & vbcrlf & iName & " ---- " & iAdapterRAM

next

Set FSO = CreateObject("ScriptingFileSystemObject")

set f=fsoopentextfile("xinxitxt",2,true)

fwrite "电脑信息：" & vbcrlf & vbcrlf & a

fclose

msgbox "OK"

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

部分程序命令可能出错（电脑禁用）

结果保存为“xinxitxt”

鲁大师自带系统硬件识别系统，它会扫描你的电脑配件，只要一般打开鲁大师，然后，它自己就会自动去硬件检测了，如果还想知道你的配置更准确的消息，可以选择左上角第二个栏目（硬件检测），点开后，他会自动帮你查找你的电脑配件的详细信息，比如主板啊，显卡啊，内存啊，都可以在里面查看~

以上就是关于求VBS获取电脑硬件信息，并保存全部的内容，包括:求VBS获取电脑硬件信息，并保存、鲁大师是怎么样获取电脑的硬件信息的、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！