Скрипт для перезагрузки роутера по значению внешнего IP

Option Explicit
Const Login = "admin"
Const Passw = "12345"
 
Dim oWSH, oHTTP, oWMI, oFSO, TempFile, IP
Set oWSH  = CreateObject("WScript.Shell")
Set oHTTP = CreateObject("Msxml2.XMLHTTP")
Set oWMI  = GetObject("winmgmts:\root\cimv2")
Set oFSO  = CreateObject("Scripting.FileSystemObject")
 
With oFSO
   TempFile = .GetSpecialFolder(2) & "\" & .GetTempName
   With .CreateTextFile(TempFile)
      .Write "192.168.0.1 23" & vbCrLf & "WAIT ""Dlink-Router login: """ &_
      vbCrLf & "SEND """ & Login & "\m""" & vbCrLf & "WAIT ""Password: """ & vbCrLf &_
      "SEND """ & Passw & "\m""" & vbCrLf & "WAIT ""$ """ & vbCrLf & "SEND ""reboot\m"""
      .Close
   End With
End With
 
IP = 100
While Split(IP, ".")(0) = 100
   oWSH.Run "TST10.exe /r:""" & TempFile & """ /m", 0, 1
   While oWMI.Get("Win32_PingStatus.Address='ya.ru'").StatusCode
      WSH.Sleep 300
   Wend
   With oHTTP
      .Open "GET", "http://ipinfo.io/ip", 0
      .Send 0 : IP = .ResponseText : .Abort
   End With
Wend
 
oFSO.DeleteFile TempFile, 1
Set oHTTP = Nothing: Set oWSH = Nothing
Set oFSO  = Nothing: Set oWMI = Nothing
MsgBox "IP сменился на " & IP, 4160

Set WshShell = WScript.CreateObject("WScript.Shell")
 
WshShell.Run "telnet 192.168.0.1",9
WScript.Sleep 500
WshShell.SendKeys "admin"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "12345"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "reboot"
WshShell.SendKeys "{ENTER}"

Do
    Call RebootRouter
    WScript.Sleep 10000
Loop Until GetExtIP
 
Sub RebootRouter()
    Set WshShell = WScript.CreateObject("WScript.Shell")
 
    WshShell.Run "telnet 192.168.0.1",9
    WScript.Sleep 500
    WshShell.SendKeys "admin"
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 500
    WshShell.SendKeys "12345"
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 500
    WshShell.SendKeys "reboot"
    WshShell.SendKeys "{ENTER}"
End Sub
 
Function GetExtIP()
    GetExtIP = False
    Set o = CreateObject("Microsoft.XMLHTTP")
    o.open "GET", "http://ipinfo.io/ip", False
    o.send
    If o.Status = 200 Then
        a = Split(o.responseText, ".")
        If a(0) = 100 Then GetExtIP = True
    End if
End Function