Exemple d'utilisation de la commande HInfoDroitServeur

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

L'exemple suivant permet de :

- connaître les droits par défaut d'un utilisateur

- connaître les droits effectifs d'un utilisateur

- copier les droits par défaut d'un utilisateur sur un autre utilisateur

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", hDroitCreationBDD )
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",hDroitCreationBDD)
SELON sDroit
CAS hAutorisé
...
CAS hInterdit
...
FIN
FIN

// copie de droit d'un utilisateur à un autre
sDroits1 est une chaîne
sDroits1 = HInfoDroitServeur("CNX","Dupont",hDroitCreationBDD)
HModifieDroitServeur("CNX","Durand",hDroitCreationBDD,sDroits1)