NetProvisionComputerAccount

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

DWORD NetProvisionComputerAccount(
    LPCWSTR lpDomain,
    LPCWSTR lpMachineName,
    LPCWSTR lpMachineAccountOU,   // optional
    LPCWSTR lpDcName,   // optional
    NETSETUP_PROVISION dwOptions,
    BYTE** pProvisionBinData,   // optional
    DWORD* pdwProvisionBinDataSize,   // optional
    LPWSTR* pProvisionTextData   // optional
);

<DllImport("NETAPI32.dll", ExactSpelling:=True)>
Public Shared Function NetProvisionComputerAccount(
    <MarshalAs(UnmanagedType.LPWStr)> lpDomain As String,   ' LPCWSTR
    <MarshalAs(UnmanagedType.LPWStr)> lpMachineName As String,   ' LPCWSTR
    <MarshalAs(UnmanagedType.LPWStr)> lpMachineAccountOU As String,   ' LPCWSTR optional
    <MarshalAs(UnmanagedType.LPWStr)> lpDcName As String,   ' LPCWSTR optional
    dwOptions As UInteger,   ' NETSETUP_PROVISION
    pProvisionBinData As IntPtr,   ' BYTE** optional, out
    pdwProvisionBinDataSize As IntPtr,   ' DWORD* optional, out
    pProvisionTextData As IntPtr   ' LPWSTR* optional, out
) As UInteger
End Function

