O endereço IP, na versão 4 (IPv4), é um número de 32 bits escrito com quatro octetos e no formato decimal (exemplo: 128.6.4.7). A primeira parte do endereço identifica uma rede específica na inter-rede, a segunda parte identifica um host dentro dessa rede.
Com este código é possível fazer a validação do formato do endereço IP utilizando Expressão Regular.
<%
'-----------------------------------------------------
'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
%>
