High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Script .vbs pour saisir ip et masque réseau

Dernière réponse le 22 nov 2009 à 15:57:31 cabzing, le 11 mar 2008 à 17:07:32 
 Signaler ce message aux modérateurs

Bonjour,
Je ne connais pas du tout le language pour paramétrer des scripts vbs et je voudrais savoir si il existe un script .vbs permettant de renseigner l'ip et le masque sous réseau via une boite de dialogue ceci afin de faciliter le paramétrage après la réalisation d'un ghost.
J'ai essayé de réaliser un fichier .bat avec la commande netsh mais celle-ci ne fonctionne pas avec mon OS en XP Embedded qui ne possède pas tous les composants requis.

Merci de vos réponses.

Configuration: Windows XP Embedded
Internet Explorer 6.0

Meilleures réponses pour « script .vbs pour saisir ip et masque réseau » dans :
Masquer un serveur dans les favoris réseaux VoirMasquer un serveur dans les favoris réseaux WIN 98, 2000, XP, Vista Par sécurité, par doute, il peut être intéressant de "cacher" une machine sur son réseau afin de la masquer pour toute personne accédant à ses favoris réseaux. Ceci est d'autant...
Adresse IP terminant par 0 = Adresse IP réseau ? VoirAttention à la croyance qui veut que toutes les adresses IP finissant par 0 soient des adresses réseau. Je n'entre pas dans le détail de comment reconnaître une adresse réseau ou une adresse hôte (voir plutôt les docs sur le site :...
Conflit d'adresse IP VoirProblème de conflit IP Lorsque vous essayez de vous connecter, le système vous signale un conflit d'adresse IP ou bien la connexion saute constamment. Ceci est probablement lié au fait que deux ordinateurs sur le réseau tentent d'obtenir la même...
Adresse IP VoirSommaire Qu'est-ce qu'une adresse IP Déchiffrement d'une adresse IP Adresses particulières Les classes de réseaux (obsolète) Classe A Classe B Classe C Attribution des adresses IP Adresses IP réservées Masques de sous-réseau Interet...
Le protocole IP VoirLe rôle du protocole IP Le protocole IP fait partie de la couche Internet de la suite de protocoles TCP/IP. C'est un des protocoles les plus importants d'Internet car il permet l'élaboration et le transport des datagrammes IP (les paquets de...
Posez votre question Répondre

1

tompols, le 11 mar 2008 à 17:50:42

Bonjour,
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

   
Répondre à tompols

2

cabzing, le 12 mar 2008 à 09:48:25

Bonjour,
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.

   
Répondre à cabzing

7

 Lilou, le 22 nov 2009 à 15:57:31

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

Laila

   
Répondre à Lilou

3

tompols, le 12 mar 2008 à 10:34:05

Re,

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

   
Répondre à tompols

4

cabzing, le 12 mar 2008 à 11:50:57

Resalut Tom,
cette fois-ci j'ai le message "the IP address could not be changed"

   
Répondre à cabzing

5

cabzing, le 12 mar 2008 à 11:58:41

Resalut Tom, excuse moi en fait c'est bon ça fonctionne sans mettre les guillemets...
Merci pour ton aide précieuse...

   
Répondre à cabzing

6

kikoo, le 27 déc 2008 à 21:50:57

Ouai c'est bien beau tout ça mais un conseil : essaie d'apprendre vbs avant d'utiliser es scripts ;)

   
Répondre à kikoo
Posez votre question Répondre
Ils ont besoin de votre aide