¿©·¯ Àåºñµé sshÀÀ´äÇÏ´ÂÁö üũÇÏ´Â ÅøÀ̳ª

½Öcpu   
   Á¶È¸ 5873   Ãßõ 0    

 리눅스쉘 또는 도스에서 배치파일 있을까요?


여러대를 ssh응답하는지 확인하려니 귀차니즘이

툴이나 리눅스쉘이든 도스 베치파일이든

리설트 떨어지게만 하면 되는데



ªÀº±Û Àϼö·Ï ½ÅÁßÇÏ°Ô.
±øÅëÀÌ 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
Çã°Æ...Á¸¹®°¡½Ê´Ï´Ù..


QnA
Á¦¸ñPage 3486/5691
2014-05   5016205   Á¤ÀºÁØ1
2015-12   1551681   ¹é¸Þ°¡
2005-10   5697   ¹ÚÁø¼º
2006-04   5697   ¿ø³«¿¬
2008-04   5697   Çѵ¿ÈÆ
2005-05   5697   ÇϽÂÇù
2005-08   5697   ¹èÁ¤ÇÑ
2005-09   5697   ¿¹º´±â
2016-08   5697   ĵÀ§µå
2015-12   5697   ½ÅÀº¿Ö
2005-08   5697   º¯»ó¿ë
2019-10   5697   Ansyncic
2015-06   5697   ÀÌÇö¼®1
2009-01   5697   Çѵ¿ÈÆ
2014-01   5697   ÀÌÇö¼®1
2012-05   5697   ¸Å¾²TM
2005-08   5697   Á¤¿µ±³
2006-04   5697   Àü¿ä¼Á
2013-12   5697   Wheein
2005-06   5697   À̽ÂÇö
2005-08   5697   À̽ÂÇö
2005-06   5697   Á¤ÈûÂù