' lpDomain : LPCWSTR
' lpMachineName : LPCWSTR
' lpMachineAccountOU : LPCWSTR optional
' lpDcName : LPCWSTR optional
' dwOptions : NETSETUP_PROVISION
' pProvisionBinData : BYTE** optional, out
' pdwProvisionBinDataSize : DWORD* optional, out
' pProvisionTextData : LPWSTR* optional, out
Declare PtrSafe Function NetProvisionComputerAccount Lib "netapi32" ( _
    ByVal lpDomain As LongPtr, _
    ByVal lpMachineName As LongPtr, _
    ByVal lpMachineAccountOU As LongPtr, _
    ByVal lpDcName As LongPtr, _
    ByVal dwOptions As Long, _
    ByVal pProvisionBinData As LongPtr, _
    ByVal pdwProvisionBinDataSize As LongPtr, _
    ByVal pProvisionTextData As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

NetProvisionComputerAccount = ctypes.windll.netapi32.NetProvisionComputerAccount
NetProvisionComputerAccount.restype = wintypes.DWORD
NetProvisionComputerAccount.argtypes = [
    wintypes.LPCWSTR,  # lpDomain : LPCWSTR
    wintypes.LPCWSTR,  # lpMachineName : LPCWSTR
    wintypes.LPCWSTR,  # lpMachineAccountOU : LPCWSTR optional
    wintypes.LPCWSTR,  # lpDcName : LPCWSTR optional
    wintypes.DWORD,  # dwOptions : NETSETUP_PROVISION
    ctypes.c_void_p,  # pProvisionBinData : BYTE** optional, out
    ctypes.POINTER(wintypes.DWORD),  # pdwProvisionBinDataSize : DWORD* optional, out
    ctypes.c_void_p,  # pProvisionTextData : LPWSTR* optional, out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('NETAPI32.dll')
NetProvisionComputerAccount = Fiddle::Function.new(
  lib['NetProvisionComputerAccount'],
  [
    Fiddle::TYPE_VOIDP,  # lpDomain : LPCWSTR
    Fiddle::TYPE_VOIDP,  # lpMachineName : LPCWSTR
    Fiddle::TYPE_VOIDP,  # lpMachineAccountOU : LPCWSTR optional
    Fiddle::TYPE_VOIDP,  # lpDcName : LPCWSTR optional
    -Fiddle::TYPE_INT,  # dwOptions : NETSETUP_PROVISION
    Fiddle::TYPE_VOIDP,  # pProvisionBinData : BYTE** optional, out
    Fiddle::TYPE_VOIDP,  # pdwProvisionBinDataSize : DWORD* optional, out
    Fiddle::TYPE_VOIDP,  # pProvisionTextData : LPWSTR* optional, out
  ],
  -Fiddle::TYPE_INT)

#[link(name = "netapi32")]
extern "system" {
    fn NetProvisionComputerAccount(
        lpDomain: *const u16,  // LPCWSTR
        lpMachineName: *const u16,  // LPCWSTR
        lpMachineAccountOU: *const u16,  // LPCWSTR optional
        lpDcName: *const u16,  // LPCWSTR optional
        dwOptions: u32,  // NETSETUP_PROVISION
        pProvisionBinData: *mut *mut u8,  // BYTE** optional, out
        pdwProvisionBinDataSize: *mut u32,  // DWORD* optional, out
        pProvisionTextData: *mut *mut u16  // LPWSTR* optional, out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("NETAPI32.dll")]
public static extern uint NetProvisionComputerAccount([MarshalAs(UnmanagedType.LPWStr)] string lpDomain, [MarshalAs(UnmanagedType.LPWStr)] string lpMachineName, [MarshalAs(UnmanagedType.LPWStr)] string lpMachineAccountOU, [MarshalAs(UnmanagedType.LPWStr)] string lpDcName, uint dwOptions, IntPtr pProvisionBinData, IntPtr pdwProvisionBinDataSize, IntPtr pProvisionTextData);
"@
$api = Add-Type -MemberDefinition $sig -Name 'NETAPI32_NetProvisionComputerAccount' -Namespace Win32 -PassThru
# $api::NetProvisionComputerAccount(lpDomain, lpMachineName, lpMachineAccountOU, lpDcName, dwOptions, pProvisionBinData, pdwProvisionBinDataSize, pProvisionTextData)

#uselib "NETAPI32.dll"
#func global NetProvisionComputerAccount "NetProvisionComputerAccount" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; NetProvisionComputerAccount lpDomain, lpMachineName, lpMachineAccountOU, lpDcName, dwOptions, varptr(pProvisionBinData), varptr(pdwProvisionBinDataSize), varptr(pProvisionTextData)   ; 戻り値は stat
; lpDomain : LPCWSTR -> "sptr"
; lpMachineName : LPCWSTR -> "sptr"
; lpMachineAccountOU : LPCWSTR optional -> "sptr"
; lpDcName : LPCWSTR optional -> "sptr"
; dwOptions : NETSETUP_PROVISION -> "sptr"
; pProvisionBinData : BYTE** optional, out -> "sptr"
; pdwProvisionBinDataSize : DWORD* optional, out -> "sptr"
; pProvisionTextData : LPWSTR* optional, out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

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

var (
	netapi32 = windows.NewLazySystemDLL("NETAPI32.dll")
	procNetProvisionComputerAccount = netapi32.NewProc("NetProvisionComputerAccount")
)

// lpDomain (LPCWSTR), lpMachineName (LPCWSTR), lpMachineAccountOU (LPCWSTR optional), lpDcName (LPCWSTR optional), dwOptions (NETSETUP_PROVISION), pProvisionBinData (BYTE** optional, out), pdwProvisionBinDataSize (DWORD* optional, out), pProvisionTextData (LPWSTR* optional, out)
r1, _, err := procNetProvisionComputerAccount.Call(
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(lpDomain))),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(lpMachineName))),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(lpMachineAccountOU))),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(lpDcName))),
	uintptr(dwOptions),
	uintptr(pProvisionBinData),
	uintptr(pdwProvisionBinDataSize),
	uintptr(pProvisionTextData),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD

function NetProvisionComputerAccount(
  lpDomain: PWideChar;   // LPCWSTR
  lpMachineName: PWideChar;   // LPCWSTR
  lpMachineAccountOU: PWideChar;   // LPCWSTR optional
  lpDcName: PWideChar;   // LPCWSTR optional
  dwOptions: DWORD;   // NETSETUP_PROVISION
  pProvisionBinData: Pointer;   // BYTE** optional, out
  pdwProvisionBinDataSize: Pointer;   // DWORD* optional, out
  pProvisionTextData: PPWideChar   // LPWSTR* optional, out
): DWORD; stdcall;
  external 'NETAPI32.dll' name 'NetProvisionComputerAccount';

