Автоматические коммутаторы Telnet to 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