Файл или скрипт для автоматической перезагрузки роутера

Function PcOnline (strComputer)
 ‘Check if the remote machine is online.
 Dim objPing,objStatus
 Dim TextStream, TimeVar
 Dim fso, tf
 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 Set objPing = GetObject(«winmgmts:{impersonationLevel=impersonate}»)._
 ExecQuery(«select Replysize from Win32_PingStatus where address = ‘» & strComputer & “‘”)
 For Each objStatus in objPing
 If IsNull(objStatus.ReplySize) Then
 PcOnline=False
 ‘Пишем Лог файл
 Set fso = CreateObject(«Scripting.FileSystemObject»)
 If (fso.FileExists(«c:\routerlog.txt»)) Then
 Set tf = fso.OpenTextFile(«c:\routerlog.txt»,ForAppending, True)
 tf.WriteLine(Now() & ” ” & strComputer & ” is down “)
 tf.Close()
 Set fso = Nothing
 Set tf = Nothing
 Else
 Set tf = fso.CreateTextFile(«c:\routerlog.txt»,ForAppending, True)
 tf.WriteLine(Now() & ” ” & strComputer & ” is down “)
 tf.Close()
 Set fso = Nothing
 Set tf = Nothing
 End If
 ‘ Конец Лог файла
 Else
 PcOnline = True
 ‘Wscript.Echo strComputer & ” is responding to a ping ”
 End If
 Next
 Set objPing=Nothing
 Set objStatus=Nothing
 End Function
 Dim fsot, tft
 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 If PcOnline(«[url]www.ya.ru»)_[/url]
 OR PcOnline(«[url]www.google.com»)_[/url]
 Then
 ‘ если статус = 0, пустая строка — другое
 Wscript.Echo «all ok»
 Set fsot = CreateObject(«Scripting.FileSystemObject»)
 Set tft = fsot.OpenTextFile(«c:\routerlog.txt»,ForAppending, True)
 tft.WriteLine(“—————–”)
 tft.Close()
 Set fsot = Nothing
 Set tft= Nothing
 WScript.Quit 0
 Else
 ‘WScript.Echo «Reboot»
 ‘Set oShell = WScript.CreateObject(«WScript.Shell»)
 ‘oShell.Run «telnet.exe 1.1.0.1»
 ‘WScript.Sleep 2000
 ‘oShell.SendKeys «user» & chr(13)
 ‘WScript.Sleep 2000
 ‘oShell.SendKeys «password» & chr(13)
 ‘WScript.Sleep 2000
 ‘oShell.SendKeys «reload» & chr(13)
 ‘WScript.Sleep 2000
 ‘oShell.SendKeys “^({]})q” & chr(13)
 ‘WScript.Quit 255
 End If
 Set fsot = CreateObject(«Scripting.FileSystemObject»)
 Set tft = fsot.OpenTextFile(«c:\routerlog.txt»,ForAppending, True)
 tft.WriteLine(“—————–”)
 tft.Close()
 Set fsot = Nothing
 Set tft= Nothing

strComputer = "." 
strTarget = "turbo.uralcom.com"
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colPings = objWMIService.ExecQuery _ 
    ("Select * From Win32_PingStatus where Address = '" & strTarget & "'") 
If Err = 0 Then 
    Err.Clear 
        For Each objPing in colPings 
If Err = 0 Then 
    Err.Clear 
If objPing.StatusCode = 0 Then 
    ' если статус = 0, пустая строка - другое 
    Else 
        Set oShell = WScript.CreateObject("WScript.Shell") 
oShell.Run "telnet.exe 192.168.1.1" 
WScript.Sleep 1000 
oShell.SendKeys "admin" & chr(13)
WScript.Sleep 1000 
oShell.SendKeys "admin" & chr(13)
WScript.Sleep 1000 
oShell.SendKeys "reboot" & chr(13) 
End If 
Else 
Err.Clear 
WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "." 
End If 
Next 
Else 
Err.Clear 
WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "." 
End If

Function PcOnline (strComputer)
'Check if the remote machine is online.
Dim objPing,objStatus
Dim TextStream, TimeVar
Dim fso, tf
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select Replysize from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If IsNull(objStatus.ReplySize) Then
PcOnline=False
'Пишем Лог файл
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("c:\routerlog.txt")) Then
Set tf = fso.OpenTextFile("c:\routerlog.txt",ForAppending, True)
tf.WriteLine(Now() & " " & strComputer & " is down ")
tf.Close()
Set fso = Nothing
Set tf = Nothing
Else
Set tf = fso.CreateTextFile("c:\routerlog.txt",ForAppending, True)
tf.WriteLine(Now() & " " & strComputer & " is down ")
tf.Close()
Set fso = Nothing
Set tf = Nothing
End If
' Конец Лог файла
Else
PcOnline = True
End If
Next
Set objPing=Nothing
Set objStatus=Nothing
End Function
Dim fsot, tft
Const ForReading = 1, ForWriting = 2, ForAppending = 8
If PcOnline("www.ya.ru")_
OR PcOnline("www.google.com")_
Then
' если статус = 0, пустая строка — другое
Set fsot = CreateObject("Scripting.FileSystemObject")
Set tft = fsot.OpenTextFile("c:\routerlog.txt",ForAppending, True)
tft.WriteLine("-----------------")
tft.Close()
Set fsot = Nothing
Set tft= Nothing
WScript.Quit 0
Else
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "telnet.exe 192.168.1.1"
WScript.Sleep 1000
oShell.SendKeys "user" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "pass" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "reboot" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "^({]})q" & chr(13)
WScript.Quit 255
End If
Set fsot = CreateObject("Scripting.FileSystemObject")
Set tft = fsot.OpenTextFile("c:\routerlog.txt",ForAppending, True)
tft.WriteLine("-----------------")
tft.Close()
Set fsot = Nothing
Set tft= Nothing