script pour changement de passerelle

Dans le message news:%23fD1bemPFHA.688@TK2MSFTNGP10.phx.gbl ,
Thomas <tom@tom.com> s'est ainsi exprimé:

Bonjour,

Pour l'utilisation d'un vpn,je doit changer de routeur dans mon
organisation et donc de passerelle par defaut. pour cela j'ai trouvé
le script suivant:


On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer &
"rootcimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where
IPEnabled = True")
For Each objNetCard in colNetCards
arrGateways = Array("192.168.168.104", "192.168.168.104")
objNetCard.SetGateways(arrGateways)
Next

Or mon problème est de pouvoir l'appliqué à l'enssemble de mes poste
en indiquant pour la variabe "strComputer" un fichier texte contenant
les noms de mes postes.
J'ai essayé de créé des boucles, ...mais pas moyen d'y arriver.

auriez-vous une^petite solution???

Fastoche !!! ;-)

ForReading=1
' A adapter à ta config ...
MesPostes="k:tototrucmachin biduleliste de mes postes à moi que
j'ai.txt"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
set ts=fso.OpenTextFile(MesPostes, ForReading)
While not ts.AtEndOfStream
strComputer=ts.ReadLine
Set objWMIService = GetObject("winmgmts:\" & strComputer &
"rootcimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled =
True")
For Each objNetCard in colNetCards
arrGateways = Array("192.168.168.104")
objNetCard.SetGateways(arrGateways)
Next
Wend
ts.close
wscript.quit 'facultatif, mais j'aime bien "VOIR" la fin d'un script !


Remarque :
j'ai supprimé un élément dans ton tableau arrGateways, vu que l'adresse
192.168.168.104 était en double !


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr