Win32 API 日本語リファレンス
ホーム › Networking.ActiveDirectory › DsBindByInstanceA

DsBindByInstanceA

関数
インスタンスGUIDを指定してディレクトリサービスへ接続する(ANSI版)。
DLLNTDSAPI.dll文字セットANSI (-A)呼出規約winapi対応OSWindows Vista 以降

シグネチャ

// NTDSAPI.dll  (ANSI / -A)
#include <windows.h>

DWORD DsBindByInstanceA(
    LPCSTR ServerName,   // optional
    LPCSTR Annotation,   // optional
    GUID* InstanceGuid,   // optional
    LPCSTR DnsDomainName,   // optional
    void* AuthIdentity,   // optional
    LPCSTR ServicePrincipalName,   // optional
    DWORD BindFlags,   // optional
    HANDLE* phDS
);

パラメーター

名前型方向説明
ServerNameLPCSTRinoptionalインスタンスの名前を指定する、null で終わる文字列へのポインター。AD LDS インスタンスにバインドする場合、このパラメーターは必須です。Active Directory インスタンスにバインドするときにこのパラメーターが NULL の場合は、DnsDomainName パラメーターに値を指定する必要があります。このパラメーターと DnsDomainName パラメーターの両方が NULL の場合、この関数は戻り値 ERROR_INVALID_PARAMETER (87) で失敗します。
AnnotationLPCSTRinoptional

AD LDS インスタンスのポート番号を指定する、null で終わる文字列へのポインター。Active Directory インスタンスにバインドする場合は NULL を指定します。たとえば "389" のように指定します。

ドメイン指定で Active Directory インスタンスにバインドするときにこのパラメーターが NULL の場合は、DnsDomainName パラメーターを指定する必要があります。AD LDS インスタンスにバインドするときにこのパラメーターが NULL の場合は、InstanceGuid パラメーターを指定する必要があります。

InstanceGuidGUID*inoptionalAD LDS インスタンスの GUID を格納する GUID 値へのポインター。この GUID 値は、インスタンスの nTDSDSA オブジェクトの objectGUID プロパティです。AD LDS インスタンスにバインドするときにこのパラメーターが NULL の場合は、Annotation パラメーターを指定する必要があります。
DnsDomainNameLPCSTRinoptionalドメイン指定で Active Directory インスタンスにバインドする場合に、ドメインの DNS 名を指定する、null で終わる文字列へのポインター。サーバー指定で Active Directory インスタンスにバインドする場合、または AD LDS インスタンスにバインドする場合は、このパラメーターに NULL を設定します。
AuthIdentityvoid*inoptionalRPC セッションの開始に使用する資格情報へのハンドル。AuthIdentity に適した構造体を作成するには、DsMakePasswordCredentials 関数を使用します。
ServicePrincipalNameLPCSTRinoptionalクライアントに割り当てるサービス プリンシパル名 (Service Principal Name) を指定する、null で終わる文字列へのポインター。ServicePrincipalName に NULL を渡すことは、DsBindWithCred 関数を呼び出すことと同等です。
BindFlagsDWORDinoptional

この関数の動作を定義するフラグのセットを格納します。このパラメーターには、ゼロ、または次の値のうち 1 つ以上の組み合わせを指定できます。

NTDSAPI_BIND_ALLOW_DELEGATION (1)

バインドで委任 (delegate) 偽装レベルを使用します。これにより、DsAddSidHistory など、委任を必要とする操作が成功するようになります。また、このフラグを指定すると、DsBindWithSpnEx は DsBindWithSpn と同様に動作します。

このフラグを指定しない場合、バインドでは偽装 (impersonate) 偽装レベルが使用されます。偽装レベルの詳細については、Impersonation Levels を参照してください。

ほとんどの操作では委任偽装レベルは必要ありません。このフラグは必要な場合にのみ指定してください。委任偽装レベルで不正なサーバーにバインドすると、その不正なサーバーが自分の資格情報を使用して正規のサーバーに接続し、意図しない操作を実行できるようになります。

NTDSAPI_BIND_FORCE_KERBEROS (4)

