通过wmi获取主机IP与掩码后计算得出主机上限(广播-1)与主机下限(网络+1)
经过修改可以利用win32_pingstatus来自动扫描局域网在线主机数
- IPAddress=InputBox("输入IP地址:")
- IPSubnet=InputBox("输入网络掩码:")
- 'IPAddress="192.168.3.55"
- 'IPSubnet="255.255.128.0"
- Address=split(ipaddress,".")
- Subnet=split(ipsubnet,".")
- For i = LBound(Address) To UBound(Subnet)
- Hostbit=(Address(i) And Subnet(i))
- IPBroad=IPBroad & (Subnet(i) Xor 255)+Hostbit & "."
- IPHost=IPHost & Hostbit & "."
- Next
- Msgbox Left(IPBroad,Len(IPBroad)-1) & " " & Left(IPHost,Len(IPHost)-1)
复制代码
|