能否在IBM AS/400中同时批量修改多个用户账户的密码？

针对大量用户无法自行修改密码的场景，可通过以下两种高效方式批量处理：

一、使用CL命令批量操作 #

1. 导出目标用户列表
   先将需要处理的用户信息导出到临时文件，方便筛选和循环处理：

   DSPUSRPRF USRPRF(*ALL) OUTPUT(*OUTFILE) OUTFILE(QTEMP/USRLIST)
   

   可通过WRKQRY或SQL筛选出密码过期、未及时修改的用户，生成精准的处理列表。

2. 编写CL程序循环修改
   基于导出的用户列表，编写CL程序批量执行密码修改命令，示例如下：

   PGM
   DCL VAR(&USRPRF) TYPE(*CHAR) LEN(10)
   DCL VAR(&NEWPWD) TYPE(*CHAR) LEN(10) VALUE('TempPwd@123')
   
   OPNDBF FILE(QTEMP/USRLIST) OPTION(*INP)
   RCVF
   MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
   
   LOOP:
     CHGUSRPRF USRPRF(&USRPRF) PASSWORD(&NEWPWD) PWDEXP(*YES)
     RCVF
     MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
     GOTO CMDLBL(LOOP)
   
   END:
   CLOF FILE(QTEMP/USRLIST)
   ENDPGM
   

   此程序会遍历临时文件中的所有用户，设置统一临时密码并强制用户下次登录修改。

二、使用SQL语句批量操作 #

IBM i支持通过SQL直接操作用户信息表，适合快速批量更新：

1. 批量设置临时密码
   针对指定用户列表或符合条件的用户（如密码过期用户），直接更新密码：

   UPDATE QSYS2.USER_INFO
   SET INITIAL_PASSWORD = 'TempPwd@123'
   WHERE USER_PROFILE IN ('USER01', 'USER02', 'USER03')
   -- 或按条件筛选：WHERE PASSWORD_EXPIRED = 'YES'
   

2. 批量触发密码过期
   若选择等待密码过期后通知用户修改，可批量设置用户密码状态为过期：

   UPDATE QSYS2.USER_INFO
   SET PASSWORD_EXPIRED = 'YES'
   WHERE USER_PROFILE LIKE 'EMP%' -- 按用户前缀筛选
   

关键注意事项 #

• 操作需使用具有*SECADM安全管理员权限的用户（如QSECOFR）执行。
• 临时密码必须符合系统密码策略（长度、复杂度、特殊字符要求），避免设置无效密码导致操作失败。
• 批量修改后，建议通过系统消息或企业邮件统一通知用户使用临时密码登录，并强制其立即修改为个人密码。
• 可结合SNDPGMMSG命令在CL程序中添加自动通知逻辑，提升处理效率。

内容的提问来源于stack exchange，提问作者Brody_Brody