MsiGetUserInfoA

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

USERINFOSTATE MsiGetUserInfoA(
    LPCSTR szProduct,
    LPSTR lpUserNameBuf,   // optional
    DWORD* pcchUserNameBuf,   // optional
    LPSTR lpOrgNameBuf,   // optional
    DWORD* pcchOrgNameBuf,   // optional
    LPSTR lpSerialBuf,   // optional
    DWORD* pcchSerialBuf   // optional
);

<DllImport("msi.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function MsiGetUserInfoA(
    <MarshalAs(UnmanagedType.LPStr)> szProduct As String,   ' LPCSTR
    <MarshalAs(UnmanagedType.LPStr)> lpUserNameBuf As System.Text.StringBuilder,   ' LPSTR optional, out
    pcchUserNameBuf As IntPtr,   ' DWORD* optional, in/out
    <MarshalAs(UnmanagedType.LPStr)> lpOrgNameBuf As System.Text.StringBuilder,   ' LPSTR optional, out
    pcchOrgNameBuf As IntPtr,   ' DWORD* optional, in/out
    <MarshalAs(UnmanagedType.LPStr)> lpSerialBuf As System.Text.StringBuilder,   ' LPSTR optional, out
    pcchSerialBuf As IntPtr   ' DWORD* optional, in/out
) As Integer
End Function

