まず、私はまったくの初心者であり、キーボードを操作することは許可されていません。そうは言っても、ユーザーがリストから選択してリモート デバイスに接続できるようにする DCL .COM ファイルを作成しようとしています。
私がやりたいのは、デバイスを選択して接続できるようにすることだけです。デバイスから切断すると、元の場所に戻ることができます。リモート接続を終了した後も、ダンプされ続けます。
オペレーティング システムは OpenVMS です。コードは次のとおりです (xxx.xxx.xxx.xxx はリモート システムの IP アドレスです)。
どんな助けでも大歓迎です！
$! MRV Terminal Server Connection Menu
$!
$ ON ERROR THEN $ LOGOUT
$ GOMENU:
$!
$ CLS:==SET TERM/WIDTH=80
$ WT:==WRITE SYS$OUTPUT
$!
$ CLS
$ WT " MRV Terminal Server Connection Menu "
$ WT " "
$ WT " 1 MRV 1"
$ WT " 2 MRV 2"
$ WT " 3 MRV 3"
$ WT " 4 MRV 4"
$ WT " 5 MRV 5"
$ WT " 6 MRV 6"
$ WT " 7 MRV 7"
$ WT " 8 MRV 8"
$ WT " 9 MRV 9"
$ WT " 10 MRV 10"
$ WT " 11 MRV 11"
$ WT " 12 MRV 12"
$ WT " 13 MRV 13"
$ WT " 14 MRV 14"
$ WT " "
$ WT " "
$ WT " "
$ WT " "
$ WT " "
$ WT " X EXIT"
$ WT " "
$ INQUIRE ANS "Select the MRV you wish to connect to:"
$!
$!
$ IF ANS .EQS. "X" then goto goodbye
$!
$!
$ IF ANS .EQS. "1" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "2" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "3" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "4" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "5" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "6" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "7" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "8" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "9" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "10" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "11" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "12" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ IF ANS .EQS. "13" then SSH "InReach@xxx.xxx.xxx.xxx"
$!
$ GOODBYE:
$!EXIT