NetMask question

[Michael Clease]

My knowledge of networking is quite limited and I wanted to know the netmask for a project I am working on so I came up with the script below.

Can I have some feedback on this, is it correct ?

I removed the code be it was rubbish.

[kryton9]

Michael, I am getting this error-- see attached image.

[Petr Schreiber]

I think the error can be fixed by renaming mynetmask to mynet at line 10.

Mike - I can't confirm whether it is correct or not, my knowledge of networking is as good as my knowledge of quantum mechanics...


Petr

[Michael Clease]

you are correct, it was a last minute rename of a variable without running the script.

I fixed it now.

It is a nonsense answer I need to look for an api solution but its evading me at the moment, i'm sure its something to do with an ip class somewhere.

[ErosOlmi]

Michael,

please get attached new thinBasic_iNet.dll that will be present in next release. Copy it into \thinBasic\Lib\ directory replacing your current one.

I've added a couple of new functions that hopefully will solve the problem:

INet_GetInterfaces returns the number of network interfaces present in your machine
iNet_GetSubNet(index) will return the subnet mask of a particulat interface number


Example:

Uses "inet"Uses "Console"


Long lCount


PrintL "Number of interfaces present:", INET_GetInterfaces
PrintL "--------------------------------------"


For lCount = 1 To INET_GetInterfaces
PrintL lCount, INET_GetIp(lCount), inet_GetSubNet(lCount)
Next


PrintL "---Press a key to finish--------------"
WaitKey




Let me know if it works

Ciao
Eros

[Michael Clease]

I will test the code tomorrow, I can see some enhancements that could be added but I will let you know if I have been blown over to France by these winds.

[Michael Clease]

Thanks Eros it worked very well, below is what I had found out (with help from PB forums)



Uses "CONSOLE"


'// Definitions and structures used by getnetworkparams and getadaptersinfo apis


%MAX_ADAPTER_DESCRIPTION_LENGTH = 128 ' // arb.
%MAX_ADAPTER_NAME_LENGTH = 256 ' // arb.
%MAX_ADAPTER_ADDRESS_LENGTH = 8 ' // arb.
%ERROR_BUFFER_OVERFLOW = 111
%ERROR_SUCCESS = 0


Type IP_ADDRESS_STRING
sString As String * 4 * 4 ' char String[4 * 4]
End Type


Type IP_MASK_STRING
sString As String * 4 * 4 ' char String[4 * 4]
End Type


'//
'// IP_ADDR_STRING - store an IP address with its corresponding subnet mask,
'// both as dotted decimal strings
'//


Type IP_ADDR_STRING
pNext As IP_ADDR_STRING Ptr ' struct _IP_ADDR_STRING* Next
IpAddress As IP_ADDRESS_STRING ' IP_ADDRESS_STRING IpAddress
IpMask As IP_MASK_STRING ' IP_MASK_STRING IpMask
Context As DWord ' DWORD Context
End Type
'//
'// ADAPTER_INFO - per-adapter information. All IP addresses are stored as
'// strings
'//
Type tIP_ADAPTER_INFO
pNext As tIP_ADAPTER_INFO Ptr
ComboIndex As DWord
AdapterName As String * (%MAX_ADAPTER_NAME_LENGTH + 4)
Description As String * (%MAX_ADAPTER_DESCRIPTION_LENGTH + 4)
AddressLength As DWord
bAddress(%MAX_ADAPTER_ADDRESS_LENGTH - 1) As Byte
Index As DWord
uType As DWord
DhcpEnabled As DWord
CurrentIpAddress As IP_ADDR_STRING Ptr
IpAddressList As IP_ADDR_STRING
GatewayList As IP_ADDR_STRING
DhcpServer As IP_ADDR_STRING
HaveWins As Long
PrimaryWinsServer As IP_ADDR_STRING
SecondaryWinsServer As IP_ADDR_STRING
LeaseObtained As Long
LeaseExpires As Long
End Type




Declare Function GetAdaptersInfo Lib "iphlpapi.dll" Alias "GetAdaptersInfo" ( _
ByRef pAdapterInfo As tIP_ADAPTER_INFO, _ ' __out PIP_ADAPTER_INFO pAdapterInfo
ByRef pOutBufLen As DWord _ ' __in_out PULONG pOutBufLen
) As DWord ' DWORD




Dim ADAPT As String
Dim Adapters(1) As tIP_ADAPTER_INFO
Dim Counter As Long

adapt = getdg(Adapters)

For Counter = 1 To UBound(Adapters)
PrintL "Adapter"+Counter+" Adapter Name = "+Trim$(Adapters(Counter).AdapterName, $NUL)
PrintL "Adapter"+Counter+" Description = "+Trim$(Adapters(Counter).Description, $NUL)

PrintL "Adapter"+Counter+" Gateway address = "+Trim$(Adapters(Counter).Gatewaylist.Ipaddress.sString, $NUL)
PrintL "Adapter"+Counter+" IP address = "+Trim$(Adapters(Counter).IpAddressList.Ipaddress.sString, $NUL)
PrintL "Adapter"+Counter+" Netmask = "+Trim$(Adapters(Counter).IpAddressList.IPmask.sString, $NUL)+$CRLF
Next


PrintL "---Press a key to finish--------------"
WaitKey



Function GETDG(ByRef AdapterArray) As String
Local cbRequired As DWord
Local AdapterCount As DWord' Value = 1

If GetAdaptersInfo(ByVal 0, cbRequired)=%ERROR_BUFFER_OVERFLOW Then
AdapterCount = cbRequired \ SizeOf(tIP_ADAPTER_INFO)
ReDim AdapterArray(AdapterCount)
If GetAdaptersInfo(ByVal VarPtr(AdapterArray(1)), cbRequired) = %ERROR_SUCCESS Then
End If
End If


End Function
'--------------------------------------