home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
OLS
/
Win95
/
HT315
/
HT315.LZH
/
PEOPLEIN.SCR
< prev
next >
Wrap
Text File
|
1996-02-09
|
2KB
|
92 lines
; People用汎用ログインスクリプト
; by 斉藤秀夫
; このスクリプトは作者に許可なく自由に改版、転用してかまいません。
;
; IDやパスワードを変更したい場合は、秀Termの「スクリプト・変数一覧」で、
; IDを変更したい場合: %PeopleID
; パスワードを変更したい場合: %%PeoplePassword
; を修正して、正しい値を設定してください。
;
gethostname #key
#key = "Software\Hidemaruo\PeopleInScript\" + #key
##HPAM = 0
openreg "CURRENTUSER", #key
if( yes )
getreg "HPAM", ##HPAM
closereg
endif
timeout 4
Restart:
switch
case "Host_Name:"
send "P^M"
goto Restart
case "UserID:"
goto EnterUserID
case timeout
send "@"
sleep 1
send "^M"
timeout 10
switch
case "*"
SendPAMRestart:
if( ##HPAM )
send "A HPAM^M"
else
send "A PAM^M"
endif
switch
case "*"
if( ##HPAM )
##HPAM = 0
else
##HPAM = 1
endif
createreg "CURRENTUSER", #key
writeregint "HPAM", ##HPAM
closereg
goto SendPAMRestart
case "UserID"
goto EnterUserID
case timeout
error "ホストが応答しません。"
endswitch
case "UserID:"
goto EnterUserID
case timeout
error "ホストが応答しません。"
endswitch
endswitch
EnterUserID:
if( %PeopleID == "" )
input "ユーザIDを入力してください。", %PeopleID
if( cancel )
hangup
endif
endif
send %PeopleID + "^M"
wait "Password:"
if( timeout )
error "ホストが応答しません。"
endif
if( %%PeoplePassword == "" )
secretinput "パスワードを入力してください。", %%PeoplePassword
if( cancel )
hangup
endif
endif
send %%PeoplePassword + "^M"
WaitLogoff:
timeout 0
wait "^M^Jただいまの時刻:"
timeout 5
wait "DISCONNECTED - DTE CLEARING"
if( timeout ) goto WaitLogoff
wait postidle(1) "*"
if( timeout ) goto WaitLogoff
hangup