/*+------------------------------------------------------------------+*/ /* CHPW540 XEDIT - change all passwords in z/VM 5.2 USER DIRECT file */ /*+------------------------------------------------------------------+*/ /* For details on how this macro is used, see one of the two books: "z/VM and Linux on IBM System z: The Virtualization Cookbook for SLES 10 SP2" on the Web at: http://www.redbooks.ibm.com/abstracts/SG247493.html -or- "z/VM and Linux on IBM System z: The Virtualization Cookbook for RHEL 5.2" on the Web at: http://www.redbooks.ibm.com/abstracts/SG247492.html */ /*------------------------------------------------------------------ THE PROGRAM IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. NEITHER RECIPIENT NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES -------------------------------------------------------------------*/ parse arg fn ft fm '(' options ')' newPass . if (length(newPass) > 8) then do say "Error: new password must be 8 characters or fewer" exit end say '' say 'Changing all passwords to:' newPass say '' /* set some values */ 'command set stay on' 'command set num on' 'command set nulls on' 'command set serial off' 'command set cmdline bottom' 'command set curline on 3' 'command set serial off' 'command set scale off' 'command set case m i' 'command set pre off' 'command set v 1 80' /* change user ID passwords */ 'command c/MAINT MAINT/MAINT' newPass'/*' 'command c/AVSVM AVSVM/AVSVM' newPass'/*' 'command c/TSAFVM TSAFVM/TSAFVM' newPass'/*' 'command c/GCS GCS/GCS' newPass'/*' 'command c/GCSXA GCSXA/GCSXA' newPass'/*' 'command c/AUDITOR AUDITOR/AUDITOR' newPass'/*' 'command c/AUTOLOG1 AUTOLOG1/AUTOLOG1' newPass'/*' 'command c/AUTOLOG2 AUTOLOG2/AUTOLOG2' newPass'/*' 'command c/BLDCMS BLDCMS/BLDCMS' newPass'/*' 'command c/BLDNUC BLDNUC/BLDNUC' newPass'/*' 'command c/BLDRACF BLDRACF/BLDRACF' newPass'/*' 'command c/BLDSEG BLDSEG/BLDSEG' newPass'/*' 'command c/CMS1 CMS1/CMS1' newPass'/*' 'command c/CMSBATCH CMSBATCH/CMSBATCH' newPass'/*' 'command c/DISKACNT DISKACNT/DISKACNT' newPass'/*' 'command c/EREP EREP/EREP' newPass'/*' 'command c/IBMUSER IBMUSER/IBMUSER' newPass'/*' 'command c/LGLOPR LGLOPR/LGLOPR' newPass'/*' 'command c/MIGMAINT MIGMAINT/MIGMAINT' newPass'/*' 'command c/MONWRITE MONWRITE/MONWRITE' newPass'/*' 'command c/OP1 OP1/OP1' newPass'/*' 'command c/OPERATNS OPERATNS/OPERATNS' newPass'/*' 'command c/OPERATOR OPERATOR/OPERATOR' newPass'/*' 'command c/OPERSYMP OPERSYMP/OPERSYMP' newPass'/*' 'command c/SYSADMIN SYSADMIN/SYSADMIN' newPass'/*' 'command c/SYSDUMP1 SYSDUMP1/SYSDUMP1' newPass'/*' 'command c/SYSMAINT SYSMAINT/SYSMAINT' newPass'/*' 'command c/SYSMON SYSMON/SYSMON' newPass'/*' 'command c/VMRMADMN VMRMADMN/VMRMADMN' newPass'/*' 'command c/VMRMSVM VMRMSVM/VMRMSVM' newPass'/*' 'command c/VMSERVR VMSERVR/VMSERVR' newPass'/*' 'command c/VMSERVS VMSERVS/VMSERVS' newPass'/*' 'command c/VMSERVU VMSERVU/VMSERVU' newPass'/*' 'command c/VMUTIL VMUTIL/VMUTIL' newPass'/*' 'command c/VSMPROXY VSMPROXY/VSMPROXY' newPass'/*' 'command c/VSMREQIN VSMREQIN/VSMREQIN' newPass'/*' 'command c/VSMREQIU VSMREQIU/VSMREQIU' newPass'/*' 'command c/VSMSERVE VSMSERVE/VSMSERVE' newPass'/*' 'command c/VSMWORK1 VSMWORK1/VSMWORK1' newPass'/*' 'command c/VSMWORK2 VSMWORK2/VSMWORK2' newPass'/*' 'command c/VSMWORK3 VSMWORK3/VSMWORK3' newPass'/*' 'command c/ZVMMAPLX MAINT/ZVMMAPLX' newPass'/*' 'command c/5684042J 5684042J/5684042J' newPass'/*' 'command c/4OSASF40 4OSASF40/4OSASF40' newPass'/*' 'command c/OSADMIN1 OSADMIN1/OSADMIN1' newPass'/*' 'command c/OSADMIN2 OSADMIN2/OSADMIN2' newPass'/*' 'command c/OSADMIN3 OSADMIN3/OSADMIN3' newPass'/*' 'command c/OSAMAINT OSAMAINT/OSAMAINT' newPass'/*' 'command c/OSASF OSASF/OSASF' newPass'/*' 'command c/5VMRSC40 5VMRSC40/5VMRSC40' newPass'/*' 'command c/RSCS RSCS/RSCS' newPass'/*' 'command c/RSCSAUTH RSCSAUTH/RSCSAUTH' newPass'/*' 'command c/RSCSDNS RSCSDNS/RSCSDNS' newPass'/*' 'command c/XCHANGE XCHANGE/XCHANGE' newPass'/*' 'command c/5VMTCP40 5VMTCP40/5VMTCP40' newPass'/*' 'command c/TCPIP TCPIP/TCPIP' newPass'/*' 'command c/TCPMAINT TCPMAINT/TCPMAINT' newPass'/*' 'command c/ADMSERV ADMSERV/ADMSERV' newPass'/*' 'command c/DHCPD DHCPD/DHCPD' newPass'/*' 'command c/DTCVSW1 DTCVSW1/DTCVSW1' newPass'/*' 'command c/DTCVSW2 DTCVSW2/DTCVSW2' newPass'/*' 'command c/FTPSERVE FTPSERVE/FTPSERVE' newPass'/*' 'command c/IMAP IMAP/IMAP' newPass'/*' 'command c/IMAPAUTH IMAPAUTH/IMAPAUTH' newPass'/*' 'command c/LDAPSRV LDAPSRV/LDAPSRV' newPass'/*' 'command c/LPSERVE LPSERVE/LPSERVE' newPass'/*' 'command c/MPROUTE MPROUTE/MPROUTE' newPass'/*' 'command c/NAMESRV NAMESRV/NAMESRV' newPass'/*' 'command c/NDBPMGR NDBPMGR/NDBPMGR' newPass'/*' 'command c/NDBSRV01 NDBSRV01/NDBSRV01' newPass'/*' 'command c/PORTMAP PORTMAP/PORTMAP' newPass'/*' 'command c/REXECD REXECD/REXECD' newPass'/*' 'command c/SMTP SMTP/SMTP' newPass'/*' 'command c/SNALNKA SNALNKA/SNALNKA' newPass'/*' 'command c/SNMPD SNMPD/SNMPD' newPass'/*' 'command c/SNMPQE SNMPQE/SNMPQE' newPass'/*' 'command c/SNMPSUBA SNMPSUBA/SNMPSUBA' newPass'/*' 'command c/SSLSERV SSLSERV/SSLSERV' newPass'/*' 'command c/TFTPD TFTPD/TFTPD' newPass'/*' 'command c/UFTD UFTD/UFTD' newPass'/*' 'command c/VMKERB VMKERB/VMKERB' newPass'/*' 'command c/VMNFS VMNFS/VMNFS' newPass'/*' 'command c/X25IPI X25IPI/X25IPI' newPass'/*' 'command c/5VMDIR40 5VMDIR40/5VMDIR40' newPass'/*' 'command c/5VMRAC40 5VMRAC40/5VMRAC40' newPass'/*' 'command c/RACFSMF RACFSMF/RACFSMF' newPass'/*' 'command c/RACFVM RACFVM/RACFVM' newPass'/*' 'command c/RACMAINT RACMAINT/RACMAINT' newPass'/*' 'command c/5VMPTK40 5VMPTK40/5VMPTK40' newPass'/*' 'command c/PERFSVM PERFSVM/PERFSVM' newPass'/*' 'command c/5VMHCD40 5VMHCD40/5VMHCD40' newPass'/*' 'command c/CBDIODSP CBDIODSP/CBDIODSP' newPass'/*' 'command c/LNXMAINT LNXMAINT/LNXMAINT' newPass'/*' 'command c/GSKADMIN GSKADMIN/GSKADMIN' newPass'/*' /* change mindisk passwords */ 'command c/ALL WRITE MULTIPLE/ALL' newPass newPass'/*' 'command c/ALL WTCPMAIN MTCPMAIN/ALL' newPass newPass'/*' 'command c/RADMSERV WADMSERV MADMSERV/'newPass newPass newPass'/*' 'command c/RAUDITOR WAUDITOR MAUDITOR/'newPass newPass newPass'/*' 'command c/RAUTOLOG WAUTOLOG MAUTOLOG/'newPass newPass newPass'/*' 'command c/RAVSOBJ WAVSOBJ MAVSOBJ/'newPass newPass newPass'/*' 'command c/RBATCH WBATCH MBATCH/'newPass newPass newPass'/*' 'command c/RCATALOG WCATALOG/'newPass newPass'/*' 'command c/RCONTROL WCONTROL/'newPass newPass'/*' 'command c/RCRRLOG1 WCRRLOG1/'newPass newPass'/*' 'command c/RDATA WDATA/'newPass newPass'/*' 'command c/RDHCPD WDHCPD MDHCPD/'newPass newPass newPass'/*' 'command c/RDVF WDVF MDVF/'newPass newPass newPass'/*' 'command c/READ WRITE MULTIPLE/'newPass newPass newPass'/*' 'command c/READ WRITE/'newPass newPass'/*' 'command c/RFTPSERV WFTPSERV MFTPSERV/'newPass newPass newPass'/*' 'command c/RGCS WGCS MGCS/'newPass newPass newPass'/*' 'command c/RIMAP WIMAP MIMAP/'newPass newPass newPass'/*' 'command c/RLOG1 WLOG1/'newPass newPass newPass'/*' 'command c/RLOG2 WLOG2/'newPass newPass newPass'/*' 'command c/RLPSERVE WLPSERVE MLPSERVE/'newPass newPass newPass'/*' 'command c/RMAINT WMAINT MMAINT/'newPass newPass newPass'/*' 'command c/RMPROUTE WMPROUTE MMPROUTE/'newPass newPass newPass'/*' 'command c/RNAMESRV WNAMESRV MNAMESRV/'newPass newPass newPass'/*' 'command c/RNDBPMGR WNDBPMGR MNDBPMGR/'newPass newPass newPass'/*' 'command c/RNDBSRV0 WNDBSRV0 MNDBSRV0/'newPass newPass newPass'/*' 'command c/RPORTMAP WPORTMAP MPORTMAP/'newPass newPass newPass'/*' 'command c/RREXECD WREXECD MREXECD/'newPass newPass newPass'/*' 'command c/RSERVER WSERVER/'newPass newPass'/*' 'command c/RSMTP WSMTP MSMTP/'newPass newPass newPass'/*' 'command c/RSNALNKA WSNALNKA MSNALNKA/'newPass newPass newPass'/*' 'command c/RSNMPD WSNMPD MSNMPD/'newPass newPass newPass'/*' 'command c/RSNMPQE WSNMPQE MSNMPQE/'newPass newPass newPass'/*' 'command c/RSSLSERV WSSLSERV MSSLSERV/'newPass newPass newPass'/*' 'command c/RSYSMON WSYSMON MSYSMON/'newPass newPass newPass'/*' 'command c/RTCPIP WTCPIP MTCPIP/'newPass newPass newPass'/*' 'command c/RTCPMAIN WTCPMAIN MTCPMAIN/'newPass newPass newPass'/*' 'command c/RTFTPD WTFTPD MTFTPD/'newPass newPass newPass'/*' 'command c/RTSAFOBJ WTSAFOBJ MTSAFOBJ/'newPass newPass newPass'/*' 'command c/RUFTD WUFTD MUFTD/'newPass newPass newPass'/*' 'command c/RVMKERB WVMKERB MVMKERB/'newPass newPass newPass'/*' 'command c/RVMNFS WVMNFS MVMNFS/'newPass newPass newPass'/*' 'command c/RX25IPI WX25IPI MX25IPI/'newPass newPass newPass'/*' 'command c/R4TCPIP W4TCPIP M4TCPIP/'newPass newPass newPass'/*' 'command c/RDTCVSW1 WDTCVSW1 MDTCVSW1/'newPass newPass newPass'/*' 'command c/RDTCVSW2 WDTCVSW2 MDTCVSW2/'newPass newPass newPass'/*' 'command c/RCRRLOG2 WCRRLOG2/'newPass newPass'/*' 'command c/RLDAPSRV WLDAPSRV MLDAPSRV/'newPass newPass newPass'/*' 'command c/RSNMPSUB WSNMPSUB MSNMPSUB/'newPass newPass newPass'/*' 'command c/RGSKADMN WGSKADMN MGSKADMN/'newPass newPass newPass'/*' 'command c/MR READ/'MR newPass'/*'