result := DllCall("NETAPI32\NetProvisionComputerAccount"
    , "WStr", lpDomain   ; LPCWSTR
    , "WStr", lpMachineName   ; LPCWSTR
    , "WStr", lpMachineAccountOU   ; LPCWSTR optional
    , "WStr", lpDcName   ; LPCWSTR optional
    , "UInt", dwOptions   ; NETSETUP_PROVISION
    , "Ptr", pProvisionBinData   ; BYTE** optional, out
    , "Ptr", pdwProvisionBinDataSize   ; DWORD* optional, out
    , "Ptr", pProvisionTextData   ; LPWSTR* optional, out
    , "UInt")   ; return: DWORD

●NetProvisionComputerAccount(lpDomain, lpMachineName, lpMachineAccountOU, lpDcName, dwOptions, pProvisionBinData, pdwProvisionBinDataSize, pProvisionTextData) = DLL("NETAPI32.dll", "dword NetProvisionComputerAccount(char*, char*, char*, char*, dword, void*, void*, void*)")
# 呼び出し: NetProvisionComputerAccount(lpDomain, lpMachineName, lpMachineAccountOU, lpDcName, dwOptions, pProvisionBinData, pdwProvisionBinDataSize, pProvisionTextData)
# lpDomain : LPCWSTR -> "char*"
# lpMachineName : LPCWSTR -> "char*"
# lpMachineAccountOU : LPCWSTR optional -> "char*"
# lpDcName : LPCWSTR optional -> "char*"
# dwOptions : NETSETUP_PROVISION -> "dword"
# pProvisionBinData : BYTE** optional, out -> "void*"
# pdwProvisionBinDataSize : DWORD* optional, out -> "void*"
# pProvisionTextData : LPWSTR* optional, out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。

const std = @import("std");

extern "netapi32" fn NetProvisionComputerAccount(
    lpDomain: [*c]const u16, // LPCWSTR
    lpMachineName: [*c]const u16, // LPCWSTR
    lpMachineAccountOU: [*c]const u16, // LPCWSTR optional
    lpDcName: [*c]const u16, // LPCWSTR optional
    dwOptions: u32, // NETSETUP_PROVISION
    pProvisionBinData: [*c][*c]u8, // BYTE** optional, out
    pdwProvisionBinDataSize: [*c]u32, // DWORD* optional, out
    pProvisionTextData: [*c][*c]u16 // LPWSTR* optional, out
) callconv(std.os.windows.WINAPI) u32;

proc NetProvisionComputerAccount(
    lpDomain: WideCString,  # LPCWSTR
    lpMachineName: WideCString,  # LPCWSTR
    lpMachineAccountOU: WideCString,  # LPCWSTR optional
    lpDcName: WideCString,  # LPCWSTR optional
    dwOptions: uint32,  # NETSETUP_PROVISION
    pProvisionBinData: ptr uint8,  # BYTE** optional, out
    pdwProvisionBinDataSize: ptr uint32,  # DWORD* optional, out
    pProvisionTextData: ptr WideCString  # LPWSTR* optional, out
): uint32 {.importc: "NetProvisionComputerAccount", stdcall, dynlib: "NETAPI32.dll".}

pragma(lib, "netapi32");
extern(Windows)
uint NetProvisionComputerAccount(
    const(wchar)* lpDomain,   // LPCWSTR
    const(wchar)* lpMachineName,   // LPCWSTR
    const(wchar)* lpMachineAccountOU,   // LPCWSTR optional
    const(wchar)* lpDcName,   // LPCWSTR optional
    uint dwOptions,   // NETSETUP_PROVISION
    ubyte** pProvisionBinData,   // BYTE** optional, out
    uint* pdwProvisionBinDataSize,   // DWORD* optional, out
    wchar** pProvisionTextData   // LPWSTR* optional, out
);

ccall((:NetProvisionComputerAccount, "NETAPI32.dll"), stdcall, UInt32,
      (Cwstring, Cwstring, Cwstring, Cwstring, UInt32, Ptr{UInt8}, Ptr{UInt32}, Ptr{Ptr{UInt16}}),
      lpDomain, lpMachineName, lpMachineAccountOU, lpDcName, dwOptions, pProvisionBinData, pdwProvisionBinDataSize, pProvisionTextData)
