Вы можете добавить запланированное задание и не вводить учетные данные или пароль для него. Это заставит его работать в ЛОКАЛЬНОЙ СИСТЕМЕ (обычно это контекст, используемый службой планировщика заданий).
Имейте в виду, что это сценарий уязвимости бэкдора: любой, кому разрешено редактировать файл сценария, может использовать его для выполнения нежелательных действий на компьютере, на котором выполняется задача. Поместите соответствующее разрешение в файл сценария, чтобы предотвратить это. С другой стороны - задача, выполняемая как ЛОКАЛЬНАЯ СИСТЕМА, не может разрушить сеть.
Я предлагаю вам немного сжать файл скрипта:
Set WshShell = WScript.CreateObject("WScript.Shell")
Run "cmd.exe"
SendKeys "telnet 10.20.70.254{ENTER}"
SendKeys "netscreen"
SendKeys "{ENTER}"
SendKeys "netscreen"
SendKeys "{ENTER}"
SendKeys "save conf to tftp 10.10.40.139 test.cfg{ENTER}"
SendKeys "exit{ENTER}" 'close telnet session'
Run "cmd.exe"
SendKeys "telnet 10.20.70.254{ENTER}"
SendKeys "netscreen"
SendKeys "{ENTER}"
SendKeys "netscreen"
SendKeys "{ENTER}"
SendKeys "save conf to tftp 10.10.40.139 palsg140.cfg{ENTER}" 'repeat as needed
SendKeys "exit{ENTER}" 'close telnet session'
SendKeys "{ENTER}" 'get command prompt back
SendKeys "exit{ENTER}" 'close cmd.exe
SendKeys "{ENTER}" 'get command prompt back
SendKeys "exit{ENTER}" 'close cmd.exe
Sub SendKeys(s)
WshShell.SendKeys s
WScript.Sleep 300
End Sub
Sub Run(command)
WshShell.Run command
WScript.Sleep 100
WshShell.AppActivate command
WScript.Sleep 300
End Sub