Autoit - Changement d'adresse IP pour les feignants
Par Romain Tiennot le mercredi 22 août 2012, 09:00 - Autoit - Lien permanent
Je devais changer plusieurs fois par jour mon adresse IP pour accéder à internet puis a une plateforme de test qui ne sont pas sur le même réseau. Ayant marre de faire toujours la meme mainipulation, j'ai créé un script sous Autoit permetant de passer en IP fixe en DHCP.
Ca peut etre utile :
#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=network.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** $Cx = "vEthernet (Externe - Wifi)" If @IPAddress1 = "192.168.23.205" Then SplashTextOn("Configuration DHCP","Configuration DHCP en cours ...", 400, 50, -1, -1, 33, -1, 18) Sleep(3000) RunWait(@ComSpec & ' /c ' & 'netsh interface ip set address name=' & '"' & $Cx & '"' & ' dhcp', "", @SW_HIDE) sleep(300) RunWait(@ComSpec & ' /c ' & 'netsh interface ip set dns name=' & '"' & $Cx & '"' & ' dhcp', "", @SW_HIDE) Else SplashTextOn("Configuration STATIC","Configuration STATIC en cours ...", 400, 50, -1, -1, 33, -1, 18) Sleep(3000) ; static pour l'IP du PC. RunWait(@ComSpec & ' /c ' & 'netsh interface ip set address name=' & '"' & $Cx & '"' & ' static 192.168.23.205 255.255.255.0 192.168.23.254 1' & '', "", @SW_HIDE) ; static pour les DNS du PC. RunWait(@ComSpec & ' /c ' & 'netsh interface ip set dns name=' & '"' & $Cx & '"' & ' static 192.168.23.200', "", @SW_HIDE) RunWait(@ComSpec & ' /c ' & 'netsh interface ip add dns name=' & '"' & $Cx & '"' & ' 8.8.8.8', "", @SW_HIDE) EndIf
A bientôt,
Romain
Il y a un commentaire
I relish, result in I discovered just what I used to be taking a look for. You have ended my four day long hunt! God Bless you man. Have a nice day. Bye