SecureCRT v9.3 VBScript 사용 방법

오늘은 한 번의 클릭으로 자동으로 장비의 Log를 수집하는 방법을 공유하려고 합니다.

다른 방법도 있지만, 오늘은 VBScript를 사용하는 방법을 정리하겠습니다.

단순히 네트워크 장비의 Log를 수집하는 용도이므로 VBScript에 대한 내용이 부실할 수 있으니 참고 부탁드립니다.

 

1. VBScript 함수 예시

함수	내용
VbCr	∘ enter
chr(13)	∘ enter
chr(3)	∘ Ctrl+C
crt.Sleep 1000	∘ 1000msec 동안 대기
crt.Screen.Send "AB"	∘ screen에 "AB" 문자 출력
crt.Screen.CurrentRow	∘ 현 스크린에서 보이는 맨 마지막 줄에 대한 모든 문자를 저장 ∘ ex) crt.Screen.CurrentRow - 2 : 마지막에서 2번째 윗줄에 대해 저장
crt.Screen.Get (변수, 숫자1, 변수, 숫자2)	∘ 변수에 저장된 내용 중, '숫자1~숫자2'까지의 문자열을 추출 ∘ ex) crt.Screen.Get(i, 1, i, 10) : 'i'변수의 1~10위치 문자열만 추출
crt.Screen.WaitForString ">"	∘ 스크린에 ">"문자가 나타날 때까지 대기
dim	∘ 변수 설정할 때 사용
do while true ~ loop	∘ 무한 반복문 ∘ Exit do로 빠져나오기 가능
For 변수=숫자1 to 숫자2  step 숫자3 ~ Next	∘ 숫자1부터 숫자2까지 숫자3만큼씩 증가
If 조건 then ~ Else If 조건  then ~ Else ~ End If	∘ End If로 종료 가능
Sub main ~ End Sub	∘ 메인 함수
Function NAME() ~ End Function	∘ 사용자 정의 함수

 

 

2. VBScript Example

# $language = "VBScript"
# $interface = "1.0"

Sub Main

  crt.Screen.Send "set cli screen-width 250" & vbCr
  
  crt.Screen.WaitForString "> "

  crt.Sleep 5000

  crt.Screen.Send "show chassis hardware | no-more" & vbCr

  crt.Screen.WaitForString "> "

  crt.Sleep 5000

  crt.Screen.Send "exit" & vbCr

  crt.Screen.WaitForString "> "
  
  crt.Sleep 5000

  crt.Screen.Send "exit" & vbCr
End Sub

• 메모장에서 위와 같이 작성한 VBScript를 'vb' 확장자로 저장한다.
• 인터넷에서는 보통 'vbs' 확장자로 저장하니, 'vb' 확장자로 안 되는 분들은 'vbs' 확장자로 시도하는 것을 권장한다.

 

 

3. VBScript 사용 방법

• 'View > Button Bar'를 클릭하여 SecureCRT 하단에 '버튼 바'를 보이게 설정한다.

 

• '버튼 바 우클릭 > New Button...'을 클릭한다.

 

• 'Run Script 선택 > VBScript File 선택 > Label 기재 > Icon color 선택'을 진행한다.

 

• '버튼 바'에는 위에서 설정한 Label 및 Icon color로 표시된 것이 생성된다.
• 생성된 '버튼 바'를 우클릭하여 수정도 가능하다.

 

• '버튼 바'를 클릭하면 미리 정해 놓은 Log를 자동으로 수집할 수 있다.