Vbs IP validates regular expressions
Msgbox check_ip ("1.1.1.1")
Function check_ip (ip)
Dim regEx
Set regEx = new regExp
RegEx.pattern = "^ (([01]? [\ d] {1pr 2}) | (2 [0-4] [\ d]) | (25 [0-5])) (\. (([01]? [\ d] {1pr 2}) | (2 [0-4] [\ d]) | (25 [0-5]) {3} $"
Check_ip = regEx.test (ip)
End Function