:)

Awesome :)

Function GetNumberOfAvailableHostAddresses(nMaskLength)
    Dim nHosts, nAvailableBits
    nHosts = -1
    'wscript.echo
    nAvailableBits = 32 - nMaskLength

    'wscript.echo nAvailableBits
    'Number of Addresses Available for Hosts in Subnet = 2(32 - Number of Masked Bits) - 2

    nHosts = (2 ^ nAvailableBits) - 2

    GetNumberOfAvailableHostAddresses = nHosts
End Function

Function GetAllHostAddresses(sNetAddress, sMaskLength)
    Dim oAllIPs
    Dim sBroadcast, sNetwork
    Dim arrOctets
    Dim nIndexOct4, nIndexOct3, nIndexOct2, nIndexOct1

    'Add all IPS to dictionary object
    Set oAllIPs = CreateObject("Scripting.Dictionary")

    'Network address is low address, Broadcast address is high address
    sNetwork = CalcNetworkAddress(sNetAddress, sMaskLength)
    sBroadcast = CalcBroadcastAddress(strIP, strMask)

    arrNetwork = Split(sNetwork, ".")
    arrBroadcast = Split(sBroadcast, ".")

    For nIndexOct1 = arrNetwork(0) To arrBroadcast(0)
        For nIndexOct2 = arrNetwork(1) To arrBroadcast(1)
            For nIndexOct3 = arrNetwork(2) To arrBroadcast(2)
                For nIndexOct4 = arrNetwork(3) To arrBroadcast(3)
                    'Wscript.echo nIndexOct1 & "." & nIndexOct2 & "." & nIndexOct3 & "." & nIndexOct4
                    oAllIPs.add nIndexOct1 & "." & nIndexOct2 & "." & nIndexOct3 & "." & nIndexOct4, ""
                Next
            Next
        Next
    Next

    Set GetAllHostAddresses = oAllIPs
End Function

Sorry for the delay in getting back to you, I’ve been on holiday so a bit out of touch.

The functions return the correct value for me, did you also include the ConvertIPToBinary and ConvertBinIPToDecimal?

Normally you would use the function something like this:

strNetAddr = CalcNetworkAddress(strIP, strMask)
Or
WScript.Echo CalcNetworkAddress(strIP, strMask)

Chris

Thanks for the contribution :)

All code is intended to be public domain, I’ll post an explicit statement to that effect somewhere.

Chris

I have written two extra functions (based on yours), which returns the first and last IP address of a subnet. (usefull for some tools).

I place my contribution in public domain.
BTW, Could you clarify the license of your script (typically Public domain, BSD license, or GPL license).

' **** Calculate the first usable address of a subnet ****
'
' Note that this function includes calls to both ConvertIPToBinary and ConvertBinIPToDecimal.
Function CalcRangeStart(strIP, strMask)
  ' Generates the Network Address from the IP and Mask

  Dim arrOctets
  Dim strBinIP, strBinMask, strIPBit, strMaskBit, strBinStart
  Dim intOctet, i, j

  ' Conversion of IP and Mask to binary
  strBinIP = ConvertIPToBinary(strIP)
  strBinMask = ConvertIPToBinary(strMask)

  ' Bitwise AND operation (except for the dot)
  For i = 1 to Len(strBinIP)
    strIPBit = Mid(strBinIP, i, 1)
    strMaskBit = Mid(strBinMask, i, 1)

    If strIPBit = "1" And strMaskBit = "1" Then
      strBinStart = strBinStart & "1"
    ElseIf strIPBit = "." Then
      strBinStart = strBinStart & strIPBit
    Else
      If i = Len(strBinIP) Then
        strBinStart = strBinStart & "1"
      Else
        strBinStart = strBinStart & "0"
      End If
    End If
  Next

  ' Conversion of Binary IP to Decimal
  CalcRangeStart = ConvertBinIPToDecimal(strBinStart)
End Function

' **** Calculate the last usable address of a subnet ****
'
' Note that this function includes calls to both ConvertIPToBinary and ConvertBinIPToDecimal.
Function CalcRangeEnd(strIP, strMask)
  ' Generates the Network Address from the IP and Mask

  Dim arrOctets
  Dim strBinIP, strBinMask, strIPBit, strMaskBit, strBinEnd
  Dim intOctet, i, j

  ' Conversion of IP and Mask to binary
  strBinIP = ConvertIPToBinary(strIP)
  strBinMask = ConvertIPToBinary(strMask)

  ' Bitwise AND operation (except for the dot)
  For i = 1 to Len(strBinIP)
    strIPBit = Mid(strBinIP, i, 1)
    strMaskBit = Mid(strBinMask, i, 1)

    If strMaskBit = "1" Then
      strBinEnd = strBinEnd & strIPBit
    ElseIf strIPBit = "." Then
      strBinEnd = strBinEnd & strIPBit
    Else
      If i = Len(strBinIP) Then
        strBinEnd = strBinEnd & "0"
      Else
        strBinEnd = strBinEnd & "1"
      End If
    End If
  Next

  ' Conversion of Binary IP to Decimal
  CalcRangeEnd = ConvertBinIPToDecimal(strBinEnd)
End Function

It just returns a string like so;

00001010.00011110.00110011.00111110 11111111.11111111.11111111.00000000 0 0 00001010.00011110.00110011.00000000

I am trying to get the network address (e.g. 192.168.0/24) from the IP address and Subnet mask;

strIP = “192.168.0.100″
strMask = “255.255.255.0″

CalcNetworkAddress strIP, strMask

I am sure I am missing something.

TIA !
Jon