Win32 API 日本語リファレンス
ホームSecurity › LookupAccountSidA

LookupAccountSidA

関数
SIDからアカウント名とドメイン名を取得する(ANSI版)。
DLLADVAPI32.dll文字セットANSI (-A)呼出規約winapiSetLastErrorあり対応OSWindows XP 以降

シグネチャ

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

BOOL LookupAccountSidA(
    LPCSTR lpSystemName,   // optional
    PSID Sid,
    LPSTR Name,   // optional
    DWORD* cchName,
    LPSTR ReferencedDomainName,   // optional
    DWORD* cchReferencedDomainName,
    SID_NAME_USE* peUse
);

パラメーター

名前方向説明
lpSystemNameLPCSTRinoptional対象コンピューターを指定する null で終わる文字列へのポインターです。この文字列にはリモートコンピューターの名前を指定できます。このパラメーターが NULL の場合、アカウント名の変換はローカルシステム上で開始されます。ローカルシステムで名前を解決できない場合、この関数はローカルシステムが信頼するドメインコントローラーを使用して名前の解決を試みます。一般に、lpSystemName に値を指定するのは、アカウントが信頼されていないドメインにあり、そのドメイン内のコンピューターの名前が分かっている場合のみにしてください。
SidPSIDin検索対象の SID へのポインターです。
NameLPSTRoutoptionallpSid パラメーターに対応するアカウント名を含む null で終わる文字列を受け取るバッファーへのポインターです。
cchNameDWORD*inout入力時には、lpName バッファーのサイズを TCHAR 単位で指定します。バッファーが小さすぎて関数が失敗した場合、または cchName が 0 の場合、cchName には終端の null 文字を含む必要なバッファーサイズが格納されます。
ReferencedDomainNameLPSTRoutoptional

アカウント名が見つかったドメインの名前を含む null で終わる文字列を受け取るバッファーへのポインターです。

サーバー上では、ローカルコンピューターのセキュリティデータベース内のほとんどのアカウントについて返されるドメイン名は、そのサーバーがドメインコントローラーを務めるドメインの名前です。

ワークステーション上では、ローカルコンピューターのセキュリティデータベース内のほとんどのアカウントについて返されるドメイン名は、システムの前回起動時点でのコンピューター名です (バックスラッシュは除外されます)。コンピューター名が変更された場合でも、システムが再起動されるまでは引き続き古い名前がドメイン名として返されます。

一部のアカウントはシステムによって事前定義されています。これらのアカウントについて返されるドメイン名は BUILTIN です。

cchReferencedDomainNameDWORD*inout入力時には、lpReferencedDomainName バッファーのサイズを TCHAR 単位で指定します。バッファーが小さすぎて関数が失敗した場合、または cchReferencedDomainName が 0 の場合、cchReferencedDomainName には終端の null 文字を含む必要なバッファーサイズが格納されます。
peUseSID_NAME_USE*outアカウントの種類を示す SID_NAME_USE 値を受け取る変数へのポインターです。

戻り値の型: BOOL

公式ドキュメント

セキュリティ識別子 (SID) を入力として受け取ります。この SID に対応するアカウント名と、この SID が最初に見つかったドメインの名前を取得します。(ANSI)

戻り値

関数が成功した場合、0 以外の値を返します。

関数が失敗した場合、0 を返します。拡張エラー情報を取得するには、 GetLastError を呼び出してください。

解説(Remarks)

LookupAccountSid 関数は、まず既知の SID (well-known SID) の一覧を確認することで、指定された SID に対応する名前を見つけようとします。指定された SID が既知の SID に対応しない場合、この関数は組み込みおよび管理者が定義したローカルアカウントを確認します。次に、この関数はプライマリドメインを確認します。プライマリドメインで認識されない セキュリティ識別子は、その SID プレフィックスに対応する信頼されたドメインに対して照合されます。

関数が SID に対応するアカウント名を見つけられない場合、GetLastErrorERROR_NONE_MAPPED を返します。これは、ネットワークのタイムアウトによって関数が名前を見つけられない場合に発生することがあります。また、ログオンセッションを識別するログオン SID のように、対応するアカウント名を持たない SID についても発生します。

ローカルアカウント、ローカルドメインアカウント、明示的に信頼されたドメインアカウントの SID を検索することに加えて、LookupAccountSid はフォレスト内のいずれかのドメインの任意のアカウントの SID を検索できます。これには、フォレスト内のアカウントの SIDhistory フィールドにのみ存在する SID も含まれます。SIDhistory フィールドには、別のドメインから移動されたアカウントの以前の SID が格納されます。SID を検索するために、LookupAccountSid はフォレストのグローバルカタログに問い合わせます。

