PureBasic

Salut,

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

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

Sous XP familial: impec.

ça fonctionne sous 98Se et XP pro

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à^^

merci