求windows脚本

Question

求windows脚本，此脚本大概功能如下：首先是一直ping某个IP，当ping这个IP连续10秒ping不通的时候，自动开启本机的IIS或者Apache服务   

    联系QQ-781624603     跪谢

Answer 1

本帖最后由 aleng 于 2010-04-08 09:25 编辑

ping 10.10.10.5 -n 10 | Select-String "来自 10.10.10.5 的回复:" >null
if (!$?) {notepad}
------------win powershell 脚本 测试通过----------------
ping10次，只要返回一次“来自 10.10.10.5 的回复: ”即为真。
sc start iis 可以启动iis
想要一直运行这个脚本，可以用任务计划。

Answer 2

本帖最后由 emperor 于 2010-03-26 21:57 编辑

1. '============================================================================
2. '§ Script:        StartIIS.vbs
3. '§ Purpose:       This script is used to start IIS after failed to ping an IP
4. '§ Author:        Emperor (wharton)
5. '§ Mail:         
6. '§ Version:       v1.00 (2010.03.26)
7. '§ History:       initialed on 2010.03.26                 
8. '§ Usage:      
9. '============================================================================
11. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
13. Option Explicit
15. Dim oShell     :Set oShell = CreateObject("WScript.Shell")
17. '§ ========= Set Vars =============
18. '§ ip=10.0.9.2
19. '§ n=1, wtime=10000ms.
20. '§ the 3 could be customize.
21. Dim intPings:intPings = 1
22. Dim intTO   :intTO = 10000
23. Dim sIP     :sIP = "10.0.9.2"
25. '§ =========
26. Dim sCmd    :sCmd = "%comspec% /c ping.exe -n " & intPings & " -w " & intTO & " " & sIP
27. Dim objPingOut :Set objPingOut =oShell.Exec(sCmd).StdOut
28. If InStr(objPingOut.ReadAll,"TTL=")<>0 Then
29.         oShell.popup "Pinged OK!",5,"Emperor ",0+64                             
30. Else                                       
31.   oShell.popup "Ping IP: "&sIP &" Failed, and IIS will be started in 5 minutes",5,"Emperor ",0+64
32.   Dim iCmd   :iCmd = "%comspec% /c iisreset /start"
33.   Dim sResult:sResult=oShell.Exec(iCmd).StdOut.ReadAll
34.   MsgBox sResult                              
35. End If     
37. '§ ========= Release =============   
39. Set oShell = Nothing
40. Set objPingOut = Nothing
41. Wscript.Quit         
43. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         

复制代码