Такой скрипт запускает окно телнета в свернутом виде, после перезагрузки если попытаться развернуть это окно - оно пропадает.
Код:
On Error Resume Next
strComputer = "." strTarget = "google.com" 'IP. 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
Else
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "telnet.exe 192.168.1.1",2
WScript.Sleep 1000
WshShell.SendKeys "admin{ENTER}" 'admin - login
WScript.Sleep 1000
WshShell.SendKeys "admin{ENTER}" 'admin - password
WScript.Sleep 1000
WshShell.SendKeys "reboot{ENTER}"
WScript.Sleep 3000
WshShell.SendKeys "{ENTER}"
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
