
Announcements
Dim startIP As String = in_InputIPAddress.Split("-")(0)
Dim endIP As String = in_InputIPAddress.Split("-")(1)
Dim startAddress As IPAddress = IPAddress.Parse(startIP)
Dim endAddress As IPAddress = IPAddress.Parse(endIP)
Dim currentIP As Byte() = startAddress.GetAddressBytes()
Dim endIPBytes As Byte() = endAddress.GetAddressBytes()
Dim ipList As New List(Of String)
' Loop until we reach the end IP
Do
ipList.Add(String.Join(".", currentIP))
' Increment the IP address
For i As Integer = currentIP.Length - 1 To 0 Step -1
currentIP(i) += 1
If currentIP(i) <> 0 Then Exit For
Next
Loop While Not currentIP.SequenceEqual(endIPBytes)
' Add the last IP in the range
ipList.Add(endIP)
out_IPAddressList=ipList