# lpDomain : LPCWSTR -> Cwstring
# lpMachineName : LPCWSTR -> Cwstring
# lpMachineAccountOU : LPCWSTR optional -> Cwstring
# lpDcName : LPCWSTR optional -> Cwstring
# dwOptions : NETSETUP_PROVISION -> UInt32
# pProvisionBinData : BYTE** optional, out -> Ptr{UInt8}
# pdwProvisionBinDataSize : DWORD* optional, out -> Ptr{UInt32}
# pProvisionTextData : LPWSTR* optional, out -> Ptr{Ptr{UInt16}}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。

local ffi = require("ffi")
ffi.cdef[[
uint32_t NetProvisionComputerAccount(
    const uint16_t* lpDomain,
    const uint16_t* lpMachineName,
    const uint16_t* lpMachineAccountOU,
    const uint16_t* lpDcName,
    uint32_t dwOptions,
    uint8_t** pProvisionBinData,
    uint32_t* pdwProvisionBinDataSize,
    uint16_t** pProvisionTextData);
]]
local netapi32 = ffi.load("netapi32")
-- netapi32.NetProvisionComputerAccount(lpDomain, lpMachineName, lpMachineAccountOU, lpDcName, dwOptions, pProvisionBinData, pdwProvisionBinDataSize, pProvisionTextData)
-- lpDomain : LPCWSTR
-- lpMachineName : LPCWSTR
-- lpMachineAccountOU : LPCWSTR optional
-- lpDcName : LPCWSTR optional
-- dwOptions : NETSETUP_PROVISION
-- pProvisionBinData : BYTE** optional, out
-- pdwProvisionBinDataSize : DWORD* optional, out
-- pProvisionTextData : LPWSTR* optional, out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。

const koffi = require('koffi');
const lib = koffi.load('NETAPI32.dll');
const NetProvisionComputerAccount = lib.func('__stdcall', 'NetProvisionComputerAccount', 'uint32_t', ['str16', 'str16', 'str16', 'str16', 'uint32_t', 'uint8_t *', 'uint32_t *', 'void *']);
// NetProvisionComputerAccount(lpDomain, lpMachineName, lpMachineAccountOU, lpDcName, dwOptions, pProvisionBinData, pdwProvisionBinDataSize, pProvisionTextData)
// lpDomain : LPCWSTR -> 'str16'
// lpMachineName : LPCWSTR -> 'str16'
// lpMachineAccountOU : LPCWSTR optional -> 'str16'
// lpDcName : LPCWSTR optional -> 'str16'
// dwOptions : NETSETUP_PROVISION -> 'uint32_t'
// pProvisionBinData : BYTE** optional, out -> 'uint8_t *'
// pdwProvisionBinDataSize : DWORD* optional, out -> 'uint32_t *'
// pProvisionTextData : LPWSTR* optional, out -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。

const lib = Deno.dlopen("NETAPI32.dll", {
  NetProvisionComputerAccount: { parameters: ["buffer", "buffer", "buffer", "buffer", "u32", "pointer", "pointer", "pointer"], result: "u32" },
});
// lib.symbols.NetProvisionComputerAccount(lpDomain, lpMachineName, lpMachineAccountOU, lpDcName, dwOptions, pProvisionBinData, pdwProvisionBinDataSize, pProvisionTextData)
// lpDomain : LPCWSTR -> "buffer"
// lpMachineName : LPCWSTR -> "buffer"
// lpMachineAccountOU : LPCWSTR optional -> "buffer"
// lpDcName : LPCWSTR optional -> "buffer"
// dwOptions : NETSETUP_PROVISION -> "u32"
// pProvisionBinData : BYTE** optional, out -> "pointer"
// pdwProvisionBinDataSize : DWORD* optional, out -> "pointer"
// pProvisionTextData : LPWSTR* optional, out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。

