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

IADsFileShare

COMIDispatch (デュアル)
📘 Microsoft Learn (日本語) · English
✅ IDispatch を実装(デュアルインターフェース)。HSP では comobj 経由でメソッド名による遅延バインド呼び出しができます(vtableインデックス不要)。
IIDeb6dcaf0-4b83-11cf-a995-00aa006bc149継承元IADs呼び出し名前(IDispatch) または vtbl自前メソッド開始 vtbl20

公式ドキュメント

IADsFileShare インターフェースは、IADs を継承するデュアルインターフェースです。ネットワーク上に公開されたファイル共有を表すために設計されています。ファイル共有ポイントに関するデータへのアクセスや公開を行うには、IADsFileShare のメソッドを呼び出します。

解説(Remarks)

IADsFileShare は WinNT システムプロバイダーでのみサポートされます。WinNT プロバイダーを使用する場合、以下のコード例の "LanmanServer" を "FPNW" に置き換えることで、FPNW 共有にバインドすることもできます。

WinNT システムプロバイダーを使用してファイル共有にバインドするには、ホストマシン上のファイルサービス "LanmanServer" に明示的にバインドしてからコンテナーを列挙して目的のファイル共有に到達するか、ファイル共有に直接バインドします。

例

次のコード例は、ファイルサービスにバインドし、コンテナーを列挙してそのコンテナー内の共有名を表示する方法を示しています。

Dim fs as IADsFileService
Dim share As IADsFileShare
On Error GoTo Cleanup

Set fs = GetObject("WinNT://aComputer/LanmanServer")

For Each share In fs
    MsgBox("Share: " & share.name)
Next share

Cleanup:
    If (Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set fs = Nothing
    Set share = Nothing

次のコード例は、ファイル共有に直接バインドする方法を示しています。

Dim fs as IADsFileShare
On Error Resume Next
Set fs = GetObject("WinNT://aComputer/LanmanServer/_file_share_name_")

メソッド 9

vtbl = vtable インデックス(0始まり)。IDispatch 実装のため HSP ではメソッド名でも呼べます(上記)。低レベルの index 呼び出し用に vtbl も掲載。0〜2 は IUnknown。

vtbl 20 HRESULT get_CurrentUserCount(INT* retval)
retvalINT*out現在この共有に接続中のユーザー数を受け取る出力先。INT*で返る(読取専用)。
vtbl 21 HRESULT get_Description(LPWSTR* retval)
retvalLPWSTR*outファイル共有の説明文字列を受け取る出力先。BSTRで返る。
vtbl 22 HRESULT put_Description(LPWSTR bstrDescription)
bstrDescriptionLPWSTRin設定するファイル共有の説明文字列をBSTRで指定する。
vtbl 23 HRESULT get_HostComputer(LPWSTR* retval)
retvalLPWSTR*out共有を提供するホストコンピューターのADsパスを受け取る出力先。BSTRで返る。
vtbl 24 HRESULT put_HostComputer(LPWSTR bstrHostComputer)
bstrHostComputerLPWSTRin設定するホストコンピューターのADsパスをBSTRで指定する。
vtbl 25 HRESULT get_Path(LPWSTR* retval)
retvalLPWSTR*out共有されるフォルダーのローカルパスを受け取る出力先。BSTRで返る。
vtbl 26 HRESULT put_Path(LPWSTR bstrPath)
bstrPathLPWSTRin設定する共有フォルダーのローカルパスをBSTRで指定する。
vtbl 27 HRESULT get_MaxUserCount(INT* retval)
retvalINT*outこの共有への同時接続最大ユーザー数を受け取る出力先。INT*で返る。
vtbl 28 HRESULT put_MaxUserCount(INT lnMaxUserCount)
lnMaxUserCountINTin設定する同時接続最大ユーザー数を指定する。
出典・ライセンス: 上記「公式ドキュメント」の内容は Microsoft の Win32 API ドキュメント(MicrosoftDocs/sdk-api)を日本語に翻訳・改変したものです。© Microsoft Corporation. CC BY 4.0 で提供。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)

HSP用 COM定義

#usecom / #comfunc によるHSPのCOM呼び出し定義。数字は vtbl インデックス(0始まり)。クラスIDが無い場合 #usecom の末尾は "{}"、ある場合は "{CLSID}"。

出力引数: 
#define global IID_IADsFileShare "{EB6DCAF0-4B83-11CF-A995-00AA006BC149}"
#usecom global IADsFileShare IID_IADsFileShare "{}"
#comfunc global IADsFileShare_get_CurrentUserCount  20 var
#comfunc global IADsFileShare_get_Description       21 var
#comfunc global IADsFileShare_put_Description       22 wstr
#comfunc global IADsFileShare_get_HostComputer      23 var
#comfunc global IADsFileShare_put_HostComputer      24 wstr
#comfunc global IADsFileShare_get_Path              25 var
#comfunc global IADsFileShare_put_Path              26 wstr
#comfunc global IADsFileShare_get_MaxUserCount      27 var
#comfunc global IADsFileShare_put_MaxUserCount      28 int
; ※数字は vtbl インデックス(0始まり)。0/1/2 は IUnknown(QueryInterface/AddRef/Release)。
; ※このインターフェースは直接 CoCreateInstance するクラスIDが無いため "{}"(他メソッド/アクティベーションで取得)。
; ※出力/バッファ引数は var(変数直渡し)。varptr 方式にも切替可。
; ※IDispatch 実装。HSP では comobj 経由でメソッド名による呼び出しも可能(vtbl 不要)。