Active Directory Lightweight Directory Services: このフラグを指定すると、DsBindWithSpnEx は Kerberos 認証の使用を必須とします。Kerberos 認証を確立できない場合、DsBindWithSpnEx は他のメカニズムでの認証を試みません。

phDSHANDLE*outバインド ハンドルを受け取る HANDLE 値のアドレス。このハンドルを閉じるには、DsUnBind を呼び出します。

戻り値の型: DWORD

公式ドキュメント

任意の AD LDS または Active Directory インスタンスに明示的にバインドします。(ANSI)

戻り値

成功した場合は NO_ERROR を返し、それ以外の場合は RPC エラーまたは Win32 エラーを返します。発生し得るエラー コードには、次の一覧に示すものが含まれます。

解説(Remarks)

インスタンスにバインドする際に必要なパラメーター値を次の一覧に示します。

インスタンス ServerName Annotation InstanceGuid DnsDomainName
サーバー指定の Active Directory サーバー名 NULL NULL NULL
ドメイン指定の Active Directory NULL NULL NULL DNS ドメイン名
ポート指定の AD LDS AD LDS がインストールされているコンピューターの DNS 名。 ポート番号 NULL NULL
GUID 指定の AD LDS AD LDS がインストールされているコンピューターの DNS 名。 NULL インスタンスの GUID NULL
注意 複数の AD LDS インスタンスが存在するコンピューター上で AD LDS インスタンスにバインドする場合、パフォーマンスを向上させるには、ポート番号ではなくインスタンスの GUID でバインドしてください。
メモ

ntdsapi.h ヘッダーは、UNICODE プリプロセッサー定数の定義に応じてこの関数の ANSI 版または Unicode 版を自動的に選択するエイリアスとして DsBindByInstance を定義しています。エンコードに依存しないエイリアスの使用と、エンコードに依存するコードを混在させると、不整合が生じてコンパイル エラーまたは実行時エラーの原因となることがあります。詳細については、Conventions for Function Prototypes を参照してください。

出典・ライセンス: 上記「公式ドキュメント」の内容は Microsoft の Win32 API ドキュメント(MicrosoftDocs/sdk-api)を日本語に翻訳・改変したものです。© Microsoft Corporation. CC BY 4.0 で提供。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)

各言語での呼び出し定義

// NTDSAPI.dll  (ANSI / -A)
#include <windows.h>

