[comp.os.vms] Using "Set Password" in a command procedure

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