求vbs脚本获取电脑硬件信息并输出到以电脑名命名的TXT
要能把电脑名,CPU型号(INTEL或者AMD的)、内存大小(包括内存数量)、硬盘大小及型号、硬盘个数、网卡型号、IP(是否自动获取的IP)、网卡数量、MAC,显卡型号(...
要能把电脑名,CPU 型号(INTEL或者AMD的)、 内存大小(包括内存数量)、硬盘大小及型号、硬盘个数、网卡型号、IP(是否自动获取的IP)、网卡数量、MAC,显卡型号(最好有显存) ,这些信息一起输出到一个以计算机名命名的TXT文件里
展开
展开全部
哎,这年头简单的问题一大堆人抢着回答,问题刚提出来,一刷新就有人回答了(评论:......)。稍微难一些的问题确根本就没人回答,高手都隐起来了。
有些我不会的问题都不敢问,因为问了也没人回答,我在百度知道里面提的问题大约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地址对于上网没什么用,所以我没有编写
有些我不会的问题都不敢问,因为问了也没人回答,我在百度知道里面提的问题大约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地址对于上网没什么用,所以我没有编写
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询