HTPC > Skripte > Ping > 

Ping

Router anpingen und ggf. WLAN neu starten



  1. Set WshShell = CreateObject("WScript.Shell")
  2.  
  3. strComputer = "192.168.178.1"
  4.  
  5. intStartzeit = 1 ' in Minuten
  6.  
  7. WScript.Sleep intStartzeit*60*1000
  8.  
  9. Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
  10. 	ExecQuery("select * from Win32_PingStatus where address = '"_
  11. 	& strComputer & "'")
  12. For Each objStatus in objPing
  13. 	If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then 
  14. 		wshShell.RUN "c:\skripte\start-wlan.cmd"
  15. 	End If
  16. Next
  17. Wscript.Quit

Start-WLAN.cmd



  1. net stop "Konfigurationsfreie drahtlose Verbindung"
  2. sleep 5
  3. net start "Konfigurationsfreie drahtlose Verbindung"