1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
sAdresse_ip est une chaîne=???
sPasserrelle est une chaîne="192.168.123.204"
sMasqueSousReseau est une chaîne="255.255.254.0"
sServeurDNSprimaire, sServeurDNSsecondaire sont des chaînes
sServeurDNSprimaire="192.168.123.1"
sServeurDNSsecondaire="192.168.123.150"
monNomReseau est une chaîne="mon réseau local"
nRetour est un entier
////config IP
nRetour=LanceAppli("netsh interface ip set address """+monNomReseau+""" static "+sAdresse_ip+" "+sMasqueSousReseau+" "+sPasserrelle+" 1",exeIconise,exeBloquant)
////DNS
SI sServeurDNSprimaire<>"" ALORS
nRetour=LanceAppli("netsh interface ip set dns """+monNomReseau+""" static "+sServeurDNSprimaire + " primary",exeIconise,exeBloquant)
FIN
SI sServeurDNSsecondaire<>"" ALORS
nRetour=LanceAppli("netsh interface ip add dns """+monNomReseau+""" "+sServeurDNSsecondaire+" index=2",exeIconise,exeBloquant)
FIN
LIB_INFo="Configuration modifiée" |
Partager