VB Script 정리 ( SecureCRT 자동화 관리겸 )

VB Script 정리 ( SecureCRT 자동화 관리겸 )

 

secureCRT 스크립트 메뉴얼.pdf

1.25MB

 

간단히 제작해본 예제 스크립트 파일

 

주니퍼 백본 월간점검 백업 스크립트.vbs

0.00MB

다산 V8610백본 월간점검 스크립트 .vbs

0.00MB

파이오링크 L4 월간점검 스크립트 .vbs

0.00MB

 

 

간단한 변수 및 함수 정리

 

1. Dim : 변수 정의

   ex) Dim i, Dim mTXT, Dim Array(0)

 

2. VbCr : 엔터 기능

3. chr(13) : 엔터 기능

 

4. crt.Sleep 1000 : 1초 대기 ( 단위는 msec , 1/1000 초 )

 

5. crt.Screen.Send ("XX") : 스크린에 해당문자열 출력

 

6. crt.Screen.CurrentRow : 현 스크린에서 보이는 맨 마지막 줄에 대한 모든 문자를 저장. 

    ex) ScreenRow = crt.Screen.CurrentRow - 2 : 마지막에서 2번째 윗줄에 대해 저장.

 

7. crt.Screen.Get(변수, 숫자1, 변수, 숫자2) : 변수에 저장된 내용 중, 숫자1~숫자2까지의 문자열을 가져옴.

    ex) current = crt.Screen.Get(i, 1, i, 10)  'i변수의 1~10위치 문자열만 추출

 

8. crt.Screen.WaitForString "#" :  스크린에 "#"문자가 나타날 때 까지 대기

 

9. 메인함수 : Sub main ~ End Sub
10. 사용자 정의 함수 : Function NAME() ~ End Function

 

11. 텍스트 파일 생성/open 방법
Set objFSO1 = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO1.CreateTextFile("C:\Scripts\Events.txt")  '신규파일 생성
Set objFSO2 = CreateObject("Scripting.FileSystemObject")
Set file1 = objFSO2.OpenTextFile("C:\Scripts\Events.txt", 8, True)  '기존에 있던 파일 열기

 

12. 텍스트 파일 읽어오기 (Do While 사용)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set file1 = objFSO.OpenTextFile("C:\Scripts\Events.txt", 1, False)  '기존에 있던 파일 열기

Do While fil1.AtEndOfStrea <> True ' Event.txt 파일을 끝까지 읽음
      Line = file1.ReadLine '한 줄씩 읽음
      crt.Screen.Send line & Chr(13) '화면에 입력함
      crt.Sleep 100 '바로 입력하면 순서가 깨져서 강제로 대기시간 부여
      loop '반복수행
crt.Screen.Synchronous = False '이건 뭔지 찾아봐야 함
​​objFSO.close

 

13. 텍스트 파일에 쓰기
Set objFSO2 = CreateObject("Scripting.FileSystemObject")
Set file1 = objFSO2.OpenTextFile("C:\Scripts\Events.txt", 8, True)  '기존에 있던 파일 열기
​objFSO2.WriteLine "하이"
​objFSO2.close

 

14. Do While문 (반복문)
do while true ~ loop : 무한 반복문.
Exit do로 빠져나올 수 있음.
For 변수=숫자1 to 숫자2 step 숫자3 ~ Next : 숫자1부터 숫자2까지 숫자3만큼씩 증가.

 

15. 조건문 : If 조건 then ~ Else If 조건 then ~ Else ~ End If : End If 로 종료.

 

 

VB스크립트 셀프공부 및 현장적용중~