Script .vbs pour saisir ip et masque réseau
Fermé
cabzing
Messages postés
18
Date d'inscription
samedi 30 juin 2007
Statut
Membre
Dernière intervention
7 juin 2010
-
11 mars 2008 à 17:07
Lilou - 22 nov. 2009 à 15:57
Lilou - 22 nov. 2009 à 15:57
A voir également:
- Script .vbs pour saisir ip et masque réseau
- Ethernet n'a pas de configuration ip valide - Guide
- Appel masqué - Guide
- Rech. ou saisir l'url - Guide
- Script vidéo youtube - Guide
- Masque apple - Guide
2 réponses
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
11 mars 2008 à 17:50
11 mars 2008 à 17:50
Bonjour,
Tu peux essayer un truc comme ça (j'ai pas testé mais ça devrait etre bon...):
Tiens nous au courant....
Tom
Tu peux essayer un truc comme ça (j'ai pas testé mais ça devrait etre bon...):
strIP = inputbox("Veuillez entre l'adresse IP et le masque" & chr(13) & "(Format : 192.168.1.141, 255.255.255.0)", "IP?")
strGateway = inputbox("Adresse Passerelle ?" & chr(13) & "(Format : 192.168.1.100)", "Passerelle") & ", 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)
errGateways = objNetAdapter.SetGateways(strGateway)
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
Tiens nous au courant....
Tom
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
12 mars 2008 à 10:34
12 mars 2008 à 10:34
Re,
Essaie comma ça (attention, saisir l'IP et le masque entre guillemets, la passerelle est définie dans le code) :
Tom
Essaie comma ça (attention, saisir l'IP et le masque entre guillemets, la passerelle est définie dans le code) :
strIP1 = inputbox("Veuillez entre l'adresse IP "& chr(13) & "(Format : "&chr(34)&"192.168.1.141"&chr(34)&")", "IP?")
strmask1 = InputBox ("Veuillez entrer le masque de sous réseau"& chr(13) & "(Format : "&chr(34)&"255.255.255.0"&chr(34)&")", "Mask?")
strIP = Array(strIP1)
strmask = Array(strmask1)
strGateway = Array("192.168.1.100")
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
Tom
cabzing
Messages postés
18
Date d'inscription
samedi 30 juin 2007
Statut
Membre
Dernière intervention
7 juin 2010
12 mars 2008 à 11:50
12 mars 2008 à 11:50
resalut Tom,
cette fois-ci j'ai le message "the IP address could not be changed"
cette fois-ci j'ai le message "the IP address could not be changed"
cabzing
Messages postés
18
Date d'inscription
samedi 30 juin 2007
Statut
Membre
Dernière intervention
7 juin 2010
12 mars 2008 à 11:58
12 mars 2008 à 11:58
resalut Tom, excuse moi en fait c'est bon ça fonctionne sans mettre les guillemets...
Merci pour ton aide précieuse...
Merci pour ton aide précieuse...
kikoo
>
cabzing
Messages postés
18
Date d'inscription
samedi 30 juin 2007
Statut
Membre
Dernière intervention
7 juin 2010
27 déc. 2008 à 21:50
27 déc. 2008 à 21:50
Ouai c'est bien beau tout ça mais un conseil : essaie d'apprendre vbs avant d'utiliser es scripts ;)
12 mars 2008 à 09:48
Merci pour votre aide, mais en lançant le script .vbs j'ai bien ma boîte de dialogue qui se lance en me demandant de renseigner mon ip, mon masque et ma passerelle, mais ensuite j'ai un message d'erreur comme suit :
Windows script host
script : C:\test.vbs
ligne : 12
caract. : 5
erreur : types non correspondants
code : 80041005
source : SWbemobjectEx
Et les infos ip ne sont pas renseignés.
Si vous avez une idée je vous serez très reconnaissant.
Merci.
22 nov. 2009 à 15:57
strIP1 = inputbox("Veuillez entre l'adresse IP "& chr(13) & "(Format : "&chr(34)&"192.168.1.141"&chr(34)&")", "IP?")
strmask1 = InputBox ("Veuillez entrer le masque de sous réseau"& chr(13) & "(Format : "&chr(34)&"255.255.255.0"&chr(34)&")", "Mask?")
strIP = Array(strIP1)
strmask = Array(strmask1)
strGateway = Array("192.168.1.100")
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
Laila