[R] Afficher la liste des utilisateurs d'un groupe local

[Serge63]

Bonjour à tous

Je sais comment afficher tous les utilisateurs locaux sur un pc mais j'ai besoin d'afficher uniquement les utilisateurs qui sont membre d'un groupe local.

J'ai récupéré un bout de code vbs qui fonctionne sans problème :

Code : Tout sélectionner

'on error resume next
'Script begins here
Dim objNetwork, objGroup, objUser, strDomain, strGroup

'Change DomainName to the name of the domain the group is in
Set objNetwork = Wscript.CreateObject("WScript.Network")
strDomain = objNetwork.ComputerName

'Change GroupName to the name of the group whose members you want to export
strGroup = "Utilisateurs"

Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")

For Each objUser In objGroup.Members
    Wscript.Echo objUser.Name
Next

Je l'ai adapté pour obtenir ceci :

Code : Tout sélectionner

    LOCAL $objNetwork, $strComputer, $objGroup, $objUser
    LOCAL $strGroupe = "Utilisateurs"
    
    ; on récupère le nom de l'ordinateur
    $objNetwork = ObjCreate("WScript.Network")
    $strComputer = $objNetwork.ComputerName
    
    ; on récupère tous les éléments du groupe
    $objGroup = ObjGet("WinNT://" & $strComputer & "/" & $strGroupe & ",group")
    
    ; on traite les éléments un par un
    For $objUser in $objGroup
        msgbox(0, "Info", "nom de l'utilisateur=" & $objUser.Name)       
    Next

Malheureusement, rien ne s'affiche... J'ai du rater un épisode...

[Tlem]

Il manque la propriété de $objGroup.

Code : Tout sélectionner

    LOCAL $objGroup, $objUser
    LOCAL $strGroupe = "Utilisateurs"

    ; on récupère tous les éléments du groupe
    $objGroup = ObjGet("WinNT://" & @ComputerName & "/" & $strGroupe & ",group")


    ; on traite les éléments un par un
    For $objUser in $objGroup.Members
        msgbox(0, "Info", "nom de l'utilisateur=" & $objUser.Name)
    Next

[Serge63]

Alors là, j'ai franchement honte... quel boulet je suis...

Merci Tlem !

[Serge63]

Je viens de terminer mon programme, je vais le rajouter dans les exemples de scripts pour ceux que ça intéresse...

je pense que ce post peut être supprimé pour éviter les doublons