Dim ListeMachines Dim strComputer ListeMachines = "Machine1;Machine2;Machine3" ParseCaracter = ";" TableauMachines = Split(ListeMachines, ParseCaracter) For Each strComputer In TableauMachines strGroup = "Administrators" WScript.Echo "Computer: " & strComputer Err.Clear On Error Resume Next Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup & ",group") If Err.Number <> 0 Then Err.Clear strGroup = "Administrateurs" Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup & ",group") End If If Err.Number = 0 Then WScript.Echo " Administrators group members for " & strComputer For Each objMember In objGroup.Members WScript.Echo VbTab & objMember.Name Next End If Next