VBscript: Boite de dialogue pour saisir une @ IP

**honey2** · 27/03/2013, 11h56

Bonjour à tous,

Je souhaite avoir une boite de dialogue pour saisir l'@ IP et cela avec VBscript.
Je voudrai qu'elle soit comme en pièce jointe: avec des points..etc.
Merci d'avance pour votre aide.

Voici mon

Code :

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

1
2
3
switch = InputBox("Entrez le nom du switch:", "Switch name","")
ip = InputBox("Entrez l'adresse ip du Switch:", "ip address","")
gateway = InputBox("Entrez la passerelle", "gateway default","")

Merci encore

**hackoofr** · 27/03/2013, 13h32

et Bienvenue sur DVP
Donc, si j'ai bien compris votre demande, c'est que vous voulez inviter un utilisateur à saisir les paramètres comme adresse IP, masque sous réseau, gataway,DNS1,DNS2 etc.... comme dans l'image que vous avez posté
et ceci dans le but pour les changer c'est ça

**honey2** · 27/03/2013, 15h28

En effet mon but est de saisir ces données mais pas de les changer car il n'existe pas. je vais inviter l'utilisateur à les saisir et cela avec VBscript(car j'ai déjà travailler avec!).
Merci

**hackoofr** · 27/03/2013, 18h32

un début de script avec test de validité de l'adresse ip saisi par l’utilisateur

Exemple :

172.16.18.21 est une adresse ip Valide
300.22.194.37 est une adresse ip non Valide

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
Titre = "Tester la validité d'une d'Adresse IP"
AdressIP = InputBox("Veuillez saisir une Adresse IP ",Titre,"172.16.18.21")
if IP_Valide(AdressIP) = True Then
	MsgBox AdressIP & " est une Adresse IP Valide",64,Titre
else
	MsgBox AdressIP & " est une Adresse IP NON Valide",16,Titre
End if
 
gateway = InputBox("Entrez la passerelle", "gateway default","255.255.255.0")
if IP_Valide(gateway) = True Then
	MsgBox gateway & " est une Adresse IP Valide",64,Titre
else
	MsgBox gateway & " est une Adresse IP NON Valide",16,Titre
End if
 
Function IP_Valide(ip)
	Set RegularExpressionObject = New RegExp
	With RegularExpressionObject
		.Pattern = "^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$"
		.IgnoreCase = False
		If .Test(ip)= True then
			IP_Valide = True
		end if
	End With
End Function

**honey2** · 28/03/2013, 14h06

Merci pour ta réponse.
Ce code est très intéressant dans la mesure ou il va me permettre d'indiquer des @ip interdites.
Peux tu m'expliquer un peu plus en détail le fonctionnement de la fonction IP_Valide(ip)?

P.S: au point de vue esthétique, il serait intéressant que je laisse libre choix à l'utilisateur de saisir une @ip en mettant dans la boite de dialogue juste des point et des espaces:
. . . !

Merci encore