Buscar IP dentro de String

[AlZuwaga]

acá me salió algo usando expresiones regulares.
tengan en cuenta que es la primera vez que las utilizo (así que si estoy poniendo una burrada no se rían mucho =)



<%
strContenido = "Esta es una IP válida: 192.168.0.1. Esta otra no, pero no se cómo limitar a que no sea de más de 255: 256.0.0.1"

strAbuscar = "\d?\d?\d?\.\d?\d?\d?\.\d?\d?\d?\.\d?\d?\d?"



Set objRegEx = New RegExp
objRegEx.Global = True

objRegEx.Pattern = strAbuscar

Set Matches = objRegEx.Execute(strContenido)

For Each Match in Matches
strReturnStr = "Posible IP encontrada en posición "
strReturnStr = strReturnStr & Match.FirstIndex & ": "
strReturnStr = strReturnStr & Match.value
Response.Write(strReturnStr & "<BR>")
Next
%>


Lo que no me salió es que cada octeto no pueda ser más grande de 255 (por eso detecta a la segunda como IP válida, aunque no lo es)