깡통이 2017-12

여러 방법이 있겠지만 Fabric 을 사용하시는 것이 가장 쉽고 강력할 것입니다.
python 라이브러리인데, ssh를 이용해서 서버에 접속해 원격으로 명령을 실행할 수 있습니다.
hostname 같은 명령어를 병렬로 동시에 날려서 확인하시면 됩니다.
http://www.fabfile.org

조용원 2017-12

telnet 이 리다이렉트를 지원안합니다 ;;

ASR9K 2017-12

<예전 L2/L3 관리할때 썼던 스크립트 입니다.>
스크립트만 조금 수정해서 사용하시면 될것 같습니다.
프로그램은 SecureCRT로 돌렸습니다.
추가로 필요한 파일은 접속 Host 파일과 명령어 파일이 필요합니다.
--------------------------------------------------------
#$language = "VBScript"
#$interface = "1.0"


'''''''''' 라우터 자동점검 스크립트
'''''''''' 2009-04-15
'''''''''' Made by Jay


Dim DevIP(255)
Dim Passwd
Dim Enpasswd
        Dim Command(100)
        Dim CmdCount
Dim DevCount

        CmdCount = 0
        DevCount = 0
'''''''''' DevIP(255) : 라우터 IP를 등록할 변수 - 장비 최대 255개 등록가능
'''''''''' Passwd : 패스워드 변수
'''''''''' Enpasswd : Enable 패스워드 변수
'''''''''' Command(100) : 실행할 명령을 등록할 변수 - 최대 100개 명령 실행 가능
'''''''''' CmdCount : 명령의 갯수 만큼 루프를 돌릴 변수
'''''''''' DevCount : 장비의 갯수만큼 루프를 돌릴 변수



Sub main
  Dim A
FileRead
  for A=1 to DevCount
  call RunCmd(DevIP(A))
  next
End Sub
'''''''''' FileRead Sub 함수에서 장비 IP, 패스워드, 실행할 명령을 읽어온다
'''''''''' 장비의 갯수만큼 루프를 돌려서 RunCmd Sub 함수에서 명령어를 실행한다.



Sub FileRead
'''''''''' 파일을 열어서 한번에 한줄씩 읽는다.

Dim fso, f, str
Const ForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("D:\visual script\Backbone_password.txt", ForReading, 0)
                str = f.Readline
    str = f.Readline
    Passwd = str


'''''''''' c:\password.txt 파일을 열어서 한줄씩 읽는다.
'''''''''' 첫째줄은 주석이므로 그냥 읽기만 하고
'''''''''' 둘째줄은 Passwd 변수로, 셋째줄은 Enpasswd 변수에 받아온다.

        Set f = fso.OpenTextFile("D:\visual script\제선 Backbone_Checklist.txt", ForReading, 0)
        str = f.Readline

        Do While f.AtEndOfStream <> True
    str = f.Readline
DevCount = DevCount + 1
    DevIP(DevCount) = str
Loop

'''''''''' c:\Checklist.txt 파일을 열어서 한줄씩 읽는다.
'''''''''' 첫째줄은 주석이므로 그냥 읽기만 하고
'''''''''' 둘째줄부터 마지막 줄까지 읽는다
'''''''''' 한줄 읽을때마다 DevCount를 증가시키고
'''''''''' DevIP() 배열 변수에 장비 IP를 받아온다.

        Set f = fso.OpenTextFile("D:\visual script\Backbone_command.txt", ForReading, 0)
        str = f.Readline

        Do While f.AtEndOfStream <> True
    str = f.Readline
CmdCount = CmdCount + 1
    Command(CmdCount) = str
Loop

'''''''''' c:\command.txt 파일을 열어서 한줄씩 읽는다.
'''''''''' 첫째줄은 주석이므로 그냥 읽기만 하고
'''''''''' 둘째줄부터 마지막 줄까지 읽는다
'''''''''' 한줄 읽을때마다 CmdCount를 증가시키고
'''''''''' Command() 배열 변수에 실행할 명령을 받아온다.

End Sub

Function RunCmd(IP)
'''''''''' 명령을 실행한다.

  crt.Session.Connect "/TELNET " & IP & " 23"
  crt.Screen.Synchronous = True

'''''''''' crt에서 장비IP로 텔넷 접속을 한다.
'''''''''' turn on synchronous mode so we don't miss any data
'''''''''' Turn on synchronous mode while performing Send/Wait sequences
'''''''''' so no input is missed.

  Dim logfile
  logfile = ("D:\SC_LOG\" & Date & "_" & IP & ".txt")
  crt.Session.LogFileName = logfile
  crt.Session.Log True

'''''''''' logfile 형식은 IP_Date.txt (ex, 100.100.100.1_2009-04-10)
'''''''''' crt 화면상의 모든 내용을 로그 파일로 저장한다.

  crt.Screen.WaitForString "username:"
  crt.Screen.Send "xxxx" & VbCr
    crt.Screen.WaitForString "password:"
    crt.Screen.Send "axxxx" & VbCr
    crt.Screen.WaitForString ">"
  crt.Screen.Send "en" & VbCr
  crt.Screen.WaitForString "Password:"
    crt.Screen.Send "wpxxxx" & VbCr
    crt.Screen.WaitForString "#"

'''''''''' Send initial carriage return
'''''''''' Wait for a tring that looks like "password: " or "Password: "
'''''''''' Send password followed by a carriage return
'''''''''' Wait for a ">"
'''''''''' Send This command "en" followed by a carriage return
'''''''''' Wait for a tring that looks like "password: " or "Password: "
'''''''''' Send enable password followed by a carriage return
'''''''''' Wait for a "#"

Dim B
  for B=1 to CmdCount
  crt.Screen.Send Command(B) & vbCr
                Do While (Not crt.Screen.WaitForString ("#" , 2))
    crt.Screen.Send chr(13)
Loop
  next
'''''''''' 명령의 갯수만큼 루프를 돌려서 명령을 실행한다
'''''''''' 각 명령이 실행될때 마다 # 프롬프트가 떨어질때까지 스페이스바를 입력한다.

crt.Screen.Send VbCr
  crt.Screen.WaitForString "#"
crt.Session.Log False
'''''''''' 로그 파일 저장을 완료한다.

  crt.Session.Disconnect
  crt.Screen.Synchronous = false

'''''''''' Session disconnect
'''''''''' turn off synchronous mode to restore normal input processing

End Function

쌍cpu 2017-12

허걱...존문가십니다..