求一个VBS程序：

显示全部楼层 · 2011-5-7 03:41:01

每隔一分检查某个IP地址是否PING得通，如果PING不通超过1分钟，则结束一个指定的进程，再关闭本机。

千问 · 2011-5-7 03:41:01

\'═════代═══码═══开═══始═════
SetWsh=WScript.CreateObject(\"WScript.Shell\")
SetobjWMIService=GetObject(\"winmgmts:\\\\.\\root\\cimv2\")
do
timeout=0
fori=1to60
SetcolItems=objWMIService.ExecQuery(\"Select*fromWin32_PingStatusWhereAddress=\'129.168.1.109\'\")
\'将这里的ip地址换成你要ping的IP或者域名
ForEachobjItemincolItems
IfobjItem.StatusCode=0Thenexitfor
Next
next
ws.run\"cmd/ctaskkill/f/imqq.exe\",0
ws.run\"cmd/cshutdown-s-t0\",0
\'将qq.qxe换成你要结束的程序名称
loop
\'CreatedByescortmnmfromVBS团队
\'═════代═══码═══结═══束═════

<h4class=\"ask\">追问

行：1
字符：1
错误：错误的参数个数或无效的参数属性值：‘wsh’
代码：800A01C2

千问 · 2011-5-7 03:41:01

Setws=CreateObject(\"WScript.Shell\")
SetobjWMIService=GetObject(\"winmgmts:\\\\.\\root\\cimv2\")
do
fori=1to60
SetcolItems=objWMIService.ExecQuery(\"Select*fromWin32_PingStatusWhereAddress=\'129.168.1.109\'\")
\'将这里的ip地址换成你要ping的IP或者域名
ForEachobjItemincolItems
IfobjItem.StatusCode=0Thenexitfor
Next
next
ws.run\"cmd/ctaskkill/f/imqq.exe\",0
ws.run\"cmd/cshutdown-s-t0\",0
\'将qq.qxe换成你要结束的程序名称
loop

千问 · 2011-5-7 03:41:01

大侠：程序是可以运行，不可还有点小问题，192.168.1.1是我的路由器，应该来说是PING得通的，但是还是结束了QQ这个进程，并关机！！！
能否再改改，？？

再加一语句，如果指定的进程不存在则显示一个提示信息，程序终止向下执行。
好人做到底吧！！！大侠！！

千问 · 2011-5-7 03:41:01

刚才失误，修改好了：

\'═════代═══码═══开═══始═════
Setws=CreateObject(\"WScript.Shell\")
SetobjWMIService=GetObject(\"winmgmts:\\\\.\\root\\cimv2\")
do
fori=1to6
SetcolItems=objWMIService.ExecQuery(\"Select*fromWin32_PingStatusWhereAddress=\'192.168.1.1\'\")
\'将这里的ip地址换成你要ping的IP或者域名
k=0
ForEachobjItemincolItems
IfobjItem.StatusCode=0Thenk=1
Next
ifk=1thenexitfor
next
ifi=7then
SetwmiObjects=objWMIService.ExecQuery(\"SELECT*FROMWin32_processwherename=\'qq.exe\'\")
\'将qq.qxe换成你要结束的程序名称
ifwmiObjects.count=0then
msgbox\"指定的进程不存在\"
wscript.quit
endif
ForEachwmiObjectInwmiObjects
wmiObject.terminate
next
ws.run\"cmd/cshutdown-s-t0\",0
endif
wscript.sleep2
loop
\'═════代═══码═══结═══束═════