how to easily get the subnet mask?

[Gianni]

Hi

is there a simple way to get the subnet mask of @IPAddress1?

thanks

[Astormooke]

Welcome to the forum!

I googled it and came up with this article which seems to fit your needs exactly

'?do=embed' frameborder='0' data-embedContent>>

let me know if there is anything else you need

Edited October 2, 2013 by Astormooke

[water]

Welcoming a user to the forum that has > 300 posts

[Astormooke]

Welcoming a user to the forum that has > 300 posts

 

oops I was just thrown by the fact that it was literally the first google search result, my apologies got distracted.

[Gianni]

Welcome to the forum!

I googled it and came up with this article which seems to fit your needs exactly

'?do=embed' frameborder='0' data-embedContent>>

let me know if there is anything else you need

Hi Astormooke

thanks for reply

I had already seen that link, but those scripts return a list of network adapters,

while I would just like the subnet mask of the card with the address @IPaddress1,

something like this: for example,

$IP = @IPAddress1

ConsoleWrite("Subnet mask of @IPAddress1 is " & GiveMeMask($IP) & @CRLF)

Func GiveMeMask($IP)

    $Mask = "...I do not know how"

    Return $Mask
EndFunc   ;==>GiveMeMask

Welcoming a user to the forum that has > 300 posts

thanks water

. . . .    Never mind, a warm welcome is always a pleasure!

[dragan]

expandcollapse popup

$theIP1 = @IPAddress1
$subnetIP = _GetSubnetBasedOnIP($theIP1)
if NOT @error then
    MsgBox(0, 'Success', 'For IP: ' & $theIP1 & @CRLF & 'Subnet is: ' & $subnetIP)
Else
    Switch @error
        Case 1
            MsgBox(0, 'Error 1', 'Input IP [' & $theIP1 & '] is not a valid IP address.')
        Case 2
            MsgBox(0, 'Error 2', 'Input IP [' & $theIP1 & '] was not found on this computer.')
        Case 3
            MsgBox(0, 'Error 3', 'WMI is not accessible.')
        Case Else
            MsgBox(0, 'Error X', 'Unknown error occured for the input IP [' & $theIP1 & '].')
    EndSwitch
EndIf

