NetDfsGetInfo
関数シグネチャ
// NETAPI32.dll
#include <windows.h>
DWORD NetDfsGetInfo(
LPWSTR DfsEntryPath,
LPWSTR ServerName, // optional
LPWSTR ShareName, // optional
DWORD Level,
BYTE** Buffer
);パラメーター
| 名前 | 型 | 方向 | 説明 |
|---|---|---|---|
| DfsEntryPath | LPWSTR | in | DFS ルートまたはリンクの Universal Naming Convention (UNC) パスを指定する文字列へのポインターです。 リンクの場合、文字列は 2 つの形式のいずれかを取ります。1 つ目の形式は次のとおりです。 \\ServerName\DfsName\link_path ここで ServerName はスタンドアロン DFS 名前空間をホストするルート ターゲット サーバーの名前、DfsName は DFS 名前空間の名前、 link_path は DFS リンクです。 2 つ目の形式は次のとおりです。 \\DomainName\DomDfsname\link_path ここで DomainName はドメイン ベースの DFS 名前空間をホストするドメインの名前、 DomDfsname は DFS 名前空間の名前、 link_path は DFS リンクです。 ルートの場合、文字列は次の 2 つの形式のいずれかを取ります。 \\ServerName\DfsName または \\DomainName\DomDfsname 各名前の値は前述のものと同じです。 このパラメーターは必須です。 |
| ServerName | LPWSTR | inoptional | このパラメーターは現在無視されます。NULL を指定してください。 |
| ShareName | LPWSTR | inoptional | このパラメーターは現在無視されます。NULL を指定してください。 |
| Level | DWORD | in | 要求する情報レベルを指定します。このパラメーターには次のいずれかの値を指定できます。 1DFS ルートまたは DFS リンクの名前を返します。Buffer パラメーターは DFS_INFO_1 構造体を指します。 2DFS ルートまたは DFS リンクの名前、状態、および DFS ターゲットの数を返します。 Buffer パラメーターは DFS_INFO_2 構造体を指します。 3DFS ルートまたは DFS リンクの名前、状態、およびターゲット情報を返します。 Buffer パラメーターは DFS_INFO_3 構造体を指します。 4DFS ルートまたは DFS リンクの名前、状態、GUID、タイムアウト、およびターゲット情報を返します。 Buffer パラメーターは DFS_INFO_4 構造体を指します。 5DFS ルートおよびそのルート配下のすべてのリンクについて、名前、状態、GUID、タイムアウト、プロパティ フラグ、メタデータ サイズ、およびターゲット数を返します。Buffer パラメーターは DFS_INFO_5 構造体の配列を指します。 6ルートまたはリンクについて、名前、状態、GUID、タイムアウト、プロパティ フラグ、メタデータ サイズ、DFS ターゲット情報、および DFS ターゲットの一覧を返します。Buffer パラメーターは DFS_INFO_6 構造体の配列を指します。 7DFS メタデータのバージョン番号 GUID を返します。Buffer パラメーターは DFS_INFO_7 構造体の配列を指します。 8DFS ルートおよびそのルート配下のすべてのリンクについて、名前、状態、GUID、タイムアウト、プロパティ フラグ、メタデータ サイズ、ターゲット数、およびリンクの再解析ポイントのセキュリティ記述子を返します。Buffer パラメーターは DFS_INFO_8 構造体の配列を指します。 9ルートまたはリンクについて、名前、状態、GUID、タイムアウト、プロパティ フラグ、メタデータ サイズ、DFS ターゲット情報、リンクの再解析ポイントのセキュリティ記述子、および DFS ターゲットの一覧を返します。 Buffer パラメーターは DFS_INFO_9 構造体の配列を指します。 50既存の DFS 名前空間の DFS メタデータ バージョンと機能を返します。 Buffer パラメーターは DFS_INFO_50 構造体を指します。 100DFS ルートまたは DFS リンクのコメントを返します。Buffer パラメーターは DFS_INFO_100 構造体を指します。 150DFS リンクの再解析ポイントのセキュリティ記述子を返します。Buffer パラメーターは DFS_INFO_150 構造体を指します。 メモ この値がネイティブにサポートされるのは、DFS リンクが
Windows Server 2008 以降を実行しているサーバー上に存在する場合のみです。
|
| Buffer | BYTE** | out | 要求された情報構造体を受け取るバッファーのアドレスへのポインターです。このデータの形式は Level パラメーターの値によって異なります。このバッファーはシステムによって割り当てられるため、 NetApiBufferFree 関数を使用して解放する必要があります。詳細については、 Network Management Function Buffers および Network Management Function Buffer Lengths を参照してください。 |
戻り値の型: DWORD
公式ドキュメント
DFS 名前空間内の指定された分散ファイル システム (DFS) ルートまたはリンクに関する情報を取得します。
戻り値
関数が成功した場合、戻り値は NERR_Success です。
関数が失敗した場合、戻り値はシステム エラー コードです。エラー コードの一覧については、 System Error Codes を参照してください。
解説(Remarks)
<b>NetDfsGetInfo</b> 関数を使用するために特別なグループ メンバーシップは必要ありません。
NetDfsGetInfo 関数を呼び出すアプリケーションは、 この関数呼び出しを処理するローカルの DFS 名前空間サーバーに対して、そのドメインの PDC エミュレーター マスターから関連する名前空間メタデータの完全同期を間接的に実行させる場合があります。この完全同期は、 その名前空間にルート スケーラビリティ モードが構成されている場合でも発生する可能性があります。この副作用を避けるために、 特定の DFS 名前空間パスに対応する、特定の DFSN クライアント コンピューターが使用する物理 UNC パス名のみを取得することが目的である場合は、 WDK API の ZwQueryInformationFile を使用する方法があります。その際、FileInformationClass パラメーターに FileNetworkPhysicalNameInformation を渡し、 FileInformation パラメーターには呼び出し側が割り当てた FILE_NETWORK_PHYSICAL_NAME_INFORMATION 構造体のアドレスを渡します。WDK API の呼び出しについて詳しくは、WDK を参照してください。
例
次のコード サンプルは、 NetDfsGetInfo 関数の呼び出しによって DFS リンクに関する情報を取得する方法を示しています。このサンプルは、情報レベル 3 (DFS_INFO_3) を指定して NetDfsGetInfo を呼び出します。呼び出しが成功すると、 サンプルはリンクが参照する各ターゲットの名前と状態を含む、DFS リンクの情報を出力します。最後に、情報バッファー用に割り当てられたメモリを解放します。
#include <windows.h>
#include <lm.h>
#include <lmdfs.h>
#include <stdio.h>
#pragma comment(lib, "Netapi32.lib")
void wmain(int argc, wchar_t *argv[ ])
{
PDFS_INFO_3 pData;
PDFS_STORAGE_INFO ps;
DWORD er = 0, tr = 0, res, j;
//
// Check command line arguments.
//
if (argc<2)
wprintf(L"Syntax: %s DfsEntryPath\n", argv[0]);
else
{
//
// Call the NetDfsGetInfo function, specifying level 3.
//
res = NetDfsGetInfo(argv[1], NULL, NULL, 3, (LPBYTE *) &pData);
//
// If the call succeeds, print the data.
//
if(res==0)
{
printf("%-30S Storages: %u\nComment: %S\n", pData->EntryPath, pData->NumberOfStorages, pData->Comment);
ps = pData->Storage;
//
// Loop through each target.
//
for(j = 1; j <= pData->NumberOfStorages;j++)
{
//
// Print the status (Offline/Online) and the name
// of each target referenced by the DFS link.
//
printf(" %S ", (ps->State == DFS_STORAGE_STATE_OFFLINE) ? TEXT("Offline"): TEXT("Online "));
printf("\\\\%S\\%S\n", ps->ServerName, ps->ShareName);
ps++;
}
//
// Free the allocated memory.
//
NetApiBufferFree(pData);
}
else
printf("Error: %u\n", res);
}
return;
}
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
各言語での呼び出し定義
// NETAPI32.dll
#include <windows.h>
DWORD NetDfsGetInfo(
LPWSTR DfsEntryPath,
LPWSTR ServerName, // optional
LPWSTR ShareName, // optional
DWORD Level,
BYTE** Buffer
);[DllImport("NETAPI32.dll", ExactSpelling = true)]
static extern uint NetDfsGetInfo(
[MarshalAs(UnmanagedType.LPWStr)] string DfsEntryPath, // LPWSTR
[MarshalAs(UnmanagedType.LPWStr)] string ServerName, // LPWSTR optional
[MarshalAs(UnmanagedType.LPWStr)] string ShareName, // LPWSTR optional
uint Level, // DWORD
IntPtr Buffer // BYTE** out
);<DllImport("NETAPI32.dll", ExactSpelling:=True)>
Public Shared Function NetDfsGetInfo(
<MarshalAs(UnmanagedType.LPWStr)> DfsEntryPath As String, ' LPWSTR
<MarshalAs(UnmanagedType.LPWStr)> ServerName As String, ' LPWSTR optional
<MarshalAs(UnmanagedType.LPWStr)> ShareName As String, ' LPWSTR optional
Level As UInteger, ' DWORD
Buffer As IntPtr ' BYTE** out
) As UInteger
End Function' DfsEntryPath : LPWSTR
' ServerName : LPWSTR optional
' ShareName : LPWSTR optional
' Level : DWORD
' Buffer : BYTE** out
Declare PtrSafe Function NetDfsGetInfo Lib "netapi32" ( _
ByVal DfsEntryPath As LongPtr, _
ByVal ServerName As LongPtr, _
ByVal ShareName As LongPtr, _
ByVal Level As Long, _
ByVal Buffer As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
NetDfsGetInfo = ctypes.windll.netapi32.NetDfsGetInfo
NetDfsGetInfo.restype = wintypes.DWORD
NetDfsGetInfo.argtypes = [
wintypes.LPCWSTR, # DfsEntryPath : LPWSTR
wintypes.LPCWSTR, # ServerName : LPWSTR optional
wintypes.LPCWSTR, # ShareName : LPWSTR optional
wintypes.DWORD, # Level : DWORD
ctypes.c_void_p, # Buffer : BYTE** out
]require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('NETAPI32.dll')
NetDfsGetInfo = Fiddle::Function.new(
lib['NetDfsGetInfo'],
[
Fiddle::TYPE_VOIDP, # DfsEntryPath : LPWSTR
Fiddle::TYPE_VOIDP, # ServerName : LPWSTR optional
Fiddle::TYPE_VOIDP, # ShareName : LPWSTR optional
-Fiddle::TYPE_INT, # Level : DWORD
Fiddle::TYPE_VOIDP, # Buffer : BYTE** out
],
-Fiddle::TYPE_INT)#[link(name = "netapi32")]
extern "system" {
fn NetDfsGetInfo(
DfsEntryPath: *mut u16, // LPWSTR
ServerName: *mut u16, // LPWSTR optional
ShareName: *mut u16, // LPWSTR optional
Level: u32, // DWORD
Buffer: *mut *mut u8 // BYTE** out
) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[DllImport("NETAPI32.dll")]
public static extern uint NetDfsGetInfo([MarshalAs(UnmanagedType.LPWStr)] string DfsEntryPath, [MarshalAs(UnmanagedType.LPWStr)] string ServerName, [MarshalAs(UnmanagedType.LPWStr)] string ShareName, uint Level, IntPtr Buffer);
"@
$api = Add-Type -MemberDefinition $sig -Name 'NETAPI32_NetDfsGetInfo' -Namespace Win32 -PassThru
# $api::NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, Buffer)#uselib "NETAPI32.dll"
#func global NetDfsGetInfo "NetDfsGetInfo" sptr, sptr, sptr, sptr, sptr
; NetDfsGetInfo DfsEntryPath, ServerName, ShareName, Level, varptr(Buffer) ; 戻り値は stat
; DfsEntryPath : LPWSTR -> "sptr"
; ServerName : LPWSTR optional -> "sptr"
; ShareName : LPWSTR optional -> "sptr"
; Level : DWORD -> "sptr"
; Buffer : BYTE** out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。#uselib "NETAPI32.dll" #cfunc global NetDfsGetInfo "NetDfsGetInfo" wstr, wstr, wstr, int, var ; res = NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, Buffer) ; DfsEntryPath : LPWSTR -> "wstr" ; ServerName : LPWSTR optional -> "wstr" ; ShareName : LPWSTR optional -> "wstr" ; Level : DWORD -> "int" ; Buffer : BYTE** out -> "var" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "NETAPI32.dll" #cfunc global NetDfsGetInfo "NetDfsGetInfo" wstr, wstr, wstr, int, sptr ; res = NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, varptr(Buffer)) ; DfsEntryPath : LPWSTR -> "wstr" ; ServerName : LPWSTR optional -> "wstr" ; ShareName : LPWSTR optional -> "wstr" ; Level : DWORD -> "int" ; Buffer : BYTE** out -> "sptr" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
; DWORD NetDfsGetInfo(LPWSTR DfsEntryPath, LPWSTR ServerName, LPWSTR ShareName, DWORD Level, BYTE** Buffer) #uselib "NETAPI32.dll" #cfunc global NetDfsGetInfo "NetDfsGetInfo" wstr, wstr, wstr, int, var ; res = NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, Buffer) ; DfsEntryPath : LPWSTR -> "wstr" ; ServerName : LPWSTR optional -> "wstr" ; ShareName : LPWSTR optional -> "wstr" ; Level : DWORD -> "int" ; Buffer : BYTE** out -> "var" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; DWORD NetDfsGetInfo(LPWSTR DfsEntryPath, LPWSTR ServerName, LPWSTR ShareName, DWORD Level, BYTE** Buffer) #uselib "NETAPI32.dll" #cfunc global NetDfsGetInfo "NetDfsGetInfo" wstr, wstr, wstr, int, intptr ; res = NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, varptr(Buffer)) ; DfsEntryPath : LPWSTR -> "wstr" ; ServerName : LPWSTR optional -> "wstr" ; ShareName : LPWSTR optional -> "wstr" ; Level : DWORD -> "int" ; Buffer : BYTE** out -> "intptr" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
netapi32 = windows.NewLazySystemDLL("NETAPI32.dll")
procNetDfsGetInfo = netapi32.NewProc("NetDfsGetInfo")
)
// DfsEntryPath (LPWSTR), ServerName (LPWSTR optional), ShareName (LPWSTR optional), Level (DWORD), Buffer (BYTE** out)
r1, _, err := procNetDfsGetInfo.Call(
uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(DfsEntryPath))),
uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(ServerName))),
uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(ShareName))),
uintptr(Level),
uintptr(Buffer),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // DWORDfunction NetDfsGetInfo(
DfsEntryPath: PWideChar; // LPWSTR
ServerName: PWideChar; // LPWSTR optional
ShareName: PWideChar; // LPWSTR optional
Level: DWORD; // DWORD
Buffer: Pointer // BYTE** out
): DWORD; stdcall;
external 'NETAPI32.dll' name 'NetDfsGetInfo';result := DllCall("NETAPI32\NetDfsGetInfo"
, "WStr", DfsEntryPath ; LPWSTR
, "WStr", ServerName ; LPWSTR optional
, "WStr", ShareName ; LPWSTR optional
, "UInt", Level ; DWORD
, "Ptr", Buffer ; BYTE** out
, "UInt") ; return: DWORD●NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, Buffer) = DLL("NETAPI32.dll", "dword NetDfsGetInfo(char*, char*, char*, dword, void*)")
# 呼び出し: NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, Buffer)
# DfsEntryPath : LPWSTR -> "char*"
# ServerName : LPWSTR optional -> "char*"
# ShareName : LPWSTR optional -> "char*"
# Level : DWORD -> "dword"
# Buffer : BYTE** out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。const std = @import("std");
extern "netapi32" fn NetDfsGetInfo(
DfsEntryPath: [*c]const u16, // LPWSTR
ServerName: [*c]const u16, // LPWSTR optional
ShareName: [*c]const u16, // LPWSTR optional
Level: u32, // DWORD
Buffer: [*c][*c]u8 // BYTE** out
) callconv(std.os.windows.WINAPI) u32;proc NetDfsGetInfo(
DfsEntryPath: WideCString, # LPWSTR
ServerName: WideCString, # LPWSTR optional
ShareName: WideCString, # LPWSTR optional
Level: uint32, # DWORD
Buffer: ptr uint8 # BYTE** out
): uint32 {.importc: "NetDfsGetInfo", stdcall, dynlib: "NETAPI32.dll".}pragma(lib, "netapi32");
extern(Windows)
uint NetDfsGetInfo(
const(wchar)* DfsEntryPath, // LPWSTR
const(wchar)* ServerName, // LPWSTR optional
const(wchar)* ShareName, // LPWSTR optional
uint Level, // DWORD
ubyte** Buffer // BYTE** out
);ccall((:NetDfsGetInfo, "NETAPI32.dll"), stdcall, UInt32,
(Cwstring, Cwstring, Cwstring, UInt32, Ptr{UInt8}),
DfsEntryPath, ServerName, ShareName, Level, Buffer)
# DfsEntryPath : LPWSTR -> Cwstring
# ServerName : LPWSTR optional -> Cwstring
# ShareName : LPWSTR optional -> Cwstring
# Level : DWORD -> UInt32
# Buffer : BYTE** out -> Ptr{UInt8}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。local ffi = require("ffi")
ffi.cdef[[
uint32_t NetDfsGetInfo(
const uint16_t* DfsEntryPath,
const uint16_t* ServerName,
const uint16_t* ShareName,
uint32_t Level,
uint8_t** Buffer);
]]
local netapi32 = ffi.load("netapi32")
-- netapi32.NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, Buffer)
-- DfsEntryPath : LPWSTR
-- ServerName : LPWSTR optional
-- ShareName : LPWSTR optional
-- Level : DWORD
-- Buffer : BYTE** out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。const koffi = require('koffi');
const lib = koffi.load('NETAPI32.dll');
const NetDfsGetInfo = lib.func('__stdcall', 'NetDfsGetInfo', 'uint32_t', ['str16', 'str16', 'str16', 'uint32_t', 'uint8_t *']);
// NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, Buffer)
// DfsEntryPath : LPWSTR -> 'str16'
// ServerName : LPWSTR optional -> 'str16'
// ShareName : LPWSTR optional -> 'str16'
// Level : DWORD -> 'uint32_t'
// Buffer : BYTE** out -> 'uint8_t *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("NETAPI32.dll", {
NetDfsGetInfo: { parameters: ["buffer", "buffer", "buffer", "u32", "pointer"], result: "u32" },
});
// lib.symbols.NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, Buffer)
// DfsEntryPath : LPWSTR -> "buffer"
// ServerName : LPWSTR optional -> "buffer"
// ShareName : LPWSTR optional -> "buffer"
// Level : DWORD -> "u32"
// Buffer : BYTE** out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
uint32_t NetDfsGetInfo(
const uint16_t* DfsEntryPath,
const uint16_t* ServerName,
const uint16_t* ShareName,
uint32_t Level,
uint8_t** Buffer);
C, "NETAPI32.dll");
// $ffi->NetDfsGetInfo(DfsEntryPath, ServerName, ShareName, Level, Buffer);
// DfsEntryPath : LPWSTR
// ServerName : LPWSTR optional
// ShareName : LPWSTR optional
// Level : DWORD
// Buffer : BYTE** 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 NetDfsGetInfo(
WString DfsEntryPath, // LPWSTR
WString ServerName, // LPWSTR optional
WString ShareName, // LPWSTR optional
int Level, // DWORD
Pointer Buffer // BYTE** out
);
}@[Link("netapi32")]
lib LibNETAPI32
fun NetDfsGetInfo = NetDfsGetInfo(
DfsEntryPath : UInt16*, # LPWSTR
ServerName : UInt16*, # LPWSTR optional
ShareName : UInt16*, # LPWSTR optional
Level : UInt32, # DWORD
Buffer : UInt8** # BYTE** out
) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef NetDfsGetInfoNative = Uint32 Function(Pointer<Utf16>, Pointer<Utf16>, Pointer<Utf16>, Uint32, Pointer<Uint8>);
typedef NetDfsGetInfoDart = int Function(Pointer<Utf16>, Pointer<Utf16>, Pointer<Utf16>, int, Pointer<Uint8>);
final NetDfsGetInfo = DynamicLibrary.open('NETAPI32.dll')
.lookupFunction<NetDfsGetInfoNative, NetDfsGetInfoDart>('NetDfsGetInfo');
// DfsEntryPath : LPWSTR -> Pointer<Utf16>
// ServerName : LPWSTR optional -> Pointer<Utf16>
// ShareName : LPWSTR optional -> Pointer<Utf16>
// Level : DWORD -> Uint32
// Buffer : BYTE** out -> Pointer<Uint8>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function NetDfsGetInfo(
DfsEntryPath: PWideChar; // LPWSTR
ServerName: PWideChar; // LPWSTR optional
ShareName: PWideChar; // LPWSTR optional
Level: DWORD; // DWORD
Buffer: Pointer // BYTE** out
): DWORD; stdcall;
external 'NETAPI32.dll' name 'NetDfsGetInfo';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "NetDfsGetInfo"
c_NetDfsGetInfo :: CWString -> CWString -> CWString -> Word32 -> Ptr Word8 -> IO Word32
-- DfsEntryPath : LPWSTR -> CWString
-- ServerName : LPWSTR optional -> CWString
-- ShareName : LPWSTR optional -> CWString
-- Level : DWORD -> Word32
-- Buffer : BYTE** out -> Ptr Word8
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let netdfsgetinfo =
foreign "NetDfsGetInfo"
((ptr uint16_t) @-> (ptr uint16_t) @-> (ptr uint16_t) @-> uint32_t @-> (ptr uint8_t) @-> returning uint32_t)
(* DfsEntryPath : LPWSTR -> (ptr uint16_t) *)
(* ServerName : LPWSTR optional -> (ptr uint16_t) *)
(* ShareName : LPWSTR optional -> (ptr uint16_t) *)
(* Level : DWORD -> uint32_t *)
(* Buffer : BYTE** out -> (ptr uint8_t) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library netapi32 (t "NETAPI32.dll"))
(cffi:use-foreign-library netapi32)
(cffi:defcfun ("NetDfsGetInfo" net-dfs-get-info :convention :stdcall) :uint32
(dfs-entry-path (:string :encoding :utf-16le)) ; LPWSTR
(server-name (:string :encoding :utf-16le)) ; LPWSTR optional
(share-name (:string :encoding :utf-16le)) ; LPWSTR optional
(level :uint32) ; DWORD
(buffer :pointer)) ; BYTE** out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $NetDfsGetInfo = Win32::API::More->new('NETAPI32',
'DWORD NetDfsGetInfo(LPCWSTR DfsEntryPath, LPCWSTR ServerName, LPCWSTR ShareName, DWORD Level, LPVOID Buffer)');
# my $ret = $NetDfsGetInfo->Call($DfsEntryPath, $ServerName, $ShareName, $Level, $Buffer);
# DfsEntryPath : LPWSTR -> LPCWSTR
# ServerName : LPWSTR optional -> LPCWSTR
# ShareName : LPWSTR optional -> LPCWSTR
# Level : DWORD -> DWORD
# Buffer : BYTE** out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。