DWORD DsBindByInstanceA(
    LPCSTR ServerName,   // optional
    LPCSTR Annotation,   // optional
    GUID* InstanceGuid,   // optional
    LPCSTR DnsDomainName,   // optional
    void* AuthIdentity,   // optional
    LPCSTR ServicePrincipalName,   // optional
    DWORD BindFlags,   // optional
    HANDLE* phDS
);
[DllImport("NTDSAPI.dll", CharSet = CharSet.Ansi, ExactSpelling = true)]
static extern uint DsBindByInstanceA(
    [MarshalAs(UnmanagedType.LPStr)] string ServerName,   // LPCSTR optional
    [MarshalAs(UnmanagedType.LPStr)] string Annotation,   // LPCSTR optional
    IntPtr InstanceGuid,   // GUID* optional
    [MarshalAs(UnmanagedType.LPStr)] string DnsDomainName,   // LPCSTR optional
    IntPtr AuthIdentity,   // void* optional
    [MarshalAs(UnmanagedType.LPStr)] string ServicePrincipalName,   // LPCSTR optional
    uint BindFlags,   // DWORD optional
    IntPtr phDS   // HANDLE* out
);
<DllImport("NTDSAPI.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function DsBindByInstanceA(
    <MarshalAs(UnmanagedType.LPStr)> ServerName As String,   ' LPCSTR optional
    <MarshalAs(UnmanagedType.LPStr)> Annotation As String,   ' LPCSTR optional
    InstanceGuid As IntPtr,   ' GUID* optional
    <MarshalAs(UnmanagedType.LPStr)> DnsDomainName As String,   ' LPCSTR optional
    AuthIdentity As IntPtr,   ' void* optional
    <MarshalAs(UnmanagedType.LPStr)> ServicePrincipalName As String,   ' LPCSTR optional
    BindFlags As UInteger,   ' DWORD optional
    phDS As IntPtr   ' HANDLE* out
) As UInteger
End Function
' ServerName : LPCSTR optional
' Annotation : LPCSTR optional
' InstanceGuid : GUID* optional
' DnsDomainName : LPCSTR optional
' AuthIdentity : void* optional
' ServicePrincipalName : LPCSTR optional
' BindFlags : DWORD optional
' phDS : HANDLE* out
Declare PtrSafe Function DsBindByInstanceA Lib "ntdsapi" ( _
    ByVal ServerName As String, _
    ByVal Annotation As String, _
    ByVal InstanceGuid As LongPtr, _
    ByVal DnsDomainName As String, _
    ByVal AuthIdentity As LongPtr, _
    ByVal ServicePrincipalName As String, _
    ByVal BindFlags As Long, _
    ByVal phDS As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

DsBindByInstanceA = ctypes.windll.ntdsapi.DsBindByInstanceA
DsBindByInstanceA.restype = wintypes.DWORD
DsBindByInstanceA.argtypes = [
    wintypes.LPCSTR,  # ServerName : LPCSTR optional
    wintypes.LPCSTR,  # Annotation : LPCSTR optional
    ctypes.c_void_p,  # InstanceGuid : GUID* optional
    wintypes.LPCSTR,  # DnsDomainName : LPCSTR optional
    ctypes.POINTER(None),  # AuthIdentity : void* optional
    wintypes.LPCSTR,  # ServicePrincipalName : LPCSTR optional
    wintypes.DWORD,  # BindFlags : DWORD optional
    ctypes.c_void_p,  # phDS : HANDLE* out
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('NTDSAPI.dll')
DsBindByInstanceA = Fiddle::Function.new(
  lib['DsBindByInstanceA'],
  [
    Fiddle::TYPE_VOIDP,  # ServerName : LPCSTR optional
    Fiddle::TYPE_VOIDP,  # Annotation : LPCSTR optional
    Fiddle::TYPE_VOIDP,  # InstanceGuid : GUID* optional
    Fiddle::TYPE_VOIDP,  # DnsDomainName : LPCSTR optional
    Fiddle::TYPE_VOIDP,  # AuthIdentity : void* optional
    Fiddle::TYPE_VOIDP,  # ServicePrincipalName : LPCSTR optional
    -Fiddle::TYPE_INT,  # BindFlags : DWORD optional
    Fiddle::TYPE_VOIDP,  # phDS : HANDLE* out
  ],
  -Fiddle::TYPE_INT)
#[link(name = "ntdsapi")]
extern "system" {
    fn DsBindByInstanceA(
        ServerName: *const u8,  // LPCSTR optional
        Annotation: *const u8,  // LPCSTR optional
        InstanceGuid: *mut GUID,  // GUID* optional
        DnsDomainName: *const u8,  // LPCSTR optional
        AuthIdentity: *mut (),  // void* optional
        ServicePrincipalName: *const u8,  // LPCSTR optional
        BindFlags: u32,  // DWORD optional
        phDS: *mut *mut core::ffi::c_void  // HANDLE* out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("NTDSAPI.dll", CharSet = CharSet.Ansi)]
public static extern uint DsBindByInstanceA([MarshalAs(UnmanagedType.LPStr)] string ServerName, [MarshalAs(UnmanagedType.LPStr)] string Annotation, IntPtr InstanceGuid, [MarshalAs(UnmanagedType.LPStr)] string DnsDomainName, IntPtr AuthIdentity, [MarshalAs(UnmanagedType.LPStr)] string ServicePrincipalName, uint BindFlags, IntPtr phDS);
"@
$api = Add-Type -MemberDefinition $sig -Name 'NTDSAPI_DsBindByInstanceA' -Namespace Win32 -PassThru
# $api::DsBindByInstanceA(ServerName, Annotation, InstanceGuid, DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS)
#uselib "NTDSAPI.dll"
#func global DsBindByInstanceA "DsBindByInstanceA" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; DsBindByInstanceA ServerName, Annotation, varptr(InstanceGuid), DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS   ; 戻り値は stat
; ServerName : LPCSTR optional -> "sptr"
; Annotation : LPCSTR optional -> "sptr"
; InstanceGuid : GUID* optional -> "sptr"
; DnsDomainName : LPCSTR optional -> "sptr"
; AuthIdentity : void* optional -> "sptr"
; ServicePrincipalName : LPCSTR optional -> "sptr"
; BindFlags : DWORD optional -> "sptr"
; phDS : HANDLE* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "NTDSAPI.dll"
#cfunc global DsBindByInstanceA "DsBindByInstanceA" str, str, var, str, sptr, str, int, sptr
; res = DsBindByInstanceA(ServerName, Annotation, InstanceGuid, DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS)
; ServerName : LPCSTR optional -> "str"
; Annotation : LPCSTR optional -> "str"
; InstanceGuid : GUID* optional -> "var"
; DnsDomainName : LPCSTR optional -> "str"
; AuthIdentity : void* optional -> "sptr"
; ServicePrincipalName : LPCSTR optional -> "str"
; BindFlags : DWORD optional -> "int"
; phDS : HANDLE* out -> "sptr"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; DWORD DsBindByInstanceA(LPCSTR ServerName, LPCSTR Annotation, GUID* InstanceGuid, LPCSTR DnsDomainName, void* AuthIdentity, LPCSTR ServicePrincipalName, DWORD BindFlags, HANDLE* phDS)
#uselib "NTDSAPI.dll"
#cfunc global DsBindByInstanceA "DsBindByInstanceA" str, str, var, str, intptr, str, int, intptr
; res = DsBindByInstanceA(ServerName, Annotation, InstanceGuid, DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS)
; ServerName : LPCSTR optional -> "str"
; Annotation : LPCSTR optional -> "str"
; InstanceGuid : GUID* optional -> "var"
; DnsDomainName : LPCSTR optional -> "str"
; AuthIdentity : void* optional -> "intptr"
; ServicePrincipalName : LPCSTR optional -> "str"
; BindFlags : DWORD optional -> "int"
; phDS : HANDLE* out -> "intptr"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	ntdsapi = windows.NewLazySystemDLL("NTDSAPI.dll")
	procDsBindByInstanceA = ntdsapi.NewProc("DsBindByInstanceA")
)

// ServerName (LPCSTR optional), Annotation (LPCSTR optional), InstanceGuid (GUID* optional), DnsDomainName (LPCSTR optional), AuthIdentity (void* optional), ServicePrincipalName (LPCSTR optional), BindFlags (DWORD optional), phDS (HANDLE* out)
r1, _, err := procDsBindByInstanceA.Call(
	uintptr(unsafe.Pointer(windows.BytePtrFromString(ServerName))),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(Annotation))),
	uintptr(InstanceGuid),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(DnsDomainName))),
	uintptr(AuthIdentity),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(ServicePrincipalName))),
	uintptr(BindFlags),
	uintptr(phDS),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD
