<%
'-----------------------------------------------------
'Funcao: IsIP(ByVal IP)
'Sinopse: Verifica se o parâmetro é um endereço IP válido
'Parametro: IP
'Retorno: Booleano
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function IsIP(ByVal IP)
    'Validando o formato com expressão regular
    Set regEx = New RegExp                            'Cria o Objeto Expressão
    regEx.Pattern = "^(([1]?[0-9]{1,2}|2([0-4][0-9]|5[0-5]))\.){3}([1]?[0-9]{1,2}|2([0-4][0-9]|5[0-5]))$"    ' Expressão Regular
    regEx.IgnoreCase = True                            ' Sensitivo ou não
    regEx.Global = True                                
    
    Retorno  = RegEx.Test(IP)
    
    'Retornando a função
    IsIP = Retorno
    
    'Destruindo os objetos
    Set regEx = Nothing
End Function
%>