AutoIt : changer l'adresse IP
Saturday, 7. June 2008, 10:10:38
Alors que pour une raison quelconque je ne pouvais pas utiliser le NETSH pour changer l'adresse IP dans un fichier BATCH classique, je n'ai pas trouvé d'autres manières de le faire dans AutoIT.
Mais pourquoi ne pas faire partager cette ressource ?
Alors j'ai simplement compilé les deux : un RUNWAIT et le NETSH classique.
J'ai fait pour l'amusement un p'tit SPLASHTEXTON ... Vous pouvez maintenant associer ces deux fonctions...
Bien entendu vous devez modifier le RANGE IP ainsi que les DNS. Vous avez aussi la possibilité de les intégrer en tant que variable dans la fonction _IP() !
Simple, mais au moins efficace.
Mais pourquoi ne pas faire partager cette ressource ?
Alors j'ai simplement compilé les deux : un RUNWAIT et le NETSH classique.
Func _IP($centre,$pc)
GUISetState(@SW_HIDE)
SplashTextOn("Crépuscule", "Configuration en cours, veuillez patienter...", 400, 75, -1, -1)
WinActivate("Crépuscule")
RunWait('netsh.exe interface ip set address "Local Area Connection" static 192.168.' & _
$centre & '.' & $pc & ' mask=255.255.255.0 192.168.' & $centre & '.1 0', '', @SW_HIDE)
WinActivate("Crépuscule")
RunWait('netsh.exe interface ip set dns "Local Area Connection" static 192.168.1.1 PRIMARY', '', @SW_HIDE)
WinActivate("Crépuscule")
RunWait('netsh.exe interface ip add dns "Local Area Connection" 192.168.1.2 2', '', @SW_HIDE)
WinActivate("Crépuscule")
RunWait('netsh.exe interface ip set wins "Local Area Connection" static 192.168.1.1', '', @SW_HIDE)
WinActivate("Crépuscule")
RunWait('netsh.exe interface ip add wins "Local Area Conection" 192.168.1.2 2', '', @SW_HIDE)
SplashOff()
EndFunc
Func _DHCP()
GUISetState(@SW_HIDE)
SplashTextOn("Crépuscule", "Configuration en cours, veuillez patienter...", 400, 75, -1, -1)
WinActivate("Crépuscule")
RunWait('netsh.exe interface ip set address "Local Area Connection" dhcp', '', @SW_HIDE)
WinActivate("Crépuscule")
RunWait('netsh.exe netsh interface ip set wins "Local Area Connection" dhcp', '', @SW_HIDE)
WinActivate("Crépuscule")
RunWait('netsh.exe netsh interface ip set dns "Local Area Connection" dhcp', '', @SW_HIDE)
WinActivate("Crépuscule")
SplashOff()
EndFunc
J'ai fait pour l'amusement un p'tit SPLASHTEXTON ... Vous pouvez maintenant associer ces deux fonctions...
Bien entendu vous devez modifier le RANGE IP ainsi que les DNS. Vous avez aussi la possibilité de les intégrer en tant que variable dans la fonction _IP() !
Simple, mais au moins efficace.