function DsBindByInstanceA(
  ServerName: PAnsiChar;   // LPCSTR optional
  Annotation: PAnsiChar;   // LPCSTR optional
  InstanceGuid: PGUID;   // GUID* optional
  DnsDomainName: PAnsiChar;   // LPCSTR optional
  AuthIdentity: Pointer;   // void* optional
  ServicePrincipalName: PAnsiChar;   // LPCSTR optional
  BindFlags: DWORD;   // DWORD optional
  phDS: Pointer   // HANDLE* out
): DWORD; stdcall;
  external 'NTDSAPI.dll' name 'DsBindByInstanceA';
result := DllCall("NTDSAPI\DsBindByInstanceA"
    , "AStr", ServerName   ; LPCSTR optional
    , "AStr", Annotation   ; LPCSTR optional
    , "Ptr", InstanceGuid   ; GUID* optional
    , "AStr", DnsDomainName   ; LPCSTR optional
    , "Ptr", AuthIdentity   ; void* optional
    , "AStr", ServicePrincipalName   ; LPCSTR optional
    , "UInt", BindFlags   ; DWORD optional
    , "Ptr", phDS   ; HANDLE* out
    , "UInt")   ; return: DWORD
●DsBindByInstanceA(ServerName, Annotation, InstanceGuid, DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS) = DLL("NTDSAPI.dll", "dword DsBindByInstanceA(char*, char*, void*, char*, void*, char*, dword, void*)")
# 呼び出し: DsBindByInstanceA(ServerName, Annotation, InstanceGuid, DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS)
# ServerName : LPCSTR optional -> "char*"
# Annotation : LPCSTR optional -> "char*"
# InstanceGuid : GUID* optional -> "void*"
# DnsDomainName : LPCSTR optional -> "char*"
# AuthIdentity : void* optional -> "void*"
# ServicePrincipalName : LPCSTR optional -> "char*"
# BindFlags : DWORD optional -> "dword"
# phDS : HANDLE* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "ntdsapi" fn DsBindByInstanceA(
    ServerName: [*c]const u8, // LPCSTR optional
    Annotation: [*c]const u8, // LPCSTR optional
    InstanceGuid: [*c]GUID, // GUID* optional
    DnsDomainName: [*c]const u8, // LPCSTR optional
    AuthIdentity: ?*anyopaque, // void* optional
    ServicePrincipalName: [*c]const u8, // LPCSTR optional
    BindFlags: u32, // DWORD optional
    phDS: ?*anyopaque // HANDLE* out
) callconv(std.os.windows.WINAPI) u32;
proc DsBindByInstanceA(
    ServerName: cstring,  # LPCSTR optional
    Annotation: cstring,  # LPCSTR optional
    InstanceGuid: ptr GUID,  # GUID* optional
    DnsDomainName: cstring,  # LPCSTR optional
    AuthIdentity: pointer,  # void* optional
    ServicePrincipalName: cstring,  # LPCSTR optional
    BindFlags: uint32,  # DWORD optional
    phDS: pointer  # HANDLE* out
): uint32 {.importc: "DsBindByInstanceA", stdcall, dynlib: "NTDSAPI.dll".}
pragma(lib, "ntdsapi");
extern(Windows)
uint DsBindByInstanceA(
    const(char)* ServerName,   // LPCSTR optional
    const(char)* Annotation,   // LPCSTR optional
    GUID* InstanceGuid,   // GUID* optional
    const(char)* DnsDomainName,   // LPCSTR optional
    void* AuthIdentity,   // void* optional
    const(char)* ServicePrincipalName,   // LPCSTR optional
    uint BindFlags,   // DWORD optional
    void* phDS   // HANDLE* out
);
ccall((:DsBindByInstanceA, "NTDSAPI.dll"), stdcall, UInt32,
      (Cstring, Cstring, Ptr{GUID}, Cstring, Ptr{Cvoid}, Cstring, UInt32, Ptr{Cvoid}),
      ServerName, Annotation, InstanceGuid, DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS)