<?php
$ffi = FFI::cdef(<<<C
uint32_t NetProvisionComputerAccount(
    const uint16_t* lpDomain,
    const uint16_t* lpMachineName,
    const uint16_t* lpMachineAccountOU,
    const uint16_t* lpDcName,
    uint32_t dwOptions,
    uint8_t** pProvisionBinData,
    uint32_t* pdwProvisionBinDataSize,
    uint16_t** pProvisionTextData);
C, "NETAPI32.dll");
// $ffi->NetProvisionComputerAccount(lpDomain, lpMachineName, lpMachineAccountOU, lpDcName, dwOptions, pProvisionBinData, pdwProvisionBinDataSize, pProvisionTextData);
// lpDomain : LPCWSTR
// lpMachineName : LPCWSTR
// lpMachineAccountOU : LPCWSTR optional
// lpDcName : LPCWSTR optional
// dwOptions : NETSETUP_PROVISION
// pProvisionBinData : BYTE** optional, out
// pdwProvisionBinDataSize : DWORD* optional, out
// pProvisionTextData : LPWSTR* optional, 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 Netapi32 extends StdCallLibrary {
    Netapi32 INSTANCE = Native.load("netapi32", Netapi32.class);
    int NetProvisionComputerAccount(
        WString lpDomain,   // LPCWSTR
        WString lpMachineName,   // LPCWSTR
        WString lpMachineAccountOU,   // LPCWSTR optional
        WString lpDcName,   // LPCWSTR optional
        int dwOptions,   // NETSETUP_PROVISION
        Pointer pProvisionBinData,   // BYTE** optional, out
        IntByReference pdwProvisionBinDataSize,   // DWORD* optional, out
        PointerByReference pProvisionTextData   // LPWSTR* optional, out
    );
}

@[Link("netapi32")]
lib LibNETAPI32
  fun NetProvisionComputerAccount = NetProvisionComputerAccount(
    lpDomain : UInt16*,   # LPCWSTR
    lpMachineName : UInt16*,   # LPCWSTR
    lpMachineAccountOU : UInt16*,   # LPCWSTR optional
    lpDcName : UInt16*,   # LPCWSTR optional
    dwOptions : UInt32,   # NETSETUP_PROVISION
    pProvisionBinData : UInt8**,   # BYTE** optional, out
    pdwProvisionBinDataSize : UInt32*,   # DWORD* optional, out
    pProvisionTextData : UInt16**   # LPWSTR* optional, out
  ) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。

import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef NetProvisionComputerAccountNative = Uint32 Function(Pointer<Utf16>, Pointer<Utf16>, Pointer<Utf16>, Pointer<Utf16>, Uint32, Pointer<Uint8>, Pointer<Uint32>, Pointer<Pointer<Utf16>>);
typedef NetProvisionComputerAccountDart = int Function(Pointer<Utf16>, Pointer<Utf16>, Pointer<Utf16>, Pointer<Utf16>, int, Pointer<Uint8>, Pointer<Uint32>, Pointer<Pointer<Utf16>>);
final NetProvisionComputerAccount = DynamicLibrary.open('NETAPI32.dll')
    .lookupFunction<NetProvisionComputerAccountNative, NetProvisionComputerAccountDart>('NetProvisionComputerAccount');
// lpDomain : LPCWSTR -> Pointer<Utf16>
// lpMachineName : LPCWSTR -> Pointer<Utf16>
// lpMachineAccountOU : LPCWSTR optional -> Pointer<Utf16>
// lpDcName : LPCWSTR optional -> Pointer<Utf16>
// dwOptions : NETSETUP_PROVISION -> Uint32
// pProvisionBinData : BYTE** optional, out -> Pointer<Uint8>
// pdwProvisionBinDataSize : DWORD* optional, out -> Pointer<Uint32>
// pProvisionTextData : LPWSTR* optional, out -> Pointer<Pointer<Utf16>>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。

{$mode objfpc}{$H+}
function NetProvisionComputerAccount(
  lpDomain: PWideChar;   // LPCWSTR
  lpMachineName: PWideChar;   // LPCWSTR
  lpMachineAccountOU: PWideChar;   // LPCWSTR optional
  lpDcName: PWideChar;   // LPCWSTR optional
  dwOptions: DWORD;   // NETSETUP_PROVISION
  pProvisionBinData: Pointer;   // BYTE** optional, out
  pdwProvisionBinDataSize: Pointer;   // DWORD* optional, out
  pProvisionTextData: PPWideChar   // LPWSTR* optional, out
): DWORD; stdcall;
  external 'NETAPI32.dll' name 'NetProvisionComputerAccount';

