'++Récupération du nom de l'ordinateur----------------- Set wshShell = CreateObject( "Wscript.Shell" ) strOrdi = wshShell.ExpandEnvironmentStrings(InputBox("Saisir une adresse Ip", "Saisie")) 'Vérification Ip Valide Set myRegex = new Regex myRegex.Pattern = "([0-9]{1,3}\.){3}" if myRegex.Test(strOrdi) <> True then CheckIPFormat = False else CheckIPFormat = True end if