# ServerName : LPCSTR optional -> Cstring
# Annotation : LPCSTR optional -> Cstring
# InstanceGuid : GUID* optional -> Ptr{GUID}
# DnsDomainName : LPCSTR optional -> Cstring
# AuthIdentity : void* optional -> Ptr{Cvoid}
# ServicePrincipalName : LPCSTR optional -> Cstring
# BindFlags : DWORD optional -> UInt32
# phDS : HANDLE* out -> Ptr{Cvoid}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
uint32_t DsBindByInstanceA(
    const char* ServerName,
    const char* Annotation,
    void* InstanceGuid,
    const char* DnsDomainName,
    void* AuthIdentity,
    const char* ServicePrincipalName,
    uint32_t BindFlags,
    void* phDS);
]]
local ntdsapi = ffi.load("ntdsapi")
-- ntdsapi.DsBindByInstanceA(ServerName, Annotation, InstanceGuid, DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS)
-- ServerName : LPCSTR optional
-- Annotation : LPCSTR optional
-- InstanceGuid : GUID* optional
-- DnsDomainName : LPCSTR optional
-- AuthIdentity : void* optional
-- ServicePrincipalName : LPCSTR optional
-- BindFlags : DWORD optional
-- phDS : HANDLE* out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('NTDSAPI.dll');
const DsBindByInstanceA = lib.func('__stdcall', 'DsBindByInstanceA', 'uint32_t', ['str', 'str', 'void *', 'str', 'void *', 'str', 'uint32_t', 'void *']);
// DsBindByInstanceA(ServerName, Annotation, InstanceGuid, DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS)
// ServerName : LPCSTR optional -> 'str'
// Annotation : LPCSTR optional -> 'str'
// InstanceGuid : GUID* optional -> 'void *'
// DnsDomainName : LPCSTR optional -> 'str'
// AuthIdentity : void* optional -> 'void *'
// ServicePrincipalName : LPCSTR optional -> 'str'
// BindFlags : DWORD optional -> 'uint32_t'
// phDS : HANDLE* out -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("NTDSAPI.dll", {
  DsBindByInstanceA: { parameters: ["buffer", "buffer", "pointer", "buffer", "pointer", "buffer", "u32", "pointer"], result: "u32" },
});
// lib.symbols.DsBindByInstanceA(ServerName, Annotation, InstanceGuid, DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS)
// ServerName : LPCSTR optional -> "buffer"
// Annotation : LPCSTR optional -> "buffer"
// InstanceGuid : GUID* optional -> "pointer"
// DnsDomainName : LPCSTR optional -> "buffer"
// AuthIdentity : void* optional -> "pointer"
// ServicePrincipalName : LPCSTR optional -> "buffer"
// BindFlags : DWORD optional -> "u32"
// phDS : HANDLE* out -> "pointer"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
uint32_t DsBindByInstanceA(
    const char* ServerName,
    const char* Annotation,
    void* InstanceGuid,
    const char* DnsDomainName,
    void* AuthIdentity,
    const char* ServicePrincipalName,
    uint32_t BindFlags,
    void* phDS);
