$ if (p1 .eqs. "") .or. (p2 .eqs. "")
$ then
$     Write Sys$output "XSETUP-F-NoHostNode, P1 must be supplied as the node running the clients"
$     Write Sys$output "XSETUP-F-NoPassword, P2 must be your KDC admin password"
$     Write sys$output "Usage: @Xsetup <HostNode> <password>"
$     exit
$ endif
$ node = F$EDIT(p1, "LOWERCASE")
$! realm = f$trnlnm("KRB$DEF_REALM")
$ if (p3 .eqs. "")
$ then
$     open/write krbcmd tmp_setup.com
$     write krbcmd "$ define/nolog SYS$ERROR SYS$OUTPUT"
$     write krbcmd "$ define/nolog SYS$OUTPUT xsetup.ERR"
$     write krbcmd "$ define/user/nolog SYS$COMMAND SYS$INPUT"
$     write krbcmd "$ kadmin"
$     write krbcmd "''p2'"
$     write krbcmd "addprinc -randkey gss_sample/''node'"
$     write krbcmd "addprinc -randkey krb_sample/''node'"
$     write krbcmd "ktadd gss_sample/''node'"
$     write krbcmd "ktadd krb_sample/''node'"
$     write krbcmd "exit"
$     write krbcmd "$ deassign SYS$ERROR"
$     write krbcmd "$ deassign SYS$OUTPUT"
$     close krbcmd
$     @tmp_setup.com
$     delete/noconfirm tmp_setup.com;
$     type xsetup.err;
$     delete/noconfirm xsetup.err;
$ else
$     open/write krbcmd tmp_setup.com
$     write krbcmd "$ define/nolog SYS$ERROR SYS$OUTPUT"
$     write krbcmd "$ define/nolog SYS$OUTPUT xsetup.ERR"
$     write krbcmd "$ define/user/nolog SYS$COMMAND SYS$INPUT"
$     write krbcmd "$ kadmin"
$     write krbcmd "''p2'"
$     write krbcmd "delprinc gss_sample/''node'"
$     write krbcmd "yes"
$     write krbcmd "delprinc krb_sample/''node'"
$     write krbcmd "yes"
$     write krbcmd "ktrem gss_sample/''node'"
$     write krbcmd "ktrem krb_sample/''node'"
$     write krbcmd "exit"
$     write krbcmd "$ deassign SYS$ERROR"
$     write krbcmd "$ deassign SYS$OUTPUT"
$     close krbcmd
$     @tmp_setup.com
$     delete/noconfirm tmp_setup.com;
$     type xsetup.err;
$     delete/noconfirm xsetup.err;
$ endif
$exit