parm accounts="@",mode="preview",entry="" comment This command file scans all accounts for missing passwords comment and sets such missing ones to the account name. Lars 6/93. comment 17.01.95 Lars: new parameters "accounts" and "mode" if "!entry" = "" then file newpass=$newpass;rec=-80,,f,ascii listacct !accounts ;pass > *newpass reset newpass echo Scanning system for missing account passwords... setvar _me "!-1" !_me ;entry="sub1" < $oldpass if ups("!mode") = "PREVIEW" then echo Accounts have not been changed due to PREVIEW mode elseif ups("!mode") = "SIMPLE" then echo Accounts have been changed using SIMPLE mode elseif ups("!mode") = "RANDOM" then echo Accounts have been changed using RANDOM mode elseif ups("!mode") = "REMOVE" then echo Account passwords have been removed else echo Accounts have been changed using fixed password endif deletevar _@ echo Task completed. endif if "!entry" = "sub1" then setvar _n finfo("$oldpass","eof")/13 setvar _k 0 while _k < _n do input _x input _a setvar _a str(_a,10,8) input _x input _p setvar _p str(_p,43,8) setvar _m 9 while _m > 0 do input _x setvar _m _m-1 endwhile if ("!_a" <> "3000devs") and (ups("!mode") = "REMOVE") then echo !_a altacct !_a;pass= elseif ("!_a" <> "3000devs") and ("!_p" = " ") then echo !_a if ups("!mode") = "PREVIEW" then comment do nothing elseif ups("!mode") = "SIMPLE" then altacct !_a;pass=!_a elseif ups("!mode") = "RANDOM" then setvar _p lft(_a,1)+rht("0!hpdate",2)+rht("0000!hpcpumsecs",5) altacct !_a;pass=!_p else altacct !_a;pass=!mode endif endif setvar _k _k+1 endwhile endif