C, "NTDSAPI.dll");
// $ffi->DsBindByInstanceA(ServerName, Annotation, InstanceGuid, DnsDomainName, AuthIdentity, ServicePrincipalName, BindFlags, phDS);
// ServerName : LPCSTR optional
// Annotation : LPCSTR optional
// InstanceGuid : GUID* optional
// DnsDomainName : LPCSTR optional
// AuthIdentity : void* optional
// ServicePrincipalName : LPCSTR optional
// BindFlags : DWORD optional
// phDS : HANDLE* out
// 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
// WINAPI(stdcall): x64 では呼出規約が統一されるため問題なし。x86 では __stdcall 対応のラッパが必要な場合あり。
import com.sun.jna.*;
import com.sun.jna.ptr.*;
import com.sun.jna.win32.StdCallLibrary;
import com.sun.jna.win32.W32APIOptions;

public interface Ntdsapi extends StdCallLibrary {
    Ntdsapi INSTANCE = Native.load("ntdsapi", Ntdsapi.class, W32APIOptions.ASCII_OPTIONS);
    int DsBindByInstanceA(
        String ServerName,   // LPCSTR optional
        String Annotation,   // LPCSTR optional
        Pointer InstanceGuid,   // GUID* optional
        String DnsDomainName,   // LPCSTR optional
        Pointer AuthIdentity,   // void* optional
        String ServicePrincipalName,   // LPCSTR optional
        int BindFlags,   // DWORD optional
        Pointer phDS   // HANDLE* out
    );
}
@[Link("ntdsapi")]
lib LibNTDSAPI
  fun DsBindByInstanceA = DsBindByInstanceA(
    ServerName : UInt8*,   # LPCSTR optional
    Annotation : UInt8*,   # LPCSTR optional
    InstanceGuid : GUID*,   # GUID* optional
    DnsDomainName : UInt8*,   # LPCSTR optional
    AuthIdentity : Void*,   # void* optional
    ServicePrincipalName : UInt8*,   # LPCSTR optional
    BindFlags : UInt32,   # DWORD optional
    phDS : Void*   # HANDLE* out
  ) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef DsBindByInstanceANative = Uint32 Function(Pointer<Utf8>, Pointer<Utf8>, Pointer<Void>, Pointer<Utf8>, Pointer<Void>, Pointer<Utf8>, Uint32, Pointer<Void>);
typedef DsBindByInstanceADart = int Function(Pointer<Utf8>, Pointer<Utf8>, Pointer<Void>, Pointer<Utf8>, Pointer<Void>, Pointer<Utf8>, int, Pointer<Void>);
final DsBindByInstanceA = DynamicLibrary.open('NTDSAPI.dll')
    .lookupFunction<DsBindByInstanceANative, DsBindByInstanceADart>('DsBindByInstanceA');
