AddIPAddress

// IPHLPAPI.dll
#include <windows.h>

DWORD AddIPAddress(
    DWORD Address,
    DWORD IpMask,
    DWORD IfIndex,
    DWORD* NTEContext,
    DWORD* NTEInstance
);

<DllImport("IPHLPAPI.dll", ExactSpelling:=True)>
Public Shared Function AddIPAddress(
    Address As UInteger,   ' DWORD
    IpMask As UInteger,   ' DWORD
    IfIndex As UInteger,   ' DWORD
    <Out> ByRef NTEContext As UInteger,   ' DWORD* out
    <Out> ByRef NTEInstance As UInteger   ' DWORD* out
) As UInteger
End Function

' Address : DWORD
' IpMask : DWORD
' IfIndex : DWORD
' NTEContext : DWORD* out
' NTEInstance : DWORD* out
Declare PtrSafe Function AddIPAddress Lib "iphlpapi" ( _
    ByVal Address As Long, _
    ByVal IpMask As Long, _
    ByVal IfIndex As Long, _
    ByRef NTEContext As Long, _
    ByRef NTEInstance As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

AddIPAddress = ctypes.windll.iphlpapi.AddIPAddress
AddIPAddress.restype = wintypes.DWORD
AddIPAddress.argtypes = [
    wintypes.DWORD,  # Address : DWORD
    wintypes.DWORD,  # IpMask : DWORD
    wintypes.DWORD,  # IfIndex : DWORD
    ctypes.POINTER(wintypes.DWORD),  # NTEContext : DWORD* out
    ctypes.POINTER(wintypes.DWORD),  # NTEInstance : DWORD* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('IPHLPAPI.dll')
AddIPAddress = Fiddle::Function.new(
  lib['AddIPAddress'],
  [
    -Fiddle::TYPE_INT,  # Address : DWORD
    -Fiddle::TYPE_INT,  # IpMask : DWORD
    -Fiddle::TYPE_INT,  # IfIndex : DWORD
    Fiddle::TYPE_VOIDP,  # NTEContext : DWORD* out
    Fiddle::TYPE_VOIDP,  # NTEInstance : DWORD* out
  ],
  -Fiddle::TYPE_INT)

#[link(name = "iphlpapi")]
extern "system" {
    fn AddIPAddress(
        Address: u32,  // DWORD
        IpMask: u32,  // DWORD
        IfIndex: u32,  // DWORD
        NTEContext: *mut u32,  // DWORD* out
        NTEInstance: *mut u32  // DWORD* out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("IPHLPAPI.dll")]
public static extern uint AddIPAddress(uint Address, uint IpMask, uint IfIndex, out uint NTEContext, out uint NTEInstance);
"@
$api = Add-Type -MemberDefinition $sig -Name 'IPHLPAPI_AddIPAddress' -Namespace Win32 -PassThru
# $api::AddIPAddress(Address, IpMask, IfIndex, NTEContext, NTEInstance)

#uselib "IPHLPAPI.dll"
#func global AddIPAddress "AddIPAddress" sptr, sptr, sptr, sptr, sptr
; AddIPAddress Address, IpMask, IfIndex, varptr(NTEContext), varptr(NTEInstance)   ; 戻り値は stat
; Address : DWORD -> "sptr"
; IpMask : DWORD -> "sptr"
; IfIndex : DWORD -> "sptr"
; NTEContext : DWORD* out -> "sptr"
; NTEInstance : DWORD* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "IPHLPAPI.dll"
#cfunc global AddIPAddress "AddIPAddress" int, int, int, var, var
; res = AddIPAddress(Address, IpMask, IfIndex, NTEContext, NTEInstance)
; Address : DWORD -> "int"
; IpMask : DWORD -> "int"
; IfIndex : DWORD -> "int"
; NTEContext : DWORD* out -> "var"
; NTEInstance : DWORD* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; DWORD AddIPAddress(DWORD Address, DWORD IpMask, DWORD IfIndex, DWORD* NTEContext, DWORD* NTEInstance)
#uselib "IPHLPAPI.dll"
#cfunc global AddIPAddress "AddIPAddress" int, int, int, var, var
; res = AddIPAddress(Address, IpMask, IfIndex, NTEContext, NTEInstance)
; Address : DWORD -> "int"
; IpMask : DWORD -> "int"
; IfIndex : DWORD -> "int"
; NTEContext : DWORD* out -> "var"
; NTEInstance : DWORD* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	iphlpapi = windows.NewLazySystemDLL("IPHLPAPI.dll")
	procAddIPAddress = iphlpapi.NewProc("AddIPAddress")
)

// Address (DWORD), IpMask (DWORD), IfIndex (DWORD), NTEContext (DWORD* out), NTEInstance (DWORD* out)
r1, _, err := procAddIPAddress.Call(
	uintptr(Address),
	uintptr(IpMask),
	uintptr(IfIndex),
	uintptr(NTEContext),
	uintptr(NTEInstance),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD

function AddIPAddress(
  Address: DWORD;   // DWORD
  IpMask: DWORD;   // DWORD
  IfIndex: DWORD;   // DWORD
  NTEContext: Pointer;   // DWORD* out
  NTEInstance: Pointer   // DWORD* out
): DWORD; stdcall;
  external 'IPHLPAPI.dll' name 'AddIPAddress';

result := DllCall("IPHLPAPI\AddIPAddress"
    , "UInt", Address   ; DWORD
    , "UInt", IpMask   ; DWORD
    , "UInt", IfIndex   ; DWORD
    , "Ptr", NTEContext   ; DWORD* out
    , "Ptr", NTEInstance   ; DWORD* out
    , "UInt")   ; return: DWORD

●AddIPAddress(Address, IpMask, IfIndex, NTEContext, NTEInstance) = DLL("IPHLPAPI.dll", "dword AddIPAddress(dword, dword, dword, void*, void*)")
# 呼び出し: AddIPAddress(Address, IpMask, IfIndex, NTEContext, NTEInstance)
# Address : DWORD -> "dword"
# IpMask : DWORD -> "dword"
# IfIndex : DWORD -> "dword"
# NTEContext : DWORD* out -> "void*"
# NTEInstance : DWORD* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。