AutoIt Français

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

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

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