Examples

この関数を使用する例については、Searching for a SID in an Access Token を参照してください。

メモ

winbase.h ヘッダーは、UNICODE プリプロセッサ定数の定義に基づいて、この関数の ANSI 版または Unicode 版を自動的に選択するエイリアスとして LookupAccountSid を定義しています。エンコーディング中立なエイリアスの使用を、エンコーディング中立でないコードと混在させると、不一致が生じてコンパイルエラーや実行時エラーを引き起こす可能性があります。詳細については、Conventions for Function Prototypes を参照してください。

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

各言語での呼び出し定義

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

BOOL LookupAccountSidA(
    LPCSTR lpSystemName,   // optional
    PSID Sid,
    LPSTR Name,   // optional
    DWORD* cchName,
    LPSTR ReferencedDomainName,   // optional
    DWORD* cchReferencedDomainName,
    SID_NAME_USE* peUse
);
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("ADVAPI32.dll", CharSet = CharSet.Ansi, SetLastError = true, ExactSpelling = true)]
static extern bool LookupAccountSidA(
    [MarshalAs(UnmanagedType.LPStr)] string lpSystemName,   // LPCSTR optional
    IntPtr Sid,   // PSID
    [MarshalAs(UnmanagedType.LPStr)] System.Text.StringBuilder Name,   // LPSTR optional, out
    ref uint cchName,   // DWORD* in/out
    [MarshalAs(UnmanagedType.LPStr)] System.Text.StringBuilder ReferencedDomainName,   // LPSTR optional, out
    ref uint cchReferencedDomainName,   // DWORD* in/out
    out int peUse   // SID_NAME_USE* out
);
<DllImport("ADVAPI32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
Public Shared Function LookupAccountSidA(
    <MarshalAs(UnmanagedType.LPStr)> lpSystemName As String,   ' LPCSTR optional
    Sid As IntPtr,   ' PSID
    <MarshalAs(UnmanagedType.LPStr)> Name As System.Text.StringBuilder,   ' LPSTR optional, out
    ByRef cchName As UInteger,   ' DWORD* in/out
    <MarshalAs(UnmanagedType.LPStr)> ReferencedDomainName As System.Text.StringBuilder,   ' LPSTR optional, out
    ByRef cchReferencedDomainName As UInteger,   ' DWORD* in/out
    <Out> ByRef peUse As Integer   ' SID_NAME_USE* out
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' lpSystemName : LPCSTR optional
' Sid : PSID
' Name : LPSTR optional, out
' cchName : DWORD* in/out
' ReferencedDomainName : LPSTR optional, out
' cchReferencedDomainName : DWORD* in/out
' peUse : SID_NAME_USE* out
Declare PtrSafe Function LookupAccountSidA Lib "advapi32" ( _
    ByVal lpSystemName As String, _
    ByVal Sid As LongPtr, _
    ByVal Name As String, _
    ByRef cchName As Long, _
    ByVal ReferencedDomainName As String, _
    ByRef cchReferencedDomainName As Long, _
    ByRef peUse As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

LookupAccountSidA = ctypes.windll.advapi32.LookupAccountSidA
LookupAccountSidA.restype = wintypes.BOOL
LookupAccountSidA.argtypes = [
    wintypes.LPCSTR,  # lpSystemName : LPCSTR optional
    wintypes.HANDLE,  # Sid : PSID
    wintypes.LPSTR,  # Name : LPSTR optional, out
    ctypes.POINTER(wintypes.DWORD),  # cchName : DWORD* in/out
    wintypes.LPSTR,  # ReferencedDomainName : LPSTR optional, out
    ctypes.POINTER(wintypes.DWORD),  # cchReferencedDomainName : DWORD* in/out
    ctypes.c_void_p,  # peUse : SID_NAME_USE* out
]
# GetLastError: use ctypes.GetLastError() (or ctypes.WinDLL(use_last_error=True))
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('ADVAPI32.dll')
LookupAccountSidA = Fiddle::Function.new(
  lib['LookupAccountSidA'],
  [
    Fiddle::TYPE_VOIDP,  # lpSystemName : LPCSTR optional
    Fiddle::TYPE_VOIDP,  # Sid : PSID
    Fiddle::TYPE_VOIDP,  # Name : LPSTR optional, out
    Fiddle::TYPE_VOIDP,  # cchName : DWORD* in/out
    Fiddle::TYPE_VOIDP,  # ReferencedDomainName : LPSTR optional, out
    Fiddle::TYPE_VOIDP,  # cchReferencedDomainName : DWORD* in/out
    Fiddle::TYPE_VOIDP,  # peUse : SID_NAME_USE* out
  ],
  Fiddle::TYPE_INT)
#[link(name = "advapi32")]
extern "system" {
    fn LookupAccountSidA(
        lpSystemName: *const u8,  // LPCSTR optional
        Sid: *mut core::ffi::c_void,  // PSID
        Name: *mut u8,  // LPSTR optional, out
        cchName: *mut u32,  // DWORD* in/out
        ReferencedDomainName: *mut u8,  // LPSTR optional, out
        cchReferencedDomainName: *mut u32,  // DWORD* in/out
        peUse: *mut i32  // SID_NAME_USE* out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("ADVAPI32.dll", CharSet = CharSet.Ansi, SetLastError = true)]
public static extern bool LookupAccountSidA([MarshalAs(UnmanagedType.LPStr)] string lpSystemName, IntPtr Sid, [MarshalAs(UnmanagedType.LPStr)] System.Text.StringBuilder Name, ref uint cchName, [MarshalAs(UnmanagedType.LPStr)] System.Text.StringBuilder ReferencedDomainName, ref uint cchReferencedDomainName, out int peUse);
"@
$api = Add-Type -MemberDefinition $sig -Name 'ADVAPI32_LookupAccountSidA' -Namespace Win32 -PassThru
# $api::LookupAccountSidA(lpSystemName, Sid, Name, cchName, ReferencedDomainName, cchReferencedDomainName, peUse)
#uselib "ADVAPI32.dll"
#func global LookupAccountSidA "LookupAccountSidA" sptr, sptr, sptr, sptr, sptr, sptr, sptr
; LookupAccountSidA lpSystemName, Sid, varptr(Name), varptr(cchName), varptr(ReferencedDomainName), varptr(cchReferencedDomainName), varptr(peUse)   ; 戻り値は stat
; lpSystemName : LPCSTR optional -> "sptr"
; Sid : PSID -> "sptr"
; Name : LPSTR optional, out -> "sptr"
; cchName : DWORD* in/out -> "sptr"
; ReferencedDomainName : LPSTR optional, out -> "sptr"
; cchReferencedDomainName : DWORD* in/out -> "sptr"
; peUse : SID_NAME_USE* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "ADVAPI32.dll"
#cfunc global LookupAccountSidA "LookupAccountSidA" str, sptr, var, var, var, var, var
; res = LookupAccountSidA(lpSystemName, Sid, Name, cchName, ReferencedDomainName, cchReferencedDomainName, peUse)
; lpSystemName : LPCSTR optional -> "str"
; Sid : PSID -> "sptr"
; Name : LPSTR optional, out -> "var"
; cchName : DWORD* in/out -> "var"
; ReferencedDomainName : LPSTR optional, out -> "var"
; cchReferencedDomainName : DWORD* in/out -> "var"
; peUse : SID_NAME_USE* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; BOOL LookupAccountSidA(LPCSTR lpSystemName, PSID Sid, LPSTR Name, DWORD* cchName, LPSTR ReferencedDomainName, DWORD* cchReferencedDomainName, SID_NAME_USE* peUse)
#uselib "ADVAPI32.dll"
#cfunc global LookupAccountSidA "LookupAccountSidA" str, intptr, var, var, var, var, var
; res = LookupAccountSidA(lpSystemName, Sid, Name, cchName, ReferencedDomainName, cchReferencedDomainName, peUse)
; lpSystemName : LPCSTR optional -> "str"
; Sid : PSID -> "intptr"
; Name : LPSTR optional, out -> "var"
; cchName : DWORD* in/out -> "var"
; ReferencedDomainName : LPSTR optional, out -> "var"
; cchReferencedDomainName : DWORD* in/out -> "var"
; peUse : SID_NAME_USE* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	advapi32 = windows.NewLazySystemDLL("ADVAPI32.dll")
	procLookupAccountSidA = advapi32.NewProc("LookupAccountSidA")
)

// lpSystemName (LPCSTR optional), Sid (PSID), Name (LPSTR optional, out), cchName (DWORD* in/out), ReferencedDomainName (LPSTR optional, out), cchReferencedDomainName (DWORD* in/out), peUse (SID_NAME_USE* out)
r1, _, err := procLookupAccountSidA.Call(
	uintptr(unsafe.Pointer(windows.BytePtrFromString(lpSystemName))),
	uintptr(Sid),
	uintptr(Name),
	uintptr(cchName),
	uintptr(ReferencedDomainName),
	uintptr(cchReferencedDomainName),
	uintptr(peUse),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOL
function LookupAccountSidA(
  lpSystemName: PAnsiChar;   // LPCSTR optional
  Sid: THandle;   // PSID
  Name: PAnsiChar;   // LPSTR optional, out
  cchName: Pointer;   // DWORD* in/out
  ReferencedDomainName: PAnsiChar;   // LPSTR optional, out
  cchReferencedDomainName: Pointer;   // DWORD* in/out
  peUse: Pointer   // SID_NAME_USE* out
): BOOL; stdcall;
  external 'ADVAPI32.dll' name 'LookupAccountSidA';
result := DllCall("ADVAPI32\LookupAccountSidA"
    , "AStr", lpSystemName   ; LPCSTR optional
    , "Ptr", Sid   ; PSID
    , "Ptr", Name   ; LPSTR optional, out
    , "Ptr", cchName   ; DWORD* in/out
    , "Ptr", ReferencedDomainName   ; LPSTR optional, out
    , "Ptr", cchReferencedDomainName   ; DWORD* in/out
    , "Ptr", peUse   ; SID_NAME_USE* out
    , "Int")   ; return: BOOL
●LookupAccountSidA(lpSystemName, Sid, Name, cchName, ReferencedDomainName, cchReferencedDomainName, peUse) = DLL("ADVAPI32.dll", "bool LookupAccountSidA(char*, void*, char*, void*, char*, void*, void*)")
# 呼び出し: LookupAccountSidA(lpSystemName, Sid, Name, cchName, ReferencedDomainName, cchReferencedDomainName, peUse)
# lpSystemName : LPCSTR optional -> "char*"
# Sid : PSID -> "void*"
# Name : LPSTR optional, out -> "char*"
# cchName : DWORD* in/out -> "void*"
# ReferencedDomainName : LPSTR optional, out -> "char*"
# cchReferencedDomainName : DWORD* in/out -> "void*"
# peUse : SID_NAME_USE* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "advapi32" fn LookupAccountSidA(
    lpSystemName: [*c]const u8, // LPCSTR optional
    Sid: ?*anyopaque, // PSID
    Name: [*c]u8, // LPSTR optional, out
    cchName: [*c]u32, // DWORD* in/out
    ReferencedDomainName: [*c]u8, // LPSTR optional, out
    cchReferencedDomainName: [*c]u32, // DWORD* in/out
    peUse: [*c]i32 // SID_NAME_USE* out
) callconv(std.os.windows.WINAPI) i32;
proc LookupAccountSidA(
    lpSystemName: cstring,  # LPCSTR optional
    Sid: pointer,  # PSID
    Name: ptr char,  # LPSTR optional, out
    cchName: ptr uint32,  # DWORD* in/out
    ReferencedDomainName: ptr char,  # LPSTR optional, out
    cchReferencedDomainName: ptr uint32,  # DWORD* in/out
    peUse: ptr int32  # SID_NAME_USE* out
): int32 {.importc: "LookupAccountSidA", stdcall, dynlib: "ADVAPI32.dll".}
pragma(lib, "advapi32");
extern(Windows)
int LookupAccountSidA(
    const(char)* lpSystemName,   // LPCSTR optional
    void* Sid,   // PSID
    char* Name,   // LPSTR optional, out
    uint* cchName,   // DWORD* in/out
    char* ReferencedDomainName,   // LPSTR optional, out
    uint* cchReferencedDomainName,   // DWORD* in/out
    int* peUse   // SID_NAME_USE* out
);
ccall((:LookupAccountSidA, "ADVAPI32.dll"), stdcall, Int32,
      (Cstring, Ptr{Cvoid}, Ptr{UInt8}, Ptr{UInt32}, Ptr{UInt8}, Ptr{UInt32}, Ptr{Int32}),
      lpSystemName, Sid, Name, cchName, ReferencedDomainName, cchReferencedDomainName, peUse)
# lpSystemName : LPCSTR optional -> Cstring
# Sid : PSID -> Ptr{Cvoid}
# Name : LPSTR optional, out -> Ptr{UInt8}
# cchName : DWORD* in/out -> Ptr{UInt32}
# ReferencedDomainName : LPSTR optional, out -> Ptr{UInt8}
# cchReferencedDomainName : DWORD* in/out -> Ptr{UInt32}
# peUse : SID_NAME_USE* out -> Ptr{Int32}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
int32_t LookupAccountSidA(
    const char* lpSystemName,
    void* Sid,
    char* Name,
    uint32_t* cchName,
    char* ReferencedDomainName,
    uint32_t* cchReferencedDomainName,
    int32_t* peUse);
]]
local advapi32 = ffi.load("advapi32")
-- advapi32.LookupAccountSidA(lpSystemName, Sid, Name, cchName, ReferencedDomainName, cchReferencedDomainName, peUse)
-- lpSystemName : LPCSTR optional
-- Sid : PSID
-- Name : LPSTR optional, out
-- cchName : DWORD* in/out
-- ReferencedDomainName : LPSTR optional, out
-- cchReferencedDomainName : DWORD* in/out
-- peUse : SID_NAME_USE* out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('ADVAPI32.dll');
const LookupAccountSidA = lib.func('__stdcall', 'LookupAccountSidA', 'int32_t', ['str', 'void *', 'char *', 'uint32_t *', 'char *', 'uint32_t *', 'int32_t *']);
// LookupAccountSidA(lpSystemName, Sid, Name, cchName, ReferencedDomainName, cchReferencedDomainName, peUse)
// lpSystemName : LPCSTR optional -> 'str'
// Sid : PSID -> 'void *'
// Name : LPSTR optional, out -> 'char *'
// cchName : DWORD* in/out -> 'uint32_t *'
// ReferencedDomainName : LPSTR optional, out -> 'char *'
// cchReferencedDomainName : DWORD* in/out -> 'uint32_t *'
// peUse : SID_NAME_USE* out -> 'int32_t *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("ADVAPI32.dll", {
  LookupAccountSidA: { parameters: ["buffer", "pointer", "buffer", "pointer", "buffer", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.LookupAccountSidA(lpSystemName, Sid, Name, cchName, ReferencedDomainName, cchReferencedDomainName, peUse)
// lpSystemName : LPCSTR optional -> "buffer"
// Sid : PSID -> "pointer"
// Name : LPSTR optional, out -> "buffer"
// cchName : DWORD* in/out -> "pointer"
// ReferencedDomainName : LPSTR optional, out -> "buffer"
// cchReferencedDomainName : DWORD* in/out -> "pointer"
// peUse : SID_NAME_USE* out -> "pointer"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t LookupAccountSidA(
    const char* lpSystemName,
    void* Sid,
    char* Name,
    uint32_t* cchName,
    char* ReferencedDomainName,
    uint32_t* cchReferencedDomainName,
    int32_t* peUse);
C, "ADVAPI32.dll");
// $ffi->LookupAccountSidA(lpSystemName, Sid, Name, cchName, ReferencedDomainName, cchReferencedDomainName, peUse);
// lpSystemName : LPCSTR optional
// Sid : PSID
// Name : LPSTR optional, out
// cchName : DWORD* in/out
// ReferencedDomainName : LPSTR optional, out
// cchReferencedDomainName : DWORD* in/out
// peUse : SID_NAME_USE* 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 Advapi32 extends StdCallLibrary {
    Advapi32 INSTANCE = Native.load("advapi32", Advapi32.class, W32APIOptions.ASCII_OPTIONS);
    boolean LookupAccountSidA(
        String lpSystemName,   // LPCSTR optional
        Pointer Sid,   // PSID
        byte[] Name,   // LPSTR optional, out
        IntByReference cchName,   // DWORD* in/out
        byte[] ReferencedDomainName,   // LPSTR optional, out
        IntByReference cchReferencedDomainName,   // DWORD* in/out
        IntByReference peUse   // SID_NAME_USE* out
    );
}
@[Link("advapi32")]
lib LibADVAPI32
  fun LookupAccountSidA = LookupAccountSidA(
    lpSystemName : UInt8*,   # LPCSTR optional
    Sid : Void*,   # PSID
    Name : UInt8*,   # LPSTR optional, out
    cchName : UInt32*,   # DWORD* in/out
    ReferencedDomainName : UInt8*,   # LPSTR optional, out
    cchReferencedDomainName : UInt32*,   # DWORD* in/out
    peUse : Int32*   # SID_NAME_USE* out
  ) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef LookupAccountSidANative = Int32 Function(Pointer<Utf8>, Pointer<Void>, Pointer<Utf8>, Pointer<Uint32>, Pointer<Utf8>, Pointer<Uint32>, Pointer<Int32>);
typedef LookupAccountSidADart = int Function(Pointer<Utf8>, Pointer<Void>, Pointer<Utf8>, Pointer<Uint32>, Pointer<Utf8>, Pointer<Uint32>, Pointer<Int32>);
final LookupAccountSidA = DynamicLibrary.open('ADVAPI32.dll')
    .lookupFunction<LookupAccountSidANative, LookupAccountSidADart>('LookupAccountSidA');
// lpSystemName : LPCSTR optional -> Pointer<Utf8>
// Sid : PSID -> Pointer<Void>
// Name : LPSTR optional, out -> Pointer<Utf8>
// cchName : DWORD* in/out -> Pointer<Uint32>
// ReferencedDomainName : LPSTR optional, out -> Pointer<Utf8>
// cchReferencedDomainName : DWORD* in/out -> Pointer<Uint32>
// peUse : SID_NAME_USE* out -> Pointer<Int32>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function LookupAccountSidA(
  lpSystemName: PAnsiChar;   // LPCSTR optional
  Sid: THandle;   // PSID
  Name: PAnsiChar;   // LPSTR optional, out
  cchName: Pointer;   // DWORD* in/out
  ReferencedDomainName: PAnsiChar;   // LPSTR optional, out
  cchReferencedDomainName: Pointer;   // DWORD* in/out
  peUse: Pointer   // SID_NAME_USE* out
): BOOL; stdcall;
  external 'ADVAPI32.dll' name 'LookupAccountSidA';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "LookupAccountSidA"
  c_LookupAccountSidA :: CString -> Ptr () -> CString -> Ptr Word32 -> CString -> Ptr Word32 -> Ptr Int32 -> IO CInt
