R021JM9W@VB.CC.CMU.EDU.UUCP (09/27/87)
Regarding the discussion on the PASS program and command
procedures running "Set Password"...... The following
command file is the LOGIN.COM that is given to each user
when they are added to our Vaxes. This LOGIN.COM deassigns
SYS$INPUT and forces them to change their password via "Set
Password" upon their initial login. Some of you may find this
procedure handy.
-Jim Murawski
-Carnegie Mellon Computing Services
-Pittsburgh, PA
Disclaimer: Any opinions above do not necessarily reflect the
opinions of my employer, Carnegie Mellon
$! sys$user1:[r999bm00]password.com;14
$! Last Edit Date = Wed Aug 26 12:48:45 1987 R999BM00
$!
$! ** Revision History (Start) **
$! ---------------------------------
$! Wed Aug 26 12:48:45 1987 R999BM00 : Changed message.
$! ---------------------------------
$! ** Revision History (Finish) **
$!
$ On Control_Y Then Goto START
$ Member = F$Getsyi ("Nodename")
$ Userid = F$Getjpi (0, "Username")
$ Userid = F$Extract (0, 8, Userid)
$ Write Sys$Output ""
$ Write Sys$Output -
"Welcome to Carnegie Mellon Computing Services Vax Cluster node ", -
Member
$ Write Sys$Output ""
$ Write Sys$Output -
" This is the first time that you have logged into userid "
$ Write Sys$Output -
" ", Userid, " on this system. You are required to change"
$ Write Sys$Output -
" your password now, and you should change it to something"
$ Write Sys$Output -
" that only you will remember. Passwords must be at least"
$ Write Sys$Output -
" six characters in length, but realistically should be at"
$ Write Sys$Output -
" least eight characters in length. Passwords should not be"
$ Write Sys$Output -
" common words or names that might easily be guessed by"
$ Write Sys$Output -
" someone trying to break into your userid."
$ Write Sys$Output ""
$ Write Sys$Output ""
$START:
$ Count = 0
$ Deassign Sys$Input
$LOOP:
$ Write Sys$Output ""
$ Count = Count + 1
$ If Count .GT. 3 Then Goto QUIT
$ On Warning Then Goto LOOP
$ Set Password
$ Goto DONE
$QUIT:
$ Logout
$DONE:
$ Delete /Nolog Login.Com;0