Автоматическое переключение между Telnet и Cisco

Question

У меня есть много переключателей, которые мы резервируем каждую ночь. Мне нужно создать задание, которое будет автоматически создавать резервную копию работающего конфига.

Я в настоящее время использую это, но как я могу использовать список IP-адресов сервера вместо того, чтобы повторять код.

Option Explicit

On Error Resume Next

Dim WshShell

set WshShell=CreateObject("WScript.Shell")

WshShell.run "cmd.exe"

WScript.Sleep 1000

'Send commands to the window as needed - IP and commands need to be customized

'Step 1 - Telnet to remote IP'

WshShell.SendKeys "telnet 10.1.130.91 23"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000


'Step 2 - Issue Commands with pauses'

WshShell.SendKeys ("password")

WScript.Sleep 1000

WshShell.SendKeys ("{Enter}")

WScript.Sleep 500
WshShell.SendKeys ("Enable")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500

WshShell.SendKeys ("password")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500

WshShell.SendKeys ("terminal length 0")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500

WshShell.SendKeys ("show running-config")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500

wshShell.SendKeys ("copy run tftp://10.1.211.53/file1.xls")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500


wshShell.SendKeys ("10.1.211.53")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500

wshShell.SendKeys ("file1.xls")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 2000


'Step 3 - Exit Command Window

WshShell.SendKeys "exit"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500
WshShell.SendKeys "exit"

WshShell.SendKeys ("{Enter}")

Answer 1

Ну вот. Просто создайте файл с именем CiscoIPs.txt со всеми вашими IP-адресами и возвратом каретки после каждого. Избегайте пробелов в конце записей.

10.2.2.23
10.4.5.23
10.5.7.23

Список IP-адресов должен находиться в той же папке, что и VBScript, но вы, безусловно, можете изменить это, отредактировав "strIPFile = "CiscoIPs.txt"в верхней части скрипта. Дайте мне знать, если у вас есть какие-либо проблемы.

Option Explicit
Dim WshShell, strIPFile, objFSO, objFile, IPAddress

strIPFile = "CiscoIPs.txt"

On Error Resume Next

set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Const ForReading =   1
Const ForWriting =   2
Const ForAppending = 8
Const ReadOnly =     1

Set objFile = objFSO.OpenTextFile(strIPFile, ForReading)

Do Until objFile.AtEndOfStream
  IPAddress = objFile.ReadLine
  'WScript.Echo IPAddress
  WshShell.run "cmd.exe"

  WScript.Sleep 1000

  'Send commands to the window as needed - IP and commands need to be customized

  'Step 1 - Telnet to remote IP'

  WshShell.SendKeys "telnet " & IPAddress & " 23"

  WshShell.SendKeys ("{Enter}")
  WScript.Sleep 1000

  'Step 2 - Issue Commands with pauses'

  WshShell.SendKeys ("password")

  WScript.Sleep 1000

  WshShell.SendKeys ("{Enter}")

  WScript.Sleep 500
  WshShell.SendKeys ("Enable")
  WshShell.SendKeys ("{Enter}")
  WScript.Sleep 500

  WshShell.SendKeys ("password")
  WshShell.SendKeys ("{Enter}")
  WScript.Sleep 500

  WshShell.SendKeys ("terminal length 0")
  WshShell.SendKeys ("{Enter}")
  WScript.Sleep 500

  WshShell.SendKeys ("show running-config")
  WshShell.SendKeys ("{Enter}")
  WScript.Sleep 500

  WshShell.SendKeys ("copy run tftp://" & IPAddress & ".xls")
  WshShell.SendKeys ("{Enter}")
  WScript.Sleep 500

  WshShell.SendKeys ("10.1.211.53")
  WshShell.SendKeys ("{Enter}")
  WScript.Sleep 500

  WshShell.SendKeys ("file1.xls")
  WshShell.SendKeys ("{Enter}")
  WScript.Sleep 2000

  'Step 3 - Exit Command Window

  WshShell.SendKeys "exit"
  WshShell.SendKeys ("{Enter}")
  WScript.Sleep 500
  WshShell.SendKeys "exit"
  WshShell.SendKeys ("{Enter}")
Loop

objFile.Close