本文介绍了一个使用VBS脚本验证IPv4和IPv6地址有效性的方法。通过正则表达式匹配来判断输入的字符串是否符合IP地址的标准格式。
Private Function Pf_IsIP(Arg_Value As Variant) As Boolean
Dim RegEx As Object
Set RegEx = CreateObject("vbscript.regexp")
RegEx.Global = True
'IPV4
RegEx.Pattern = "^(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])/.(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])/.(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])/.(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])$"
If Not (RegEx.Test(Arg_Value)) Then
'IPV6
RegEx.Pattern = "([0-9a-fA-F]{4}:){7}[0-9a-fA-F]{4}"
If Not (RegEx.Test(Arg_Value)) Then
Pf_IsIP = False
Exit Function
End If
End If
Pf_IsIP = True
End Function
Dim RegEx As Object
Set RegEx = CreateObject("vbscript.regexp")
RegEx.Global = True
'IPV4
RegEx.Pattern = "^(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])/.(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])/.(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])/.(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])$"
If Not (RegEx.Test(Arg_Value)) Then
'IPV6
RegEx.Pattern = "([0-9a-fA-F]{4}:){7}[0-9a-fA-F]{4}"
If Not (RegEx.Test(Arg_Value)) Then
Pf_IsIP = False
Exit Function
End If
End If
Pf_IsIP = True
End Function
扫一扫
982
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
