IP、子网掩码、默认网关在QTP中怎么判断是否合法

oliver.tang

在设置IP地址、子网掩码、默认网关后，如何判断这三个是否合法；
我这已经有一个判断IP是否合法的方法：

Dim yz
IP=Inputbox("请输入IP:","IP地址判断")
IPS=Split(IP,".")
yz=0

if UBOUND(IPS)=3 THEN
    for i = lbound(ips) to ubound(ips)
        if ips(i)="" then '判断IP地址数组中是否有空数组.
            yz=0
        else
        if IsNumeric(ips(i)) then '判断IP地址的每一段是否数字.
                if ips(i)>=0 and ips(i)<= 255 then '判断IP地址的每一段的大小.
                    yz=yz+1
                end if
        else
            yz=0
        end if
        end if
    next
ELSE
    yz=0
end if

if yz=4 then
    msgbox "IP地址正确!"
else
    msgbox "IP地址无效!"
end if