Func _GetSubnetBasedOnIP($theIP)
    if NOT _isIPaddr($theIP) Then Return SetError(1, 0, 0)
    Const $wbemFlagReturnImmediately = 0x10
    Const $wbemFlagForwardOnly = 0x20
    Local $colNICs="", $NIC, $strQuery, $objWMIService, $retVal = ""
    $strQuery = "SELECT * FROM Win32_NetworkAdapterConfiguration"
    $objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
    If @error then Return SetError(3, 0, 0)
    $colNICs = $objWMIService.ExecQuery($strQuery, "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colNICs) Then
        For $NIC in $colNICs
            if _isIPaddr($NIC.IPAddress(0)) then
                if $NIC.IPAddress(0) = $theIP Then
                    if _isIPaddr($NIC.IPSubnet(0)) then
                        $retVal = $NIC.IPSubnet(0)
                        ExitLoop
                    EndIf
                EndIf
            EndIf
        Next
    EndIf
    if $retVal = "" Then Return SetError(2, 0, 0)
    Return $retVal
EndFunc

Func _isIPaddr($sIPAddr)
    If NOT StringRegExp($sIPAddr, "^((25[0-5]|2[0-4]\d|[01]?\d?\d)\.){3}(25[0-5]|2[0-4]\d|[01]?\d?\d)$") Then Return SetError(1, 0, False)
    Return True
EndFunc

[mrflibblehat]

Or this way.

Local $vObjWMI = ObjGet("winmgmts:\\" & @ComputerName & "\root\cimv2")
    $vObjItems = $vObjWMI.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True')
    If IsObj($vObjItems) Then
        For $vObjItem In $vObjItems
            For $i = 0 To UBound($vObjItem.IPAddress) - 1
                If $vObjItem.IPAddress($i) == @IPAddress1 Then
                    ConsoleWrite("Subnet Mask: " & $vObjItem.IPSubnet($i))
                EndIf
            Next
        Next
    EndIf

[Gianni]

Thank you both dragan and mrflibblehat for the interesting solutions!

the two are basically the same, but, I did some tests and it has emerged that:

@dragan, your script is well cared for, I like, but it has a small gap, since you are using directly the index 0. ipaddress(0), it happens that if a card has more than one IP address (IP aliasing), and the IP we seek is not the first one, the search may fail.

@mrflibblehat while your script does not fail even in the presence of IP aliasing because you do the loop on all IP addresses of every single card.

I like them both, thanks

However, since it is possible that some computers do not have WMI access, I would like to obtain the same subnet  using a DLL instead of WMI, as is done >in this post by ProgAndy where a DLL is used but in a way a little bit complicated. I tried to extract only the part that returns the subnet but I gave up.

Do you know how to simplify that script and reduce it as those presented here above?

thanks

edit:

added ProgAndy's post link

Edited October 2, 2013 by PincoPanco

[dragan]

perhaps something like this:
 

expandcollapse popup

$theIP1 = @IPAddress1
$subnetIP = _GetSubnetBasedOnIP($theIP1)
if NOT @error then
    MsgBox(0, 'Success', 'For IP: ' & $theIP1 & @CRLF & 'Subnet is: ' & $subnetIP)
Else
    Switch @error
        Case 1
            MsgBox(0, 'Error 1', 'Input IP [' & $theIP1 & '] is not a valid IP address.')
        Case 2
            MsgBox(0, 'Error 2', 'Input IP [' & $theIP1 & '] was not found on this computer.')
        Case 3
            MsgBox(0, 'Error 3', 'dll open: Iphlpapi.dll, error code: ' & @extended)
        Case 4
            MsgBox(0, 'Error 4', 'dll call function: GetAdaptersInfo, error code: ' & @extended)
        Case 5
            MsgBox(0, 'Error 5', 'dll call function: GetAdaptersInfo with adapter buffer pointer, error code: ' & @extended)
        Case Else
            MsgBox(0, 'Error X', 'Unknown error occured for the input IP [' & $theIP1 & '].')
    EndSwitch
EndIf




;==========================================================================================================================================================
;==========================================================================================================================================================
Func _GetSubnetBasedOnIP($theIP)
    if NOT _isIPaddr($theIP) Then Return SetError(1, 0, 0)

    Local Const $tagIP_ADDRESS_STRING = "char IPAddress[16];"
    Local Const $tagIP_MASK_STRING = "char IPMask[16];"
    Local Const $tagIP_ADDR_STRING = "ptr Next;" & $tagIP_ADDRESS_STRING & $tagIP_MASK_STRING & "DWORD Context;"

    Local Const $tagIP_ADAPTER_INFO = "ptr Next; DWORD ComboIndex; char AdapterName[260];char Description[132]; UINT AddressLength; BYTE Address[8]; dword Index; UINT Type;" & _
            " UINT DhcpEnabled; ptr CurrentIpAddress; ptr IpAddressListNext; char IpAddressListADDRESS[16]; char IpAddressListMASK[16]; DWORD IpAddressListContext; " & _
            "ptr GatewayListNext; char GatewayListADDRESS[16]; char GatewayListMASK[16]; DWORD GatewayListContext; " & _
            "ptr DhcpServerNext; char DhcpServerADDRESS[16]; char DhcpServerMASK[16]; DWORD DhcpServerContext; " & _
            "int HaveWins; " & _
            "ptr PrimaryWinsServerNext; char PrimaryWinsServerADDRESS[16]; char PrimaryWinsServerMASK[16]; DWORD PrimaryWinsServerContext; " & _
            "ptr SecondaryWinsServerNext; char SecondaryWinsServerADDRESS[16]; char SecondaryWinsServerMASK[16]; DWORD SecondaryWinsServerContext; " & _
            "DWORD LeaseObtained; DWORD LeaseExpires;"

    Local $dll = DllOpen("Iphlpapi.dll")
    If @error then Return SetError(3, @error, 0)
    Local $ret = DllCall($dll, "dword", "GetAdaptersInfo", "ptr", 0, "dword*", 0)
    If @error then
        DllClose($dll)
        Return SetError(4, @error, 0)
    EndIf

    Local $adapterBuffer = DllStructCreate("byte[" & $ret[2] & "]")
    Local $adapterBuffer_pointer = DllStructGetPtr($adapterBuffer)
    DllCall($dll, "dword", "GetAdaptersInfo", "ptr", $adapterBuffer_pointer, "dword*", $ret[2])
    If @error then
        $adapterBuffer = ""
        $adapterBuffer_pointer = ""
        DllClose($dll)
        Return SetError(5, @error, 0)
    EndIf
    Local $adapter = DllStructCreate($tagIP_ADAPTER_INFO, $adapterBuffer_pointer)

    Local $retVal = ""
    Local $allArray = _GetAllIps(DllStructGetPtr($adapter, "IpAddressListNext"), $tagIP_ADDR_STRING)
    if IsArray($allArray) Then
        For $i = 0 to UBound($allArray)-1
            if _isIPaddr($allArray[$i][0]) then
                if $allArray[$i][0] = $theIP Then
                    if _isIPaddr($allArray[$i][1]) then
                        $retVal = $allArray[$i][1]
                        ExitLoop
                    EndIf
                EndIf
            EndIf
        Next
    EndIf

    $adapterBuffer = ""
    $adapterBuffer_pointer = ""
    DllClose($dll)
    if $retVal = "" Then Return SetError(2, 0, 0)
    Return $retVal
EndFunc

Func _GetAllIps($Ptr, $tagIP_ADDR_STRING)
    Local $IPStruct, $Index = 0
    Local $IPArray[1][3]
    Do
        ReDim $IPArray[$Index+1][3]
        $IPStruct = DllStructCreate($tagIP_ADDR_STRING,$ptr)
        $IPArray[$Index][0] = DllStructGetData($IPStruct,"IPAddress")
        $IPArray[$Index][1] = DllStructGetData($IPStruct,"IPMask")
        $IPArray[$Index][2] = DllStructGetData($IPStruct,"Context")
        $Ptr = DllStructGetData($IPStruct,"Next")
        $Index += 1
    Until $Ptr = 0
    Return $IPArray
EndFunc

Func _isIPaddr($sIPAddr)
    If NOT StringRegExp($sIPAddr, "^((25[0-5]|2[0-4]\d|[01]?\d?\d)\.){3}(25[0-5]|2[0-4]\d|[01]?\d?\d)$") Then Return SetError(1, 0, False)
    Return True
EndFunc

Edited October 3, 2013 by dragan

[Gianni]

Hi dragan, thanks for the script,

I tried it but I always get
Error 2 Input Address [xx.xx.xx.xx] was not found on this computer.

[dragan]

And when you run >this script, do you find your @IPAddress1 in the console XML output?

@IPAddress1 is the IP of the first network addapter, maybe that's not the address you're looking for?

Edited October 3, 2013 by dragan

[Gianni]

And when you run >this script, do you find your @IPAddress1 in the console XML output?

@IPAddress1 is the IP of the first addapter, maybe that's not the address you're looking for?

yes, that script returns right values (in XML format)

also >this other script (a similar one) returns right values in plain format

Edited October 3, 2013 by PincoPanco

[guinness]

ConsoleWrite(_GetBroadcastAddress(@IPAddress1, '255.255.255.0') & @CRLF)

; Based on the idea by: CodyBarrett - http://www.autoitscript.com/forum/topic/122072-serverless-udp/
Func _GetBroadcastAddress($sIPAddress, $sSubnetMask)
    Local $aIPAddress = StringSplit($sIPAddress, '.'), $aSubnetMask = StringSplit($sSubnetMask, '.')
    $sIPAddress = ''
    For $i = 1 To $aIPAddress[0]
        $aIPAddress[$i] = BitAND($aIPAddress[$i], $aSubnetMask[$i])
        If $aSubnetMask[$i] = 0 Then
            $aIPAddress[$i] = '255'
        EndIf
        $sIPAddress &= $aIPAddress[$i] & '.'
    Next
    Return StringTrimRight($sIPAddress, 1)
EndFunc   ;==>_GetBroadcaseAddress

I use this...

[dragan]

try this script, and see if your IP is among the array:

 

expandcollapse popup

#include <Array.au3>

$theIP1 = @IPAddress1
$subnetIP = _GetSubnetBasedOnIP($theIP1)
if NOT @error then
    MsgBox(0, 'Success', 'For IP: ' & $theIP1 & @CRLF & 'Subnet is: ' & $subnetIP)
Else
    Switch @error
        Case 1
            MsgBox(0, 'Error 1', 'Input IP [' & $theIP1 & '] is not a valid IP address.')
        Case 2
            MsgBox(0, 'Error 2', 'Input IP [' & $theIP1 & '] was not found on this computer.')
        Case 3
            MsgBox(0, 'Error 3', 'dll open: Iphlpapi.dll, error code: ' & @extended)
        Case 4
            MsgBox(0, 'Error 4', 'dll call function: GetAdaptersInfo, error code: ' & @extended)
        Case 5
            MsgBox(0, 'Error 5', 'dll call function: GetAdaptersInfo with adapter buffer pointer, error code: ' & @extended)
        Case Else
            MsgBox(0, 'Error X', 'Unknown error occured for the input IP [' & $theIP1 & '].')
    EndSwitch
EndIf




;==========================================================================================================================================================
;==========================================================================================================================================================
Func _GetSubnetBasedOnIP($theIP)
    if NOT _isIPaddr($theIP) Then Return SetError(1, 0, 0)

    Local Const $tagIP_ADDRESS_STRING = "char IPAddress[16];"
    Local Const $tagIP_MASK_STRING = "char IPMask[16];"
    Local Const $tagIP_ADDR_STRING = "ptr Next;" & $tagIP_ADDRESS_STRING & $tagIP_MASK_STRING & "DWORD Context;"

    Local Const $tagIP_ADAPTER_INFO = "ptr Next; DWORD ComboIndex; char AdapterName[260];char Description[132]; UINT AddressLength; BYTE Address[8]; dword Index; UINT Type;" & _
            " UINT DhcpEnabled; ptr CurrentIpAddress; ptr IpAddressListNext; char IpAddressListADDRESS[16]; char IpAddressListMASK[16]; DWORD IpAddressListContext; " & _
            "ptr GatewayListNext; char GatewayListADDRESS[16]; char GatewayListMASK[16]; DWORD GatewayListContext; " & _
            "ptr DhcpServerNext; char DhcpServerADDRESS[16]; char DhcpServerMASK[16]; DWORD DhcpServerContext; " & _
            "int HaveWins; " & _
            "ptr PrimaryWinsServerNext; char PrimaryWinsServerADDRESS[16]; char PrimaryWinsServerMASK[16]; DWORD PrimaryWinsServerContext; " & _
            "ptr SecondaryWinsServerNext; char SecondaryWinsServerADDRESS[16]; char SecondaryWinsServerMASK[16]; DWORD SecondaryWinsServerContext; " & _
            "DWORD LeaseObtained; DWORD LeaseExpires;"

    Local $dll = DllOpen("Iphlpapi.dll")
    If @error then Return SetError(3, @error, 0)
    Local $ret = DllCall($dll, "dword", "GetAdaptersInfo", "ptr", 0, "dword*", 0)
    If @error then
        DllClose($dll)
        Return SetError(4, @error, 0)
    EndIf

    Local $adapterBuffer = DllStructCreate("byte[" & $ret[2] & "]")
    Local $adapterBuffer_pointer = DllStructGetPtr($adapterBuffer)
    DllCall($dll, "dword", "GetAdaptersInfo", "ptr", $adapterBuffer_pointer, "dword*", $ret[2])
    If @error then
        $adapterBuffer = ""
        $adapterBuffer_pointer = ""
        DllClose($dll)
        Return SetError(5, @error, 0)
    EndIf
    Local $adapter = DllStructCreate($tagIP_ADAPTER_INFO, $adapterBuffer_pointer)

    Local $retVal = ""
    Local $TEMPVAL[1][2]
    Local $allArray = _GetAllIps(DllStructGetPtr($adapter, "IpAddressListNext"), $tagIP_ADDR_STRING)
    if IsArray($allArray) Then
        $TEMPVAL[0][0] = UBound($allArray)
        For $i = 0 to UBound($allArray)-1
            ReDim $TEMPVAL[UBound($TEMPVAL)+1][2]
            $TEMPVAL[UBound($TEMPVAL)-1][0] = $allArray[$i][0]
            $TEMPVAL[UBound($TEMPVAL)-1][1] = $allArray[$i][1]
            if _isIPaddr($allArray[$i][0]) then
                if $allArray[$i][0] = $theIP Then
                    if _isIPaddr($allArray[$i][1]) then
                        $retVal = $allArray[$i][1]
;~                      ExitLoop
                    EndIf
                EndIf
            EndIf
        Next
    EndIf
    _ArrayDisplay($TEMPVAL)
    $adapterBuffer = ""
    $adapterBuffer_pointer = ""
    DllClose($dll)
    if $retVal = "" Then Return SetError(2, 0, 0)
    Return $retVal
EndFunc

Func _GetAllIps($Ptr, $tagIP_ADDR_STRING)
    Local $IPStruct, $Index = 0
    Local $IPArray[1][3]
    Do
        ReDim $IPArray[$Index+1][3]
        $IPStruct = DllStructCreate($tagIP_ADDR_STRING,$ptr)
        $IPArray[$Index][0] = DllStructGetData($IPStruct,"IPAddress")
        $IPArray[$Index][1] = DllStructGetData($IPStruct,"IPMask")
        $IPArray[$Index][2] = DllStructGetData($IPStruct,"Context")
        $Ptr = DllStructGetData($IPStruct,"Next")
        $Index += 1
    Until $Ptr = 0
    Return $IPArray
EndFunc

Func _isIPaddr($sIPAddr)
    If NOT StringRegExp($sIPAddr, "^((25[0-5]|2[0-4]\d|[01]?\d?\d)\.){3}(25[0-5]|2[0-4]\d|[01]?\d?\d)$") Then Return SetError(1, 0, False)
    Return True
EndFunc

EDIT :
I just figured out, you probably have the same gateway IP as your @IPAddress1, so this will probably give you the subnet:
 

expandcollapse popup

$theIP1 = @IPAddress1
$subnetIP = _GetSubnetBasedOnIP($theIP1)
if NOT @error then
    Local $type = ''
    Switch @extended
        Case 0
            $type = 'Regular adapter IP'
        Case 1
            $type = 'Gateway IP'
        Case Else
            $type = 'Unknown IP'
    EndSwitch
    MsgBox(0, 'Success', 'For IP:' & @TAB & $theIP1 & @CRLF & 'Subnet is:' & @TAB & $subnetIP & @CRLF & 'IP Type:' & @TAB & $type)
Else
    Switch @error
        Case 1
            MsgBox(0, 'Error 1', 'Input IP [' & $theIP1 & '] is not a valid IP address.')
        Case 2
            MsgBox(0, 'Error 2', 'Input IP [' & $theIP1 & '] was not found on this computer.')
        Case 3
            MsgBox(0, 'Error 3', 'dll open: Iphlpapi.dll, error code: ' & @extended)
        Case 4
            MsgBox(0, 'Error 4', 'dll call function: GetAdaptersInfo, error code: ' & @extended)
        Case 5
            MsgBox(0, 'Error 5', 'dll call function: GetAdaptersInfo with adapter buffer pointer, error code: ' & @extended)
        Case Else
            MsgBox(0, 'Error X', 'Unknown error occured for the input IP [' & $theIP1 & '].')
    EndSwitch
EndIf


;==========================================================================================================================================================
;==========================================================================================================================================================
Func _GetSubnetBasedOnIP($theIP)
    if NOT _isIPaddr($theIP) Then Return SetError(1, 0, 0)

    Local Const $tagIP_ADDRESS_STRING = "char IPAddress[16];"
    Local Const $tagIP_MASK_STRING = "char IPMask[16];"
    Local Const $tagIP_ADDR_STRING = "ptr Next;" & $tagIP_ADDRESS_STRING & $tagIP_MASK_STRING & "DWORD Context;"

    Local Const $tagIP_ADAPTER_INFO = "ptr Next; DWORD ComboIndex; char AdapterName[260];char Description[132]; UINT AddressLength; BYTE Address[8]; dword Index; UINT Type;" & _
            " UINT DhcpEnabled; ptr CurrentIpAddress; ptr IpAddressListNext; char IpAddressListADDRESS[16]; char IpAddressListMASK[16]; DWORD IpAddressListContext; " & _
            "ptr GatewayListNext; char GatewayListADDRESS[16]; char GatewayListMASK[16]; DWORD GatewayListContext; " & _
            "ptr DhcpServerNext; char DhcpServerADDRESS[16]; char DhcpServerMASK[16]; DWORD DhcpServerContext; " & _
            "int HaveWins; " & _
            "ptr PrimaryWinsServerNext; char PrimaryWinsServerADDRESS[16]; char PrimaryWinsServerMASK[16]; DWORD PrimaryWinsServerContext; " & _
            "ptr SecondaryWinsServerNext; char SecondaryWinsServerADDRESS[16]; char SecondaryWinsServerMASK[16]; DWORD SecondaryWinsServerContext; " & _
            "DWORD LeaseObtained; DWORD LeaseExpires;"

    Local $dll = DllOpen("Iphlpapi.dll")
    If @error then Return SetError(3, @error, 0)
    Local $ret = DllCall($dll, "dword", "GetAdaptersInfo", "ptr", 0, "dword*", 0)
    If @error then
        DllClose($dll)
        Return SetError(4, @error, 0)
    EndIf

    Local $adapterBuffer = DllStructCreate("byte[" & $ret[2] & "]")
    Local $adapterBuffer_pointer = DllStructGetPtr($adapterBuffer)
    DllCall($dll, "dword", "GetAdaptersInfo", "ptr", $adapterBuffer_pointer, "dword*", $ret[2])
    If @error then
        $adapterBuffer = ""
        $adapterBuffer_pointer = ""
        DllClose($dll)
        Return SetError(5, @error, 0)
    EndIf
    Local $adapter = DllStructCreate($tagIP_ADAPTER_INFO, $adapterBuffer_pointer)
    Local $IPType = -1
    Local $FoundIt = False

    Local $retVal = ""
    Local $allArray = _GetAllIps(DllStructGetPtr($adapter, "IpAddressListNext"), $tagIP_ADDR_STRING)
    if IsArray($allArray) Then
        For $i = 0 to UBound($allArray)-1
            if NOT _isIPaddr($allArray[$i][0]) then ContinueLoop
            if $allArray[$i][0] <> $theIP Then ContinueLoop
            if NOT _isIPaddr($allArray[$i][1]) then ContinueLoop
            $retVal = $allArray[$i][1]
            $IPType = 0
            $FoundIt = True
            ExitLoop
        Next
    EndIf

    if NOT $FoundIt Then
        $allArray = _GetAllIps(DllStructGetPtr($adapter, "GatewayListNext"), $tagIP_ADDR_STRING)
        if IsArray($allArray) Then
            For $i = 0 to UBound($allArray)-1
                if NOT _isIPaddr($allArray[$i][0]) then ContinueLoop
                if $allArray[$i][0] <> $theIP Then ContinueLoop
                if NOT _isIPaddr($allArray[$i][1]) then ContinueLoop
                $retVal = $allArray[$i][1]
                $IPType = 1
                $FoundIt = True
                ExitLoop
            Next
        EndIf
    EndIf

    $adapterBuffer = ""
    $adapterBuffer_pointer = ""
    DllClose($dll)

    if NOT $FoundIt Then Return SetError(2, 0, 0)
    Return SetError(0, $IPType, $retVal)
EndFunc

Func _GetAllIps($Ptr, $tagIP_ADDR_STRING)
    Local $IPStruct, $Index = 0
    Local $IPArray[1][3]
    Do
        ReDim $IPArray[$Index+1][3]
        $IPStruct = DllStructCreate($tagIP_ADDR_STRING,$ptr)
        $IPArray[$Index][0] = DllStructGetData($IPStruct,"IPAddress")
        $IPArray[$Index][1] = DllStructGetData($IPStruct,"IPMask")
        $IPArray[$Index][2] = DllStructGetData($IPStruct,"Context")
        $Ptr = DllStructGetData($IPStruct,"Next")
        $Index += 1
    Until $Ptr = 0
    Return $IPArray
EndFunc

Func _isIPaddr($sIPAddr)
    If NOT StringRegExp($sIPAddr, "^((25[0-5]|2[0-4]\d|[01]?\d?\d)\.){3}(25[0-5]|2[0-4]\d|[01]?\d?\d)$") Then Return SetError(1, 0, False)
    Return True
EndFunc

if this doesn't give you the results also, tell me which type does? DHCPSERVER? PRIMARYWINSSERVER? SECONDARYWINSSERVER?

Edited October 3, 2013 by dragan

[Gianni]

.... not yet ...

just

1

0.0.0.0     0.0.0.0

and then Error2 ip not found...

Edited October 3, 2013 by PincoPanco

[BrewManNH]

$IP = @IPAddress1
$PID = Run("ipconfig", "", @SW_HIDE, 2)
While ProcessExists($PID)
    Sleep(10)
WEnd
$Text = StdoutRead($PID)
$aText = StringSplit($Text, @CRLF, 1)
For $I = 1 to $aText[0]
    If StringInStr($aText[$I], $IP) Then
        $Subnet = StringMid($aText[$I + 1], StringInStr($aText[$I + 1], ":") + 2)
        ExitLoop
    EndIf
Next
ConsoleWrite("Subnet Mask = " & $Subnet & @CRLF)

[Gianni]

ConsoleWrite(_GetBroadcastAddress(@IPAddress1, '255.255.255.0') & @CRLF)

; Based on the idea by: CodyBarrett - http://www.autoitscript.com/forum/topic/122072-serverless-udp/
Func _GetBroadcastAddress($sIPAddress, $sSubnetMask)
    Local $aIPAddress = StringSplit($sIPAddress, '.'), $aSubnetMask = StringSplit($sSubnetMask, '.')
    $sIPAddress = ''
    For $i = 1 To $aIPAddress[0]
        $aIPAddress[$i] = BitAND($aIPAddress[$i], $aSubnetMask[$i])
        If $aSubnetMask[$i] = 0 Then
            $aIPAddress[$i] = '255'
        EndIf
        $sIPAddress &= $aIPAddress[$i] & '.'
    Next
    Return StringTrimRight($sIPAddress, 1)
EndFunc   ;==>_GetBroadcaseAddress

I use this...

 

Thanks guinness, ... I am in search of the subnet mask not the broadcast address,

thanks a lot anyway! , this will also be useful to me

[Gianni]

$IP = @IPAddress1
$PID = Run("ipconfig", "", @SW_HIDE, 2)
While ProcessExists($PID)
    Sleep(10)
WEnd
$Text = StdoutRead($PID)
$aText = StringSplit($Text, @CRLF, 1)
For $I = 1 to $aText[0]
    If StringInStr($aText[$I], $IP) Then
        $Subnet = StringMid($aText[$I + 1], StringInStr($aText[$I + 1], ":") + 2)
        ExitLoop
    EndIf
Next
ConsoleWrite("Subnet Mask = " & $Subnet & @CRLF)

 

hey this works, .... a little bit "screen text based" but it works,

also I have to hope that the subnet is always the next of IP on screen output.

I like this "original method" (looks a bit like a copy / paste)

but maybe a dll based script will point exactly to the "mask" field...

Thanks BrewManNH

[BrewManNH]

The subnet mask is ALWAYS the line after the IP address in IPCONFIG, at least it always has been since Windows 98 as far as I can recall. If it changes, you can always do the search based on the @OSVersion. But this is by far the easiest and quickest way to get the Subnet mask information. As long as the IP address is correct, the subnet mask information will be too, mainly because only one NIC can have that IP address regardless of how many NICs you have in the computer.

[dragan]

if you're still interested, this is the way via Iphlpapi.dll:
 

expandcollapse popup

$theIP1 = @IPAddress1
$subnetIP = _GetSubnetBasedOnIP($theIP1)
if NOT @error then
    Local $type = ''
    Switch @extended
        Case 0
            $type = 'Regular adapter IP'
        Case 1
            $type = 'Gateway IP'
        Case 2
            $type = 'DHCP Server IP'
        Case 3
            $type = 'PrimaryWinsServer IP'
        Case 4
            $type = 'SecondaryWinsServer IP'
        Case Else
            $type = 'Unknown IP'
    EndSwitch
    MsgBox(0, 'Success', 'For IP:' & @TAB & $theIP1 & @CRLF & 'Subnet is:' & @TAB & $subnetIP & @CRLF & 'IP Type:' & @TAB & $type)
Else
    Switch @error
        Case 1
            MsgBox(0, 'Error 1', 'Input IP [' & $theIP1 & '] is not a valid IP address.')
        Case 2
            MsgBox(0, 'Error 2', 'Input IP [' & $theIP1 & '] was not found on this computer.')
        Case 3
            MsgBox(0, 'Error 3', 'dll open: Iphlpapi.dll, error code: ' & @extended)
        Case 4
            MsgBox(0, 'Error 4', 'dll call function: GetAdaptersInfo, error code: ' & @extended)
        Case 5
            MsgBox(0, 'Error 5', 'dll call function: GetAdaptersInfo with adapter buffer pointer, error code: ' & @extended)
        Case Else
            MsgBox(0, 'Error X', 'Unknown error occured for the input IP [' & $theIP1 & '].')
    EndSwitch
EndIf


;==========================================================================================================================================================
;==========================================================================================================================================================
Func _GetSubnetBasedOnIP($theIP)
    if NOT _isIPaddr($theIP) Then Return SetError(1, 0, 0)

    Local Const $tagIP_ADDRESS_STRING = "char IPAddress[16];"
    Local Const $tagIP_MASK_STRING = "char IPMask[16];"
    Local Const $tagIP_ADDR_STRING = "ptr Next;" & $tagIP_ADDRESS_STRING & $tagIP_MASK_STRING & "DWORD Context;"

    Local Const $tagIP_ADAPTER_INFO = "ptr Next; DWORD ComboIndex; char AdapterName[260];char Description[132]; UINT AddressLength; BYTE Address[8]; dword Index; UINT Type;" & _
            " UINT DhcpEnabled; ptr CurrentIpAddress; ptr IpAddressListNext; char IpAddressListADDRESS[16]; char IpAddressListMASK[16]; DWORD IpAddressListContext; " & _
            "ptr GatewayListNext; char GatewayListADDRESS[16]; char GatewayListMASK[16]; DWORD GatewayListContext; " & _
            "ptr DhcpServerNext; char DhcpServerADDRESS[16]; char DhcpServerMASK[16]; DWORD DhcpServerContext; " & _
            "int HaveWins; " & _
            "ptr PrimaryWinsServerNext; char PrimaryWinsServerADDRESS[16]; char PrimaryWinsServerMASK[16]; DWORD PrimaryWinsServerContext; " & _
            "ptr SecondaryWinsServerNext; char SecondaryWinsServerADDRESS[16]; char SecondaryWinsServerMASK[16]; DWORD SecondaryWinsServerContext; " & _
            "DWORD LeaseObtained; DWORD LeaseExpires;"

    Local $dll = DllOpen("Iphlpapi.dll")
    If @error then Return SetError(3, @error, 0)
    Local $ret = DllCall($dll, "dword", "GetAdaptersInfo", "ptr", 0, "dword*", 0)
    If @error then
        DllClose($dll)
        Return SetError(4, @error, 0)
    EndIf

    Local $adapterBuffer = DllStructCreate("byte[" & $ret[2] & "]")
    Local $adapterBuffer_pointer = DllStructGetPtr($adapterBuffer)
    DllCall($dll, "dword", "GetAdaptersInfo", "ptr", $adapterBuffer_pointer, "dword*", $ret[2])
    If @error then
        $adapterBuffer = ""
        $adapterBuffer_pointer = ""
        DllClose($dll)
        Return SetError(5, @error, 0)
    EndIf
    Local $adapter = DllStructCreate($tagIP_ADAPTER_INFO, $adapterBuffer_pointer)
    Local $IPType = -1
    Local $FoundIt = False

    Local $retVal = ""
    Do
        Local $allArray = _GetAllIps(DllStructGetPtr($adapter, "IpAddressListNext"), $tagIP_ADDR_STRING)
        if IsArray($allArray) Then
            For $i = 0 to UBound($allArray)-1
                if NOT _isIPaddr($allArray[$i][0]) then ContinueLoop
                if $allArray[$i][0] <> $theIP Then ContinueLoop
                if NOT _isIPaddr($allArray[$i][1]) then ContinueLoop
                $retVal = $allArray[$i][1]
                $IPType = 0
                $FoundIt = True
                ExitLoop
            Next
        EndIf

        if NOT $FoundIt Then
            $allArray = _GetAllIps(DllStructGetPtr($adapter, "GatewayListNext"), $tagIP_ADDR_STRING)
            if IsArray($allArray) Then
                For $i = 0 to UBound($allArray)-1
                    if NOT _isIPaddr($allArray[$i][0]) then ContinueLoop
                    if $allArray[$i][0] <> $theIP Then ContinueLoop
                    if NOT _isIPaddr($allArray[$i][1]) then ContinueLoop
                    $retVal = $allArray[$i][1]
                    $IPType = 1
                    $FoundIt = True
                    ExitLoop
                Next
            EndIf
        EndIf

        if NOT $FoundIt Then
            Local $ptr1 = DllStructGetPtr($adapter, "DhcpServerNext")
            Local $IPStruct = DllStructCreate($tagIP_ADDR_STRING,$ptr1)
            Local $curIP = DllStructGetData($IPStruct,"IPAddress")
            Local $curSubnet = DllStructGetData($IPStruct,"IPMask")
            if _isIPaddr($curIP) AND _isIPaddr($curSubnet) Then
                if $curIP = $theIP then
                    $retVal = $curSubnet
                    $IPType = 2
                    $FoundIt = True
                EndIf
            EndIf
        EndIf

        if NOT $FoundIt Then
            Local $ptr1 = DllStructGetPtr($adapter, "PrimaryWinsServerNext")
            Local $IPStruct = DllStructCreate($tagIP_ADDR_STRING,$ptr1)
            Local $curIP = DllStructGetData($IPStruct,"IPAddress")
            Local $curSubnet = DllStructGetData($IPStruct,"IPMask")
            if _isIPaddr($curIP) AND _isIPaddr($curSubnet) Then
                if $curIP = $theIP then
                    $retVal = $curSubnet
                    $IPType = 3
                    $FoundIt = True
                EndIf
            EndIf
        EndIf

        if NOT $FoundIt Then
            Local $ptr1 = DllStructGetPtr($adapter, "SecondaryWinsServerNext")
            Local $IPStruct = DllStructCreate($tagIP_ADDR_STRING,$ptr1)
            Local $curIP = DllStructGetData($IPStruct,"IPAddress")
            Local $curSubnet = DllStructGetData($IPStruct,"IPMask")
            if _isIPaddr($curIP) AND _isIPaddr($curSubnet) Then
                if $curIP = $theIP then
                    $retVal = $curSubnet
                    $IPType = 4
                    $FoundIt = True
                EndIf
            EndIf
        EndIf

        if $FoundIt Then ExitLoop

        $ptr = DllStructGetData($adapter, "Next")
        $adapter = DllStructCreate($tagIP_ADAPTER_INFO, $ptr)
    Until @error

    $adapterBuffer = ""
    $adapterBuffer_pointer = ""
    DllClose($dll)

    if NOT $FoundIt Then Return SetError(2, 0, 0)
    Return SetError(0, $IPType, $retVal)
EndFunc

Func _GetAllIps($Ptr, $tagIP_ADDR_STRING)
    Local $IPStruct, $Index = 0
    Local $IPArray[1][3]
    Do
        ReDim $IPArray[$Index+1][3]
        $IPStruct = DllStructCreate($tagIP_ADDR_STRING,$ptr)
        $IPArray[$Index][0] = DllStructGetData($IPStruct,"IPAddress")
        $IPArray[$Index][1] = DllStructGetData($IPStruct,"IPMask")
        $IPArray[$Index][2] = DllStructGetData($IPStruct,"Context")
        $Ptr = DllStructGetData($IPStruct,"Next")
        $Index += 1
    Until $Ptr = 0
    Return $IPArray
EndFunc

Func _isIPaddr($sIPAddr)
    If NOT StringRegExp($sIPAddr, "^((25[0-5]|2[0-4]\d|[01]?\d?\d)\.){3}(25[0-5]|2[0-4]\d|[01]?\d?\d)$") Then Return SetError(1, 0, False)
    Return True
EndFunc