// ServerName : LPCSTR optional -> Pointer<Utf8>
// Annotation : LPCSTR optional -> Pointer<Utf8>
// InstanceGuid : GUID* optional -> Pointer<Void>
// DnsDomainName : LPCSTR optional -> Pointer<Utf8>
// AuthIdentity : void* optional -> Pointer<Void>
// ServicePrincipalName : LPCSTR optional -> Pointer<Utf8>
// BindFlags : DWORD optional -> Uint32
// phDS : HANDLE* out -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function DsBindByInstanceA(
  ServerName: PAnsiChar;   // LPCSTR optional
  Annotation: PAnsiChar;   // LPCSTR optional
  InstanceGuid: PGUID;   // GUID* optional
  DnsDomainName: PAnsiChar;   // LPCSTR optional
  AuthIdentity: Pointer;   // void* optional
  ServicePrincipalName: PAnsiChar;   // LPCSTR optional
  BindFlags: DWORD;   // DWORD optional
  phDS: Pointer   // HANDLE* out
): DWORD; stdcall;
  external 'NTDSAPI.dll' name 'DsBindByInstanceA';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "DsBindByInstanceA"
  c_DsBindByInstanceA :: CString -> CString -> Ptr () -> CString -> Ptr () -> CString -> Word32 -> Ptr () -> IO Word32
-- ServerName : LPCSTR optional -> CString
-- Annotation : LPCSTR optional -> CString
-- InstanceGuid : GUID* optional -> Ptr ()
-- DnsDomainName : LPCSTR optional -> CString
-- AuthIdentity : void* optional -> Ptr ()
-- ServicePrincipalName : LPCSTR optional -> CString
-- BindFlags : DWORD optional -> Word32
-- phDS : HANDLE* out -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let dsbindbyinstancea =
  foreign "DsBindByInstanceA"
    (string @-> string @-> (ptr void) @-> string @-> (ptr void) @-> string @-> uint32_t @-> (ptr void) @-> returning uint32_t)
(* ServerName : LPCSTR optional -> string *)
(* Annotation : LPCSTR optional -> string *)
(* InstanceGuid : GUID* optional -> (ptr void) *)
(* DnsDomainName : LPCSTR optional -> string *)
(* AuthIdentity : void* optional -> (ptr void) *)
(* ServicePrincipalName : LPCSTR optional -> string *)
(* BindFlags : DWORD optional -> uint32_t *)
(* phDS : HANDLE* out -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library ntdsapi (t "NTDSAPI.dll"))
(cffi:use-foreign-library ntdsapi)

(cffi:defcfun ("DsBindByInstanceA" ds-bind-by-instance-a :convention :stdcall) :uint32
  (server-name :string)   ; LPCSTR optional
  (annotation :string)   ; LPCSTR optional
  (instance-guid :pointer)   ; GUID* optional
  (dns-domain-name :string)   ; LPCSTR optional
  (auth-identity :pointer)   ; void* optional
  (service-principal-name :string)   ; LPCSTR optional
  (bind-flags :uint32)   ; DWORD optional
  (ph-ds :pointer))   ; HANDLE* out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $DsBindByInstanceA = Win32::API::More->new('NTDSAPI',
    'DWORD DsBindByInstanceA(LPCSTR ServerName, LPCSTR Annotation, LPVOID InstanceGuid, LPCSTR DnsDomainName, LPVOID AuthIdentity, LPCSTR ServicePrincipalName, DWORD BindFlags, HANDLE phDS)');
# my $ret = $DsBindByInstanceA->Call($ServerName, $Annotation, $InstanceGuid, $DnsDomainName, $AuthIdentity, $ServicePrincipalName, $BindFlags, $phDS);
# ServerName : LPCSTR optional -> LPCSTR
# Annotation : LPCSTR optional -> LPCSTR
# InstanceGuid : GUID* optional -> LPVOID
# DnsDomainName : LPCSTR optional -> LPCSTR
# AuthIdentity : void* optional -> LPVOID
# ServicePrincipalName : LPCSTR optional -> LPCSTR
# BindFlags : DWORD optional -> DWORD
# phDS : HANDLE* out -> HANDLE
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

文字セット違い