[R] Savoir si un utilisateur est admin

[servabat]

Bonjour,
J'aimerais savoir si il est possible de savoir si un autre utilisateur local est Admin.
(Par exemple, IsAdmin('Patrick') ).

Merci d'avance ,
Servabat

[mikell]

ça fonctionne sous XP :

Code : Tout sélectionner

$text = "Administrateurs" & @CRLF & "-------------------------------------" & @CRLF
Dim $Obj_WMIService = ObjGet("winmgmts:\\" & "localhost" & "\root\cimv2")
Dim $Obj_Groups = $Obj_WMIService.ExecQuery("Select * from Win32_GroupUser")
Local $Obj_Item
For $Obj_Item In $Obj_Groups
    $group =  $Obj_Item.GroupComponent
    $account = $Obj_Item.PartComponent
    If stringInStr($group, "Admin") Then
        $text &= "admin : " & $account & @CRLF
    EndIf
Next
MsgBox(0,"", $text)

[servabat]

Oui en effet, merci

Je passe en [R],

Merci, @++