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