求windows脚本

luwenju

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

    联系QQ-781624603     跪谢

emperor

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. '============================================================================
   
10. 
    
11. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    
12. 
    
13. Option Explicit
    
14. 
    
15. Dim oShell     :Set oShell = CreateObject("WScript.Shell")
    
16. 
    
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"
    
24. 
    
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     
    
36. 
    
37. '§ ========= Release =============   
    
38. 
    
39. Set oShell = Nothing
    
40. Set objPingOut = Nothing
    
41. Wscript.Quit         
    
42. 
    
43. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         

复制代码

aleng

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
想要一直运行这个脚本，可以用任务计划。