-- lpSystemName : LPCSTR optional -> CString
-- Sid : PSID -> Ptr ()
-- Name : LPSTR optional, out -> CString
-- cchName : DWORD* in/out -> Ptr Word32
-- ReferencedDomainName : LPSTR optional, out -> CString
-- cchReferencedDomainName : DWORD* in/out -> Ptr Word32
-- peUse : SID_NAME_USE* out -> Ptr Int32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let lookupaccountsida =
  foreign "LookupAccountSidA"
    (string @-> (ptr void) @-> string @-> (ptr uint32_t) @-> string @-> (ptr uint32_t) @-> (ptr int32_t) @-> returning int32_t)
(* lpSystemName : LPCSTR optional -> string *)
(* Sid : PSID -> (ptr void) *)
(* Name : LPSTR optional, out -> string *)
(* cchName : DWORD* in/out -> (ptr uint32_t) *)
(* ReferencedDomainName : LPSTR optional, out -> string *)
(* cchReferencedDomainName : DWORD* in/out -> (ptr uint32_t) *)
(* peUse : SID_NAME_USE* out -> (ptr int32_t) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library advapi32 (t "ADVAPI32.dll"))
(cffi:use-foreign-library advapi32)

(cffi:defcfun ("LookupAccountSidA" lookup-account-sid-a :convention :stdcall) :int32
  (lp-system-name :string)   ; LPCSTR optional
  (sid :pointer)   ; PSID
  (name :pointer)   ; LPSTR optional, out
  (cch-name :pointer)   ; DWORD* in/out
  (referenced-domain-name :pointer)   ; LPSTR optional, out
  (cch-referenced-domain-name :pointer)   ; DWORD* in/out
  (pe-use :pointer))   ; SID_NAME_USE* out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $LookupAccountSidA = Win32::API::More->new('ADVAPI32',
    'BOOL LookupAccountSidA(LPCSTR lpSystemName, HANDLE Sid, LPSTR Name, LPVOID cchName, LPSTR ReferencedDomainName, LPVOID cchReferencedDomainName, LPVOID peUse)');
# my $ret = $LookupAccountSidA->Call($lpSystemName, $Sid, $Name, $cchName, $ReferencedDomainName, $cchReferencedDomainName, $peUse);
# lpSystemName : LPCSTR optional -> LPCSTR
# Sid : PSID -> HANDLE
# Name : LPSTR optional, out -> LPSTR
# cchName : DWORD* in/out -> LPVOID
# ReferencedDomainName : LPSTR optional, out -> LPSTR
# cchReferencedDomainName : DWORD* in/out -> LPVOID
# peUse : SID_NAME_USE* out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

文字セット違い
公式の関連項目
使用する型