IsAdmin

[Le Soldat Inconnu]

Salut,

j'ai fait ceci pour savoir si l'utilisateur est administrateur

Code : Tout sélectionner

Procedure IsAdmin()
  ; Pour savoir si l'utilisateur actuel est administrateur de l'ordinateur
  ; Renvoi 1 si admin, 0 sinon et -1 si erreur d'ouverture de la librairie
  If OpenLibrary(0, "advpack.dll")
    Resultat = CallFunction(0, "IsNTAdmin", 0, 0)
    CloseLibrary(0)
  Else
    Resultat = -1
  EndIf
  ProcedureReturn Resultat
EndProcedure


;- Exemple
Select IsAdmin()
  Case 1
    Debug "Administrateur"
  Case 0
    Debug "Pas administrateur"
  Case -1
    Debug "Erreur"
EndSelect

j'aimerais savoir sur quoi ça marche (quel OS) si vous pouviez tester, merci

[Dr. Dri]

...

[filperj]

Sous XP familial: impec.

[Oliv]

ça fonctionne sous 98Se et XP pro

[Aranoth]

sous Windows 98 PREMIERE EDITION, il me sort que je suis pas admin, bien que je le soit lol (normale y'a qu'une session), mais si tu veut savoir il ne retourne par erreur, et W98ES est dépassé déjà^^

[Le Soldat Inconnu]

merci