내발자국[동호회]
[정보/스크립트] kornet ppp접속시 다운에
松巖
1998. 2. 26. 14:58
Subject: Re: kornet ppp접속시 다운되버립니다.
Date: Wed, 18 Feb 1998 00:34:07 +0900
From: "Sanghoon Kim"
Organization: Ulsan UBF
Newsgroups: han.comp.misc,han.net.kornet
>제가 아는 사람 두 분의 co-lan을 설치 했었는데 그 중에 한 분이
>꼭 전화접속 네트워킹의 테스티네이션 창에서 PPP 만 넣으면 그냥 다운이
>되어서 별짓을 다 하다가 사실 드라이버도 새것으로 깔아 보았습니다만
만약, 화면에 뿌려지는 특수문자 때문에 다운되는 것이라면, 스크립트를
만들엇 자동으로 접속하면 되지 않나요? 화면에 뿌릴 일 없이 아이콘
상태로 넘어가 버리니까요...
아래는 스크립트 예제를 코넷에 맞게 수정한 스크립트입니다. 찾아봐도
안보이길레 제가 한번 고쳐 봤습니다. PPP용이니까 필요하신 분은 택스트
파일로 저장하셔서 사용하세요.
;---여기서부터---
proc main
integer nTries = 3
string szLogin = "username:"
integer nLoginTimeout = 3
string szPW = "Password:"
integer nPWTimeout = 3
string szPrompt = "Selection:"
string szConnect = "2^M"
boolean bUseSlip = FALSE
delay 2
transmit "^M^M"
; Attempt to login at most 'nTries' times
while 0 < nTries do
; Wait for the login prompt before entering
; the user ID, timeout after x seconds
waitfor szLogin then DoLogin
until nLoginTimeout
TryAgain:
transmit "^M" ; ping
nTries = nTries - 1
endwhile
goto BailOut
DoLogin:
; Enter user ID
transmit $USERID, raw
transmit "^M"
; Wait for the password prompt
waitfor szPW until nPWTimeout
if FALSE == $SUCCESS then
goto TryAgain
endif
; Send the password
transmit $PASSWORD, raw
transmit "^M"
; Wait for the prompt
waitfor szPrompt
transmit szConnect
if bUseSlip then
; An alternative to the following line is
;
; waitfor "Your address is "
; set ipaddr getip
;
; if we don't know the order of the IP addresses.
set ipaddr getip 2
endif
goto Done
BailOut:
; Something isn't responding. Halt the script
; and let the user handle it manually.
set screen keyboard on
halt
Done:
endproc
;--- 여기까지 ---
전화접속 창에 자신의 id 및 password 를 집어넣고 접속하면 자동으로
인식합니다.
--
Sanghoon Kim(김상훈)
Ulsan UBF(대학생 성경읽기 선교회 울산지부)
E-mail : saveman@chollian.net
Homepage : http://www.chollian.net/~saveman
Date: Wed, 18 Feb 1998 00:34:07 +0900
From: "Sanghoon Kim"
Organization: Ulsan UBF
Newsgroups: han.comp.misc,han.net.kornet
>제가 아는 사람 두 분의 co-lan을 설치 했었는데 그 중에 한 분이
>꼭 전화접속 네트워킹의 테스티네이션 창에서 PPP 만 넣으면 그냥 다운이
>되어서 별짓을 다 하다가 사실 드라이버도 새것으로 깔아 보았습니다만
만약, 화면에 뿌려지는 특수문자 때문에 다운되는 것이라면, 스크립트를
만들엇 자동으로 접속하면 되지 않나요? 화면에 뿌릴 일 없이 아이콘
상태로 넘어가 버리니까요...
아래는 스크립트 예제를 코넷에 맞게 수정한 스크립트입니다. 찾아봐도
안보이길레 제가 한번 고쳐 봤습니다. PPP용이니까 필요하신 분은 택스트
파일로 저장하셔서 사용하세요.
;---여기서부터---
proc main
integer nTries = 3
string szLogin = "username:"
integer nLoginTimeout = 3
string szPW = "Password:"
integer nPWTimeout = 3
string szPrompt = "Selection:"
string szConnect = "2^M"
boolean bUseSlip = FALSE
delay 2
transmit "^M^M"
; Attempt to login at most 'nTries' times
while 0 < nTries do
; Wait for the login prompt before entering
; the user ID, timeout after x seconds
waitfor szLogin then DoLogin
until nLoginTimeout
TryAgain:
transmit "^M" ; ping
nTries = nTries - 1
endwhile
goto BailOut
DoLogin:
; Enter user ID
transmit $USERID, raw
transmit "^M"
; Wait for the password prompt
waitfor szPW until nPWTimeout
if FALSE == $SUCCESS then
goto TryAgain
endif
; Send the password
transmit $PASSWORD, raw
transmit "^M"
; Wait for the prompt
waitfor szPrompt
transmit szConnect
if bUseSlip then
; An alternative to the following line is
;
; waitfor "Your address is "
; set ipaddr getip
;
; if we don't know the order of the IP addresses.
set ipaddr getip 2
endif
goto Done
BailOut:
; Something isn't responding. Halt the script
; and let the user handle it manually.
set screen keyboard on
halt
Done:
endproc
;--- 여기까지 ---
전화접속 창에 자신의 id 및 password 를 집어넣고 접속하면 자동으로
인식합니다.
--
Sanghoon Kim(김상훈)
Ulsan UBF(대학생 성경읽기 선교회 울산지부)
E-mail : saveman@chollian.net
Homepage : http://www.chollian.net/~saveman