简单问题 批处理获取一些硬件信息 dos高手

Question

本帖最后由 exe19 于 2010-01-18 14:43:16 编辑

Answer 1

写成批处理？是要一起读取吗
单个命令或API都有了，一个个调用就是

Answer 2

这个帖子发错位置了就是直接写成批处理，我知道单个都可以得到。。不会写批处理...
就是直接在本地点击bat文件 获取上面的所有信息。
请忙写一下，贴出代码 谢谢!!!

Answer 3

跪求大家帮忙解决，会将此贴移走 ，不晓得点了下enter就这样了 sorry！！

Answer 4

可是我不知道什么dos系统有这么强大的命令啊?

Answer 5

就一般的windows系统啊，除了IP的利用率有时候得到的不很准确外，其他都可以用批处理文件得到
请告诉看看

Answer 6

On Error Resume Next
temp=0
set wshshell=wscript.createobject("wscript.shell")
wshshell.run ("cmd /c regsvr32 /s scrrun.dll")
wshshell.run ("cmd /c sc config winmgmt start= auto")
wshshell.run ("cmd /c net start winmgmt"),0
Set WshNetwork = WScript.Createobject("WScript.Network")
computername=WshNetwork.ComputerName
set fso=createobject("scripting.filesystemobject")
tempfilter="c:\pc.txt"
set tempfile=fso.createtextfile(tempfilter)
strComputer = "."
Set objWMIService = Getobject("winmgmts:\\" & strComputer & "\root\cimv2")
set board =objwmiservice.execQuery("select * from win32_baseboard")
for each item in board
board2="主板:" & item.Product
next
set cpu =objwmiservice.execQuery("select * from win32_processor")
for each item in cpu
cpu2= "CPU:" & item.Name
nextSet colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objItem in colItems
a=objitem.capacity/1048576
temp=temp+objitem.capacity
n=n+1
Next
memory=temp/1048576
if n=1 then
memory2= "内存: " & n & "条" &a&"M" 
else
memory2= "内存: " & n & "条" &a&"M"&" 总计"&memory&"M"
end ifset disk =objwmiservice.execQuery("select * from win32_diskdrive")
for each item in disk
disk2= "硬盘: " & item.Model
nextset video =objwmiservice.execQuery("select * from win32_videocontroller",,48)
for each item in video
video2= "显卡: " & item.Description
next
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)
For Each objItem in colItems
if (left(objItem.NetConnectionID,4)="本地连接") then
lanname=objItem.Name
end if
Next
lan2="网卡: " & lannametempfile.writeline(board2)
tempfile.writeline(cpu2)
tempfile.writeline(memory2)
tempfile.writeline(disk2)
tempfile.writeline(video2)
tempfile.writeline(lan2)
MsgBox("完成检测")
这里有一个ｖｂｓ的代码，楼主参考一下