PB script changement gateway des serveurs
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:
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
