; ファイル名
; make_password_file.ttl
;
; 機能
; ログイン用のパスワードファイルを作成する
;
; 動作環境
; etc.
;
; 作者
; hiroc
;
; 作成日
; 2004/11/30
;
:top
inputbox 'INPUT HOSTNAME' 'CREATE DATA'
strcompare inputstr '9999'
if result=0 end
strcompare inputstr ''
if result=0 goto top

hostname = inputstr
getpassword 'd:\password.dat' hostname password

strconcat hostname ' = '
strconcat hostname password
statusbox hostname 'SAVEDATA'
pause 1

yesnobox 'MORE INPUT?' ''
if result=0 end

goto top