' szProduct : LPCSTR
' lpUserNameBuf : LPSTR optional, out
' pcchUserNameBuf : DWORD* optional, in/out
' lpOrgNameBuf : LPSTR optional, out
' pcchOrgNameBuf : DWORD* optional, in/out
' lpSerialBuf : LPSTR optional, out
' pcchSerialBuf : DWORD* optional, in/out
Declare PtrSafe Function MsiGetUserInfoA Lib "msi" ( _
    ByVal szProduct As String, _
    ByVal lpUserNameBuf As String, _
    ByVal pcchUserNameBuf As LongPtr, _
    ByVal lpOrgNameBuf As String, _
    ByVal pcchOrgNameBuf As LongPtr, _
    ByVal lpSerialBuf As String, _
    ByVal pcchSerialBuf As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

MsiGetUserInfoA = ctypes.windll.msi.MsiGetUserInfoA
MsiGetUserInfoA.restype = ctypes.c_int
MsiGetUserInfoA.argtypes = [
    wintypes.LPCSTR,  # szProduct : LPCSTR
    wintypes.LPSTR,  # lpUserNameBuf : LPSTR optional, out
    ctypes.POINTER(wintypes.DWORD),  # pcchUserNameBuf : DWORD* optional, in/out
    wintypes.LPSTR,  # lpOrgNameBuf : LPSTR optional, out
    ctypes.POINTER(wintypes.DWORD),  # pcchOrgNameBuf : DWORD* optional, in/out
    wintypes.LPSTR,  # lpSerialBuf : LPSTR optional, out
    ctypes.POINTER(wintypes.DWORD),  # pcchSerialBuf : DWORD* optional, in/out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('msi.dll')
MsiGetUserInfoA = Fiddle::Function.new(
  lib['MsiGetUserInfoA'],
  [
    Fiddle::TYPE_VOIDP,  # szProduct : LPCSTR
    Fiddle::TYPE_VOIDP,  # lpUserNameBuf : LPSTR optional, out
    Fiddle::TYPE_VOIDP,  # pcchUserNameBuf : DWORD* optional, in/out
    Fiddle::TYPE_VOIDP,  # lpOrgNameBuf : LPSTR optional, out
    Fiddle::TYPE_VOIDP,  # pcchOrgNameBuf : DWORD* optional, in/out
    Fiddle::TYPE_VOIDP,  # lpSerialBuf : LPSTR optional, out
    Fiddle::TYPE_VOIDP,  # pcchSerialBuf : DWORD* optional, in/out
  ],
  Fiddle::TYPE_INT)

#[link(name = "msi")]
extern "system" {
    fn MsiGetUserInfoA(
        szProduct: *const u8,  // LPCSTR
        lpUserNameBuf: *mut u8,  // LPSTR optional, out
        pcchUserNameBuf: *mut u32,  // DWORD* optional, in/out
        lpOrgNameBuf: *mut u8,  // LPSTR optional, out
        pcchOrgNameBuf: *mut u32,  // DWORD* optional, in/out
        lpSerialBuf: *mut u8,  // LPSTR optional, out
        pcchSerialBuf: *mut u32  // DWORD* optional, in/out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("msi.dll", CharSet = CharSet.Ansi)]
public static extern int MsiGetUserInfoA([MarshalAs(UnmanagedType.LPStr)] string szProduct, [MarshalAs(UnmanagedType.LPStr)] System.Text.StringBuilder lpUserNameBuf, IntPtr pcchUserNameBuf, [MarshalAs(UnmanagedType.LPStr)] System.Text.StringBuilder lpOrgNameBuf, IntPtr pcchOrgNameBuf, [MarshalAs(UnmanagedType.LPStr)] System.Text.StringBuilder lpSerialBuf, IntPtr pcchSerialBuf);
"@
$api = Add-Type -MemberDefinition $sig -Name 'msi_MsiGetUserInfoA' -Namespace Win32 -PassThru
# $api::MsiGetUserInfoA(szProduct, lpUserNameBuf, pcchUserNameBuf, lpOrgNameBuf, pcchOrgNameBuf, lpSerialBuf, pcchSerialBuf)

#uselib "msi.dll"
#func global MsiGetUserInfoA "MsiGetUserInfoA" sptr, sptr, sptr, sptr, sptr, sptr, sptr
; MsiGetUserInfoA szProduct, varptr(lpUserNameBuf), varptr(pcchUserNameBuf), varptr(lpOrgNameBuf), varptr(pcchOrgNameBuf), varptr(lpSerialBuf), varptr(pcchSerialBuf)   ; 戻り値は stat
; szProduct : LPCSTR -> "sptr"
; lpUserNameBuf : LPSTR optional, out -> "sptr"
; pcchUserNameBuf : DWORD* optional, in/out -> "sptr"
; lpOrgNameBuf : LPSTR optional, out -> "sptr"
; pcchOrgNameBuf : DWORD* optional, in/out -> "sptr"
; lpSerialBuf : LPSTR optional, out -> "sptr"
; pcchSerialBuf : DWORD* optional, in/out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "msi.dll"
#cfunc global MsiGetUserInfoA "MsiGetUserInfoA" str, var, var, var, var, var, var
; res = MsiGetUserInfoA(szProduct, lpUserNameBuf, pcchUserNameBuf, lpOrgNameBuf, pcchOrgNameBuf, lpSerialBuf, pcchSerialBuf)
; szProduct : LPCSTR -> "str"
; lpUserNameBuf : LPSTR optional, out -> "var"
; pcchUserNameBuf : DWORD* optional, in/out -> "var"
; lpOrgNameBuf : LPSTR optional, out -> "var"
; pcchOrgNameBuf : DWORD* optional, in/out -> "var"
; lpSerialBuf : LPSTR optional, out -> "var"
; pcchSerialBuf : DWORD* optional, in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; USERINFOSTATE MsiGetUserInfoA(LPCSTR szProduct, LPSTR lpUserNameBuf, DWORD* pcchUserNameBuf, LPSTR lpOrgNameBuf, DWORD* pcchOrgNameBuf, LPSTR lpSerialBuf, DWORD* pcchSerialBuf)
#uselib "msi.dll"
#cfunc global MsiGetUserInfoA "MsiGetUserInfoA" str, var, var, var, var, var, var
; res = MsiGetUserInfoA(szProduct, lpUserNameBuf, pcchUserNameBuf, lpOrgNameBuf, pcchOrgNameBuf, lpSerialBuf, pcchSerialBuf)
; szProduct : LPCSTR -> "str"
; lpUserNameBuf : LPSTR optional, out -> "var"
; pcchUserNameBuf : DWORD* optional, in/out -> "var"
; lpOrgNameBuf : LPSTR optional, out -> "var"
; pcchOrgNameBuf : DWORD* optional, in/out -> "var"
; lpSerialBuf : LPSTR optional, out -> "var"
; pcchSerialBuf : DWORD* optional, in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	msi = windows.NewLazySystemDLL("msi.dll")
	procMsiGetUserInfoA = msi.NewProc("MsiGetUserInfoA")
)

// szProduct (LPCSTR), lpUserNameBuf (LPSTR optional, out), pcchUserNameBuf (DWORD* optional, in/out), lpOrgNameBuf (LPSTR optional, out), pcchOrgNameBuf (DWORD* optional, in/out), lpSerialBuf (LPSTR optional, out), pcchSerialBuf (DWORD* optional, in/out)
r1, _, err := procMsiGetUserInfoA.Call(
	uintptr(unsafe.Pointer(windows.BytePtrFromString(szProduct))),
	uintptr(lpUserNameBuf),
	uintptr(pcchUserNameBuf),
	uintptr(lpOrgNameBuf),
	uintptr(pcchOrgNameBuf),
	uintptr(lpSerialBuf),
	uintptr(pcchSerialBuf),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // USERINFOSTATE

function MsiGetUserInfoA(
  szProduct: PAnsiChar;   // LPCSTR
  lpUserNameBuf: PAnsiChar;   // LPSTR optional, out
  pcchUserNameBuf: Pointer;   // DWORD* optional, in/out
  lpOrgNameBuf: PAnsiChar;   // LPSTR optional, out
  pcchOrgNameBuf: Pointer;   // DWORD* optional, in/out
  lpSerialBuf: PAnsiChar;   // LPSTR optional, out
  pcchSerialBuf: Pointer   // DWORD* optional, in/out
): Integer; stdcall;
  external 'msi.dll' name 'MsiGetUserInfoA';

result := DllCall("msi\MsiGetUserInfoA"
    , "AStr", szProduct   ; LPCSTR
    , "Ptr", lpUserNameBuf   ; LPSTR optional, out
    , "Ptr", pcchUserNameBuf   ; DWORD* optional, in/out
    , "Ptr", lpOrgNameBuf   ; LPSTR optional, out
    , "Ptr", pcchOrgNameBuf   ; DWORD* optional, in/out
    , "Ptr", lpSerialBuf   ; LPSTR optional, out
    , "Ptr", pcchSerialBuf   ; DWORD* optional, in/out
    , "Int")   ; return: USERINFOSTATE

●MsiGetUserInfoA(szProduct, lpUserNameBuf, pcchUserNameBuf, lpOrgNameBuf, pcchOrgNameBuf, lpSerialBuf, pcchSerialBuf) = DLL("msi.dll", "int MsiGetUserInfoA(char*, char*, void*, char*, void*, char*, void*)")
# 呼び出し: MsiGetUserInfoA(szProduct, lpUserNameBuf, pcchUserNameBuf, lpOrgNameBuf, pcchOrgNameBuf, lpSerialBuf, pcchSerialBuf)
# szProduct : LPCSTR -> "char*"
# lpUserNameBuf : LPSTR optional, out -> "char*"
# pcchUserNameBuf : DWORD* optional, in/out -> "void*"
# lpOrgNameBuf : LPSTR optional, out -> "char*"
# pcchOrgNameBuf : DWORD* optional, in/out -> "void*"
# lpSerialBuf : LPSTR optional, out -> "char*"
# pcchSerialBuf : DWORD* optional, in/out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。