Методы свойств IADsFileShare

Методы свойств интерфейса IADsFileshare получают или задают свойства, описанные в следующей таблице. Дополнительные сведения см. в разделе Методы свойств интерфейса.

Свойства

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
);

Путь

Путь файловой системы к общему каталогу.

Тип доступа: чтение и запись

Тип данных скрипта: 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();

Требования

См. также раздел

IADsService

IADsFileShare

Методы свойств интерфейса