Récupération des droits des utilisateurs sur un serveur et copie de ces droits
sDroit est une chaîne
// Récupère le droit de création de base de données de
// l'utilisateur Dupont sur le serveur de la connexion CNX
sDroit = HInfoDroitServeur("CNX", "Dupont", hDroitCréationBDD)
SELON sDroit
CAS hAutorisé
...
CAS hInterdit
...
CAS hHérité
...
FIN
FIN
// Récupère le droit final de création de base de données
// de l'utilisateur Dupont sur le serveur de la connexion CNX
sDroit = HInfoDroitServeur("CNX", "Dupont", hDroitCréationBDD)
SELON sDroit
CAS hAutorisé
...
CAS hInterdit
...
FIN
FIN
// Copie de droits d'un utilisateur à un autre
sDroits1 est une chaîne
sDroits1 = HInfoDroitServeur("CNX", "Dupont", hDroitCréationBDD)
HModifieDroitServeur("CNX", "Durand", hDroitCréationBDD, sDroits1)