script pour changer la passerelle de ma carte reseau

Version imprimable

21/05/2011, 20h14
zitoune31

script pour changer la passerelle de ma carte reseau

bonsoir,
je m'explique je reçoit la télé via internet se qui me bouffe énormément de connexion alors du wifi j'ai décider de passer en ethernet maintenant que sa va un peu mieux me voilà devant un problème certaine chaine payante dont boomerang(chaine pour petit) ce voit ne plus fonctionner cause débit insuffisant .
mon petit étant habituer a regarder boomerang pendant son bibi je cherche un script permettant de changer ma passerelle grâce à un inputbox car c'est ce qui me permettrait de pourvoir également réactiver mon adsl en remettant la bonne passerelle.

tout çà n'est que idée si quelqu'un à mieux je suis preneur mais cependant mes compétence concernant ma demande s'arrête à créer l'inputbox .

comment procéder pour ce qui concerne le changement de passerelle ?

en vous remerciant de votre temps
27/05/2011, 09h25
Aniki

Salut zitoune31,

pour changer ta passerelle via VBScript, il faudrait voir du coté de WMI (Windows Management Instrumentation) et plus particulièrement de Win32_NetworkAdapterConfiguration

Cet object a une fonction SetGateways qui devrait répondre à ta question.

Si tu as des problèmes pour écrire le code, n'hésites pas à nous demander des précisions.

:salut:
Voila un exemple que j'ai utilisé avant pour Changer l'adresse IP WIFI
Donc Inspire-toi de cette procédure et modifie-la pour tes besoins ;)

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
Sub ChangeIP() 
strIP = Array("172.16.100.100") ' Adresse IP 
strmask = Array("255.255.255.0") ' Mask 
 
strGateway = Array("172.16.0.1") ' L'adresse de la passarelle
strGatewayMetric = Array(1)
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
 
For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIP, strmask)
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    If errEnable = 0 Then
        WScript.Echo "The IP address has been changed."
    Else
        WScript.Echo "The IP address could not be changed."
    End If
Next
End Sub