魔兽世界法师专业:用脚本自动检测硬件信息,再用脚本Excel输出

 用脚本自动检测硬件信息,再用脚本Excel输出在网吧,由于我们老板经常叫我们查配件,所以有空就自己编了个脚本.一直在用,没出什么问题.希望对有用的人有点帮助.以下是VBS脚本的内容:'本脚本的功能是检测硬件的信息。
OnErrorResumeNext
temp=0
setwshshell=wscript.createｏｂｊｅｃｔ("wscript.shell")
'启动WMI服务
wshshell.run("%comspec%/cregsvr32/sscrrun.dll"),0,True
wshshell.run("%comspec%/cscconfig winmgmtstart=auto"),0,True
wshshell.run("%comspec%/cnetstartwinmgmt"),0
'用一个文本来记录硬件信息
SetWshNetwork=WScript.Createｏｂｊｅｃｔ("WScript.Network")
computername=WshNetwork.ComputerNamesetfso=createｏｂｊｅｃｔ("scripting.filesystemｏｂｊｅｃｔ")
tempfilter="\\game\ps$\"&computername&".txt"
'\\game\ps$\是服务器存放配件表的位置。共享要完全享
settempfile=fso.createtextfile(tempfilter)strComputer="."
SetobjWMIService=Getｏｂｊｅｃｔ("winmgmts:\\"&strComputer&"\root\cimv2")
'主板
setboard=objwmiservice.execQuery("select*fromwin32_baseboard")
foreachiteminboard
board2="主板:"&item.Product
next
'CPU
setcpu=objwmiservice.execQuery("select*fromwin32_processor")
foreachitemincpu
cpu2="CPU:"&item.Name
next
'内存
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_PhysicalMemory",,48)
ForEachobjItemincolItems
a=objitem.capacity/1048576
temp=temp+objitem.capacity
n=n+1
Next
memory=temp/1048576
ifn=1then
memory2="内存:"&n&"条"&a&"M"
else
memory2="内存:"&n&"条"&a&"M"&"总计"&memory&"M"
endif
'硬盘
setdisk=objwmiservice.execQuery("select*fromwin32_diskdrive")
foreachitemindisk
   disk2="硬盘:"& item.Model
next'显卡
setvideo=objwmiservice.execQuery("select*fromwin32_videocontroller",,48)
foreachiteminvideo
 video2="显卡:"&item.Description
next
'网卡
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_NetworkAdapter",,48)
ForEachobjItemincolItems
 if(left(objItem.NetConnectionID,4)="本地连接")then
lanname=objItem.Name  
endif
Next
lan2="网卡:"&lannametempfile.writeline(board2)
tempfile.writeline(cpu2)
tempfile.writeline(memory2)
tempfile.writeline(disk2)
tempfile.writeline(video2)tempfile.writeline(lan2)把以上的内容保存为hardware.vbs
然后如果你的客户机有开机自动运行功能的话。把这个VBS脚本加进去，客户机开机后会自动执行脚本后，以计算机名为文件名的文本文件写入到你服务器的位置。如以前的\\game\ps$.有什么问题。联系我QQ：149525162
下载脚本
 点击浏览该文件当把这个配件单都生成完毕后，在服务器用下面这个脚本自动用Excel输出
Constforwriting=2
Constforreading=1
DimoFSO,oF,r1,s
SetoFSO=CreateObject("Scripting.FileSystemObject")SetoShell=WScript.CreateObject("WScript.Shell")
oshell.run("%comspec%/cifexistc:\temp.txtdel/qc:\temp.txt"),0,True
oshell.run("%comspec%/cifexistc:\excel.csvdel/qc:\excel.csv"),0,True
oshell.run("%comspec%/cdir/b/n*.txt>>c:\temp.txt"),0,True
SetoF=oFSO.CreateTextFile("c:\excel.csv")
of.writeline"机号,主板,CPU,内存,硬盘,显卡,网卡"
SetobjFSO1=CreateObject("Scripting.FileSystemObject")
SetobjTextFile1=objFSO1.OpenTextFile_
   ("c:\temp.txt",ForReading)
objTextFile1.ReadAll
line=objTextFile1.line
forl=1toline-1SetobjFSO=CreateObject("Scripting.FileSystemObject")
SetobjTextFile=objFSO.OpenTextFile("c:\temp.txt",ForReading)Fori=1tol
r1=objTextFile.ReadLine
nextfile=left(r1,len(r1)-4)&","
Setfso=CreateObject("Scripting.FileSystemObject")
setf=fso.OpenTextFile(r1,Forreading)fori=1to6
f.skip(3)
r=f.readline
file=file&r&","
nextof.writelinefile
next
oshell.run("c:\excel.csv"),0,True把以上内容保存成"生成Execl.vbs"放在生成配件单的文件夹中，运行一下就OK了。
下载“生成Execl.vbs"脚本20051215185333402.rar 文章来自: 好喜爱学习网(http://www.haoxiai.net) 网址：http://www.haoxiai.net/wangba/ruanjianyingyong/123875.html