Question

求vbs脚本获取电脑硬件信息并输出到以电脑名命名的TXT

要能把电脑名，CPU 型号（INTEL或者AMD的）、 内存大小（包括内存数量）、硬盘大小及型号、硬盘个数、网卡型号、IP（是否自动获取的IP）、网卡数量、MAC，显卡型号（最好有显存） ，这些信息一起输出到一个以计算机名命名的TXT文件里

Answer 1

哎，这年头简单的问题一大堆人抢着回答，问题刚提出来，一刷新就有人回答了（评论：......）。稍微难一些的问题确根本就没人回答，高手都隐起来了。
有些我不会的问题都不敢问，因为问了也没人回答，我在百度知道里面提的问题大约30%的问题才得到答案，像下面我提的这个问题：
http://zhidao.baidu.com/question/329417183.html
我前几天就看见你的问题了，我想让别人来回答，这个问题不是很难，就是要求多了点，可是这几天了，根本就没人回答，还是我来回答吧。

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”，计算机名若含有不能作为文件名的特殊字符将无法创建文件
外网IP地址通常是变化的，需要联网才知道IP地址（我没有编写）
内网IP地址对于上网没什么用，所以我没有编写