import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "NetProvisionComputerAccount"
  c_NetProvisionComputerAccount :: CWString -> CWString -> CWString -> CWString -> Word32 -> Ptr Word8 -> Ptr Word32 -> Ptr CWString -> IO Word32
-- lpDomain : LPCWSTR -> CWString
-- lpMachineName : LPCWSTR -> CWString
-- lpMachineAccountOU : LPCWSTR optional -> CWString
-- lpDcName : LPCWSTR optional -> CWString
-- dwOptions : NETSETUP_PROVISION -> Word32
-- pProvisionBinData : BYTE** optional, out -> Ptr Word8
-- pdwProvisionBinDataSize : DWORD* optional, out -> Ptr Word32
-- pProvisionTextData : LPWSTR* optional, out -> Ptr CWString
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。

open Ctypes
open Foreign

let netprovisioncomputeraccount =
  foreign "NetProvisionComputerAccount"
    ((ptr uint16_t) @-> (ptr uint16_t) @-> (ptr uint16_t) @-> (ptr uint16_t) @-> uint32_t @-> (ptr uint8_t) @-> (ptr uint32_t) @-> (ptr (ptr uint16_t)) @-> returning uint32_t)
(* lpDomain : LPCWSTR -> (ptr uint16_t) *)
(* lpMachineName : LPCWSTR -> (ptr uint16_t) *)
(* lpMachineAccountOU : LPCWSTR optional -> (ptr uint16_t) *)
(* lpDcName : LPCWSTR optional -> (ptr uint16_t) *)
(* dwOptions : NETSETUP_PROVISION -> uint32_t *)
(* pProvisionBinData : BYTE** optional, out -> (ptr uint8_t) *)
(* pdwProvisionBinDataSize : DWORD* optional, out -> (ptr uint32_t) *)
(* pProvisionTextData : LPWSTR* optional, out -> (ptr (ptr uint16_t)) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)

(cffi:define-foreign-library netapi32 (t "NETAPI32.dll"))
(cffi:use-foreign-library netapi32)

(cffi:defcfun ("NetProvisionComputerAccount" net-provision-computer-account :convention :stdcall) :uint32
  (lp-domain (:string :encoding :utf-16le))   ; LPCWSTR
  (lp-machine-name (:string :encoding :utf-16le))   ; LPCWSTR
  (lp-machine-account-ou (:string :encoding :utf-16le))   ; LPCWSTR optional
  (lp-dc-name (:string :encoding :utf-16le))   ; LPCWSTR optional
  (dw-options :uint32)   ; NETSETUP_PROVISION
  (p-provision-bin-data :pointer)   ; BYTE** optional, out
  (pdw-provision-bin-data-size :pointer)   ; DWORD* optional, out
  (p-provision-text-data :pointer))   ; LPWSTR* optional, out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。

use Win32::API;
my $NetProvisionComputerAccount = Win32::API::More->new('NETAPI32',
    'DWORD NetProvisionComputerAccount(LPCWSTR lpDomain, LPCWSTR lpMachineName, LPCWSTR lpMachineAccountOU, LPCWSTR lpDcName, DWORD dwOptions, LPVOID pProvisionBinData, LPVOID pdwProvisionBinDataSize, LPVOID pProvisionTextData)');
# my $ret = $NetProvisionComputerAccount->Call($lpDomain, $lpMachineName, $lpMachineAccountOU, $lpDcName, $dwOptions, $pProvisionBinData, $pdwProvisionBinDataSize, $pProvisionTextData);
# lpDomain : LPCWSTR -> LPCWSTR
# lpMachineName : LPCWSTR -> LPCWSTR
# lpMachineAccountOU : LPCWSTR optional -> LPCWSTR
# lpDcName : LPCWSTR optional -> LPCWSTR
# dwOptions : NETSETUP_PROVISION -> DWORD
# pProvisionBinData : BYTE** optional, out -> LPVOID
# pdwProvisionBinDataSize : DWORD* optional, out -> LPVOID
# pProvisionTextData : LPWSTR* optional, out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。