标题: 请帮我看下这段批处理用VBS怎么写`` [打印本页]

---

作者: fengzi     时间: 2007-7-8 19:06    标题: 请帮我看下这段批处理用VBS怎么写``

:kaishi
ping -n 30 127.0.0.1
tasklist | find /i "ssp.exe" >nul 2>nul || shutdown /s /t 30
goto kaishi


可不可以加到其他的VBS里面``功能不变
set Ws = WScript.CreateObject("WScript.Shell")
count=0
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if ps.name="wscript.exe" then count=count+1
next
if count > 2 then wscript.quit
i=1
for i = 1 to 3
i=i-1
WScript.Sleep(1000*60*0.1)
ws.run "arp -s 192.168.0.1 00-e0-4c-39-70-9e",0
next