Bonjour,

je rencontre actuellement un problème pour la mise en place d'un script me permettant de changer en rafale les gateways de tous les serveurs du parc.

Tous mes serveurs sont renseignés dans un fichier inventaire mais le probleme ce passe au niveau du premier For Each
"ligne 9 cara 1 Cet objet ne gere pas cette proprieté ou cette methode "

Voici le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'On Error Resume Next
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set Inventaire = objFSO.OpenTextFile("c:\temp\inventaire.txt")
strGateway = Array("IP")
strGatewayMetric = Array(1)
 
'Boucle utilisant les machines 
For Each Machine in Inventaire
    strComputer = Machine
 
    Set objWMiService = GetObject("winmgmts:\\"& strComputer & "\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration ")
 
    For Each ObjNetAdapter in colNetAdapters
 
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewayMetric)
            If errEnable = 0 then 
             WScript.Echo " modification gateway ok "
            Else
             WScript.Echo " Problème "
            End If
   Next
Next
Je ne vois pas le problème avec For Each si quelqu'un a une idée ??
Merci d'avance