MaConnexion est une Connexion
// Description de la connexion
MaConnexion..Utilisateur = "trsecofr"
MaConnexion..MotDePasse = "trsecofr"
MaConnexion..Serveur = "power8"
MaConnexion..Provider = hAccèsNatifAS400
MaConnexion..InfosEtendues= "<EASYCOM>"+CRLF+"JOBNAME=CED"+CRLF+"</EASYCOM>"
test2 est une ASUsrPrfDetailedCollection
//Récupérer tous les utilisateurs
SI PAS ASUserListDetailed(test2,MaConnexion) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
//Récupérer tous les utilisateurs
SI PAS ASUserListDetailed(test2,MaConnexion,"*",ASUtilisateursTousStatuts) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR(); //procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
//Récupérer l’utilisateur dont le nom est QPGMR
HOuvreConnexion(MaConnexion);
SI PAS ASUserListDetailed(test2,MaConnexion,"QPGMR") ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
//Récupérer tous les utilisateurs désactivés
SI PAS ASUserListDetailed(test2,MaConnexion,"*",ASUtilisateursDésactivés) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
//Récupérer tous les utilisateurs activés
SI PAS ASUserListDetailed(test2,MaConnexion,"*",ASUtilisateursActivés) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
//Récupérer tous les utilisateurs dont le nom commence par Q*
SI PAS ASUserListDetailed(test2,MaConnexion,"Q*",ASUtilisateursTousStatuts) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
//Récupérer tous les utilisateurs dont le groupe est : NOGROUP
SI PAS ASUserListDetailed(test2,MaConnexion,"",ASUtilisateursTousStatuts,"NOGROUP") ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
//Récupérer tous les utilisateurs dont la classe (User Class) est *SECOFR
SI PAS ASUserListDetailed(test2,MaConnexion,"",ASUtilisateursTousStatuts,"", "*SECOFR") ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();
TableauSupprimeTout(test2)
FIN
//Récupérer tous les utilisateurs possédant les droits spéciaux « Special Authorities » spécifiés
SI PAS ASUserListDetailed(test2,MaConnexion,"",ASUtilisateursTousStatuts,"", "", ASJOBCTL+ASIOSYSCFG) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();
TableauSupprimeTout(test2)
FIN