secure crt 스크립트 짜는데 좀 도와주세요~
글쓴이: cycix / 작성시간: 화, 2011/03/29 - 6:02오후
secureCRT에 접속해서 출력되는 내용들을 저장하기위해
File/Raw Log Session 메뉴를 이용을 하고 있읍니다.
그런데 일일이 하자니 시간이 너무오래걸려서...
접속하면 자동으로 파일열고 커멘드 실행후 화면에 출력되는 내용을 저장하는
스크립트를 만들려고 하는데
잘 안되네요 -ㅅ-;;;
#$language = "VBScript"
#$interface = "1.0"
'파일입출력을 위한 변수
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 3
Sub main
crt.Screen.Synchronous = True
'이것저것 변수선언
Dim saveObj, saveLog, ServName
ServName="서버이름"
'세션을 이용해 저장하려고 했지많 아직 이해부족
'Set object = crt.Session
'object.Log(start, apend..., raw)
'서버접속
crt.Screen.WaitForString "Username:"
crt.Screen.Send "아이디" & VbCr
crt.Screen.WaitForString "Password:"
crt.Screen.Send "비밀번호" & VbCr
crt.Screen.WaitForString ServName
crt.Screen.Send "아이디" & VbCr
crt.Screen.WaitForString "Password:"
crt.Screen.Send "비밀번호" & VbCr
'파일시스템open
Set saveObj = CreateObject("Scripting.FileSystemObject")
Set saveLog = saveObj.OpenTextFile(c:\Documents and Settings\Master\바탕 화면\backUpFolder\_test.txt", ForWriting, True)
'저장할 커멘드
crt.Screen.WaitForString ServName
crt.Screen.Send "show running-config" &VbCr
'지금까지 출력된 화면내용 쓰기 시작
Do While saveLog.AtEndOfStream <> True
'여기 부터 잘 안되네요...
result = crt.Screen.WaitForStrings(waitStrs)
Loop
'쓰기종료
saveLog.Close
End Sub지금까지 메뉴얼 보고 만든 내용입니다.
파일 입출력만 빼면 커멘드도 자동으로 잘되는데...
중간에 화면에 내용을 읽어와서 파일에 써야 하는데
이게 잘 안되네요 ㅜ.ㅜ
도와주세요~
참조할수 있는 좌표라도 ~~
waitStrs 는 변수인가요? 아니면 secureCRT에서 쓰는 함수같은건가요?
Forums: