AddIpAddress

Hi:

I try to use the api function AddIpAddress in VB.net, the definition is:

DWORD AddIPAddress(
IPAddr Address,
IPMask IpMask,
DWORD IfIndex,
PULONG NTEContext,
PULONG NTEInstance 
);


I declare this function in VB.net

    Declare Function AddIPAddress Lib "Iphlpapi" (ByVal Address As UInt64, 
ByRef IpMask As UInt64, ByRef IfIndex As Integer, ByVal NTEContext As IntPtr, 
ByVal NTEInstance As IntPtr) As Integer
 
and because I need convert Ip sting to IPAddr, use the function inet_addr 
with this definition:

unsigned long inet_addr(
  const char* cp
);

in VB.net
    Private Declare Function inet_addr Lib "WSOCK32.DLL" (ByVal cp As 
IntPtr) As UInt64

when I call this function :

    Dim ip_str As String
    Dim mask_str As String
    Dim NTEContext As IntPtr
    Dim NTEInstance As IntPtr
    Dim iRetVal As Integer

    Dim ptr_ip As IntPtr = IntPtr.Zero
    Dim ptr_mask As IntPtr = IntPtr.Zero
    Dim IPAddress As UInt64
    Dim IPMask As UInt64

    ip_str = "192.168.0.100" 
    ptr_ip = Marshal.StringToHGlobalAnsi(ip_str)
    IPAddress = inet_addr(ptr_ip)

    mask_str = "255.255.255.0"
    ptr_mask = Marshal.StringToHGlobalAnsi(mask_str)
    IPMask = inet_addr(ptr_mask)

    iRetVal = AddIPAddress(IPAddress, IPMask, 1, NTEContext, NTEInstance) 
'in this case 1 is the Ifindex of the loopback interface

    iRetVal = AddIPAddress(IPAddress, IPMask, 16777219, NTEContext, 
NTEInstance)
' in this case 16777219 is the IfIndex of the ethernet interface y get this 
number with GetIfTable

when I use the AddIPAddress the return value is 87, INVALID_PARAMETER, in 
both cases. 

I dont known what is the error, Can you help me?

Thanks.

Should be UInt32


Same here


And same here


What I don't understand is why you bother with all this. You are on .NET so 
you can write a small DLL in managed C++ that will perfrom this call without 
all the mess and expose the result in .NET friendly way.

When I change the parameters address, ipmask and if index to uint 32, I nedd 
change the function inet_addr to return uint32, but when i realized this 
changes the call to AddIpAddres return the error 87 again.



I try to make a NT service, this service realize a get to a web server, if 
the get, failure, this service add a new ip address in one interface. what do 
you thing is the best form to do it?


Thanks.

And this should be ByVal


And this too

I realize this changes:

    Declare Function AddIPAddress Lib "Iphlpapi" (ByVal Address As UInt32, 
ByVal IpMask As UInt32, ByVal IfIndex As UInt32, ByVal NTEContext As IntPtr, 
ByVal NTEInstance As IntPtr) As Integer
    Private Declare Function inet_addr Lib "WSOCK32.DLL" (ByVal cp As 
IntPtr) As UInt32

And the call

        Dim NTEContext As IntPtr
        Dim NTEInstance As IntPtr
        Dim iRetVal As Integer

        Dim IPAddress As UInt32
        Dim ip_str As String
        ip_str = "192.168.10.11"
        Dim ptr_ip As IntPtr = IntPtr.Zero
        ptr_ip = Marshal.StringToCoTaskMemAnsi(ip_str)
        IPAddress = inet_addr(ptr_ip)

        Dim IPMask As UInt32
        Dim mask_str As String
        mask_str = "255.255.255.0"
        Dim ptr_mask As IntPtr = IntPtr.Zero
        ptr_mask = Marshal.StringToCoTaskMemAnsi(mask_str)
        IPMask = inet_addr(ptr_mask)

        iRetVal = AddIPAddress(IPAddress, IPMask, UInt32.Parse("16777219"), 
NTEContext, NTEInstance)

But the iRetVal is 87.

Thks.

Maybe ask on vb forums about parameter definitions for AddIpAddress
Arkady







nedd
so
without
do

Final problem I can see.
The last two parameters should be ByRef UInt32 since you have to pass an 
address to a long in C.

YEAHHHHH!!!!!!

Thks for all, with this final response I find the matter to add the ip 
address and now is easy delete de ip address. I write the code, because 
someone need it, and i dont find any example in the net:

    Declare Function AddIPAddress Lib "Iphlpapi" (ByVal Address As UInt32, 
ByVal IpMask As UInt32, ByVal IfIndex As Integer, ByRef NTEContext As UInt32, 
ByRef NTEInstance As UInt32) As Integer
    Declare Function inet_addr Lib "WSOCK32.DLL" (ByVal cp As IntPtr) As 
UInt32
    Declare Function DeleteIPAddress Lib "Iphlpapi" (ByVal NTEContext As 
UInt32) As UInt32
  
To Add IP Address:

        Dim NTEContext As UInt32
        Dim NTEInstance As UInt32
        Dim iRetVal As Integer

        Dim IPAddress As UInt32
        Dim ip_str As String
        ip_str = "1.2.3.4"
        Dim ptr_ip As IntPtr = IntPtr.Zero
        ptr_ip = Marshal.StringToCoTaskMemAnsi(ip_str)
        IPAddress = inet_addr(ptr_ip)

        Dim IPMask As UInt32
        Dim mask_str As String
        mask_str = "255.255.255.0"
        Dim ptr_mask As IntPtr = IntPtr.Zero
        ptr_mask = Marshal.StringToCoTaskMemAnsi(mask_str)
        IPMask = inet_addr(ptr_mask)

        iRetVal = AddIPAddress(IPAddress, IPMask, 16777220, NTEContext, 
NTEInstance)

To Delete IP Address:

        iRetVal = DeleteIPAddress(NTEContext)

thats all, and thks again to Eugene


"Eugene Gershnik" escribi: