Discussion :

[ZugarEH]

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

[SfJ5Rpw8]

tu ne peu pas lire un fichier comme tu nous le fais avec un for each .. voir lecture d'un fichier ligne à ligne ici :

Comment lire le contenu d'un fichier texte ?

[ZugarEH]

Merci c'est bon sa marche nikel, par contre c'est bizarre j'avais deja lu cette façon de faire avec un For Each.

Enfin bon merci quand meme.

A+