通过

IADsFileShare 属性方法

  • 项目

IADsFileshare 接口的属性方法获取或设置下表中所述的属性。 有关详细信息，请参阅 Interface 属性方法。

属性

CurrentUserCount

连接到共享的用户数。

访问类型：只读

脚本数据类型： LONG

// C++ method syntax
HRESULT get_CurrentUserCount(
  [out] LONG* plCurrentUserCount
);

描述

文件共享的说明。

访问类型：读/写

脚本数据类型： BSTR

// C++ method syntax
HRESULT get_Description(
  [out] BSTR* pbstrDescription
);
HRESULT put_Description(
  [in] BSTR bstrDescription
);

HostComputer

对主机的 ADsPath 引用。

访问类型：读/写

脚本数据类型： BSTR

// C++ method syntax
HRESULT get_HostComputer(
  [out] BSTR* pbstrHostComputer
);
HRESULT put_HostComputer(
  [in] BSTR bstrHostComputer
);

MaxUserCount

一次允许访问共享的最大用户数。

访问类型：只读

脚本数据类型： LONG

// C++ method syntax
HRESULT get_MaxUserCount(
  [out] LONG* plMaxUserCount
);

Path

共享目录的文件系统路径。

访问类型：读/写

脚本数据类型： BSTR

// C++ method syntax
HRESULT get_Path(
  [out] BSTR* pbstrPath
);
HRESULT put_Path(
  [in] BSTR bstrPath
);

示例

若要访问计算机上的文件共享的属性，必须先绑定到计算机上的“LanmanServer”。 下面的代码示例演示如何在默认域中设置计算机上所有公共文件共享（名为“myMachine”）的说明和允许的最大用户数。

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

Set fs = GetObject("WinNT://myMachine/LanmanServer")
If (fs.class = "FileService") Then
    For Each share In fs
        share.description = share.name & " is my working folder."
        share.MaxUserCount =  10
        share.SetInfo
    Next share
End if

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

下面的代码示例演示如何使现有 C：\MyFolder 目录成为公共文件共享。

Dim fs As IADsFileShare
Dim cont As IADsContainer
On Error GoTo Cleanup
 
Set cont = GetObject("WinNT://yourDomain/yourMachineName/LanmanServer")
 
Set fs = cont.Create("FileShare", "Public")
Debug.Print fs.Class
fs.Path = "C:\MyFolder"
fs.SetInfo

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

下面的代码示例使现有 C：\MyFolder 目录成为公共文件共享。

IADsFileShare *pShare = NULL;
IADsContainer *pCont = NULL;
LPWSTR adsPath = L"WinNT://yourMachineName/LanmanServer";
HRESULT hr = S_OK;

hr = ADsGetObject(adsPath, IID_IADsContainer,(void**)&pCont);
if(FAILED(hr)) {goto Cleanup;}

hr = pCont->Create(CComBSTR("FileShare"), CComBSTR("Public"), (IDispatch**)&pShare);

if(FAILED(hr)) {goto Cleanup;}

hr = pShare->put_Path(CComBSTR("c:\\public"));

if(FAILED(hr)) {goto Cleanup;}

hr = pShare->SetInfo();

Cleanup:
    if(pCont) pCont->Release();
    if(pShare) pShare->Release();

要求

要求 值
最低受支持的客户端
 Windows Vista
最低受支持的服务器
 Windows Server 2008
标头
Iads.h
DLL
Activeds.dll
IID
 IID_IADsFileShare定义为 EB6DCAF0-4B83-11CF-A995-00AA006BC149

另请参阅

IADsService

IADsFileShare

Interface 属性方法