Changer Adresse Ip et Masqué Sous Réseaux en vb

Bonjour,

J'aimerais savoir comment faire pour changer une adresse ip et le sous reseaux apartir d'une application vb, j'ai regarder sur le site, j'ai trouvé des choses, mais rien qui ne m'interaissait pas.

D'avance Merci
gredellisse@hotmail.com

Je pense pas que l'on puisse changer l'adresse IP....

It@li@

Salut,

Alors il y a plusieurs facon de modifier son adresse ip ainsi que ca passerelle.

1) Utiliser la commande dos (netsh)

Fait un netsh /? pour avoir de l'aide


2) Utiliser le WMI :

Set cards = GetObject("winmgmts: impersonationLevel=impersonate}").ExecQuery("select * from Win32_networkAdapterconfiguration") myip = Array("192.168.1.2") mynet = Array("255.255.255.0") mygateway= array ("192.168.1.1") mygatewaymetric= array (1) card.setgateways mygateway,mygatewaymetric for each card in cards retour=card.enablestatic myip, mynet retour2=card.setgateways mygateway,mygatewaymetric if retour = 0 then msgbox "Changement d'adresse effectué." else msgbox "le changement n'a pas pu se faire." end if if retour2 = 0 then msgbox "Changement de passerelle effectué." else msgbox "le changement n'a pas pu se faire." end if next

myip = adresseip
mynet = masque de réseau
mygateway = ta passerelle


Personnelement je te conseil d'utiliser la 2eme méthode


@++

________________
TheEwook

ReBonjour,

j'ai essayé le wmi, mais j'ai un probéme, avec
retour et retour2 me met en rouge, il me met
syntax error et j'ai bien activer le wmi dans les références.

d'avance merci
gredellisse@hotmail.com

wmi peut-être désactiver dans tes services
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------

avec le wmi, il me met syntax error ou end of statement
pour retour et retour 2?

je développe une application en vba, cette api interoge des sites des multitudes des fois et j'aimerais changer l'adresse IP dynamiquement, est ce qu'il y a quelqu'un qui peut m'aider.
merci