Discussion :

[bandito46]

Bonjour,

Je suis vraiment debutant sous windev , j aimerai changer le masque sous reseau de plus de 250 poste. Pour cela j aimerai creer un .exe sous windev .

J aimerai savoir si deja c'etait possible?

Si vous pouvez vous me guider ou me donner des piste? la commande en question.

par avance je vous remerci

[michel.souris]

Je pense qu'un .bat serait plus adapté.

[Toytoy31]

bonjour,

avez vous déjà une idée d'un bout de code ou pas ?

ou quelques renseignements qui pourraient nous aider à vous apporter de l'aide ?

[michel.souris]

Je pense qu'un .bat avec netsh sera le plus efficace : http://fr.wikipedia.org/wiki/Netsh

[Toytoy31]

effectivement vous avez raison #michel.souris , le .bat avec utilisation d'un LanceAplli("MonFichier.bat") serait plus adéquate :

[bandito46]

deja merci de s interressé a mon probleme.

J ai bien pensé au .bat mais j ai trouver qu une commande , et elle permet de changer le masque de sous reseau mais elle change aussi l'ip . Hors tout les poste sont avec des ip fixe. Donc impossible de faire fonctionner.

Malheureusement non je n ai pas d idee, je ne sais meme pas si c'est possible.

en recherchant j ai bien trouver ceci ,

http://www.developpez.net/forums/d11...resse-ip-d-pc/

sa a l air de s en approcher malgres que sa soit pour changer l ip.. mais j avaoue que j ai besoin d aide pour simplement le comprendre.

[Toytoy31]

de rien, c'est normal d'aider les autres

que ne comprenez vous pas ?

mettez le bout de code si vous les pouvez et on vous l'expliquera

[michel.souris]

Tu fais en plusieurs étapes :

1-> tu récupères l'ip actuel
2-> tu génère un .bat qui reconfigure la carte réseau avec son ip actuel + le nouveau masque
3-> tu lance le .bat

[bandito46]

j'ai bien essayer ce procédé, mais je n y suis pas arrivé, un des probleme c'est que les .bat ne gere pas les caractere accentué , hors le nom de ma connexion en possede.
du coup il faudrais que je change partout le nom de la connexion , se qui revient a changer partout le masque de sous reseau.

voila pourquoi je voulais creer un exe windev

[Toytoy31]

il vous est possible d'utiliser la fonction OemVersAnsi() afin de décoder les caractères spéciaux

[michel.souris]

ou alors tu passes même pas par un .bat mais par LanceAppli("netsh......")

et comme ça pas de pb !

[Toytoy31]

je ne l'ai pas teste... mais vous pouvez essayer ce bout de code dans une fenetre :

sNomUtilisateur est une chaîne = RéseauUtilisateur()
sCheminFichierBat est une chaîne = "C:\Documents and settings\"+sNomUtilisateur+"\Desktop\Infos_Reseau.txt"
iResOuvertureFichier est un entier = fOuvre(sCheminFichierBat,foLectureEcriture)
sAdresseIpV4 est une chaîne
SMasqueSousReseau est une chaîne = "Ton_Masque_Sous_Reseau"
sNomConnexionReseau est une chaîne = "Nom_De_Ta_Connexion_reseau"

// le fichier "Recup_Infos_Reseau.bat" contient le code suivant :
// ipconfig /all > "C:\Documents and settings\ton nom d'utilisateur\Desktop\Infos_Reseau.txt"
LanceAppli("Recup_Infos_Reseau.bat")

SI iResOuvertureFichier = -1 ALORS
Erreur("Impossible d'ouvrir le fichier")
SINON
TANTQUE fLitLigne(iResOuvertureFichier) <> OemVersAnsi("Adresse IPv4")
CONTINUER
FIN
sAdresseIpV4 = OemVersAnsi(Val(Milieu(fLitLigne(iResOuvertureFichier),41,15)))
SI VérifieExpressionRégulière(sAdresseIpV4,"#^((([0-2][0-5]{2})|([0-1][0-9]{2})|([0-9]{1,2}))\.){3}(([0-2][0-5]{2})|([0-1][0-9]{2})|([0-9]{1,2}))$#") ALORS
LanceAppli("netsh interface ip set address static " + sNomConnexionReseau + " " + sAdresseIpV4 + " " + SMasqueSousReseau)
FIN
FIN

[bandito46]

voici ce que j ai commencer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

pensez vous que cela peu marcher?

mon probleme c'est de recuperer l adresse ip existance , pour la reintegrer dans mon code

[michel.souris]

http://doc.pcsoft.fr/fr-FR/?3056023&...q=Adresse%20IP

[bandito46]

je suis dessus effectivement , mais je n arrive pas a recuperer la valeur , je vais faire plusieur test et revenir vers vous si mes effort sont un echec :p

merci pour tout deja

[Toytoy31]

pas de problème, je reste à votre écoute

[Toytoy31]

// NetAdresseIP() retourne l'adresse IP du poste sur lequel le code est executé

Je vous dirais (cela ne dépends que de mon point de vue), de créer des variables globales au projet, comme cela cela évitera de devoir créer des variables "temporaires" :

/////////////////////////////
DECLARATION GLOBALE DU PROJET
/////////////////////////////

//* on définit les parametres réseaux
GP_sPasserrelle est une chaîne = "192.168.123.204"
GP_sMasqueSousReseau est une chaîne = "255.255.254.0"
GP_sServeurDNSprimaire est une chaine = "192.168.123.1"
GP_sServeurDNSsecondaire est une chaine = "192.168.123.150"
GP_sMonNomReseau est une chaîne="mon_reseau_local"

//* on recupere l'adresse IP du poste local
GP_sAdresseIpEnCours est une chaîne = NetAdresseIP()


////////////////////////////////////////////////////////////
CODE LORS DU CLIC SUR UN BOUTON PAR EXEMPLE DANS UNE FENETRE
////////////////////////////////////////////////////////////


nRetour est un entier

////config IP

nRetour=LanceAppli("netsh interface ip set address "+GP_sMonNomReseau+" static "+GP_sAdresseIpEnCours+" "+GP_sMasqueSousReseau+" "+GP_sPasserrelle+" 1",exeIconise,exeBloquant)

////DNS
SI GP_sServeurDNSprimaire<>"" ALORS
nRetour=LanceAppli("netsh interface ip set dns "+GP_sMonNomReseau+" static "+GP_sServeurDNSprimaire + " primary",exeIconise,exeBloquant)
FIN
SI GP_sServeurDNSsecondaire<>"" ALORS
nRetour=LanceAppli("netsh interface ip add dns "+GP_sMonNomReseau+" "+GP_sServeurDNSsecondaire+" index=2",exeIconise,exeBloquant)
FIN

LIB_INFo="Configuration modifiée"