Daily checks for user profiles

I get fed up with the numerous telephone calls each morning from users who have disabled their iSeries 400 passwords and cannot sign on, so as soon as I get in I run 2 macros, which I assigned icons on my client access toolbar. These macros check for disabled profiles and also for invalid sign on attempts. From these macros I can re-enable the user profiles - often before the user even notices it was disabled and also track possible breaches of security.

		
1.  Disabled profiles

Description =Disabled
[wait app]
"dsplog
[pf4]
[wait inp inh]
wait 10 sec until FieldAttribute 0000 at (5,36)
wait 1352 msec 
[wait app]
[pf10]
[wait inp inh]
wait 10 sec until FieldAttribute 0000 at (5,36)
wait 10 sec until cursor at (5,37)
[wait app]
[roll up]
[down]
[down]
[down]
[down]
[down]
[down]
"cpf1393
[pf10]
[wait inp inh]
wait 10 sec until FieldAttribute 0000 at (8,36)
wait 10 sec until cursor at (8,37)
[wait app]
[roll down]
[down]
[down]
[down]
[down]
[field+]
[up]
[up]


2.  Invalid signon attempts

Description =Bad Signons
[wait app]
"dsplog
[pf4]
[wait inp inh]
wait 10 sec until FieldAttribute 0000 at (5,36)
wait 842 msec 
[wait app]
[pf10]
[wait inp inh]
wait 10 sec until FieldAttribute 0000 at (5,36)
wait 10 sec until cursor at (5,37)
[wait app]
[roll up]
[roll up]
[down]
[down]
[down]
[down]
[down]
[down]
"cpf2234
[pf10]
[wait inp inh]
wait 10 sec until FieldAttribute 0000 at (8,36)
wait 10 sec until cursor at (8,37)
[wait app]
[roll down]
[down]
[down]
[down]
[down]
[field+]
[up]
[up] 

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.

Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.