Hackoo

Ok , I solved it like this, and thank you for your reply Local $Titre = "Tester la validité d'une d'Adresse IP" Local $IP = InputBox("Veuillez saisir une Adresse",$Titre,"172.16.18.21") If $IP = "" Then Exit if IP_Valide($IP) = True Then Msgbox(64,$Titre,$IP & " est une adresse est valide") else MsgBox(16,$Titre,$IP & " est une adresse est non valide") EndIf Local $IP = InputBox("Veuillez saisir une Adresse",$Titre,"500.800.18.21") if IP_Valide($IP) = True Then Msgbox(64,$Titre,$IP & " est une adresse valide") else MsgBox(16,$Titre,$IP & " est une adresse non valide") EndIf Func IP_Valide($ip) Return StringRegExp ($ip,"^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$") EndFunc

Hi I want to translate this function written in Vbscript to Autoit 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 Thank you in advance !