Métodos da propriedade IADsFileShare

Os métodos de propriedade da interface IADsFileshare obtêm ou definem as propriedades descritas na tabela a seguir. Para obter mais informações, consulte Métodos de propriedade de interface.

Propriedades

CurrentUserCount

O número de usuários conectados ao compartilhamento.

Tipo de acesso: Somente leitura

Tipo de dados de script: LONG

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

Descrição

A descrição do compartilhamento de arquivos.

Tipo de acesso: leitura/gravação

Tipo de dados de script: BSTR

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

HostComputer

Uma referência do ADsPath ao computador host.

Tipo de acesso: leitura/gravação

Tipo de dados de script: BSTR

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

MaxUserCount

O número máximo de usuários com permissão para acessar o compartilhamento ao mesmo tempo.

Tipo de acesso: Somente leitura

Tipo de dados de script: LONG

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

Caminho

O caminho do sistema de arquivos para o diretório compartilhado.

Tipo de acesso: leitura/gravação

Tipo de dados de script: BSTR

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

Exemplos

Para acessar as propriedades dos compartilhamentos de arquivos em um computador, primeiro você deve associar ao "LanmanServer" no computador. O exemplo de código a seguir mostra como configurar a descrição e o número máximo de usuários permitidos para todos os compartilhamentos de arquivos públicos no computador, chamados de "myMachine", no domínio padrão.

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

O exemplo de código a seguir mostra como tornar o diretório C:\MyFolder existente um compartilhamento de arquivos público.

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

O exemplo de código a seguir torna o diretório C:\MyFolder existente um compartilhamento de arquivos público.

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

Requisitos

Confira também

IADsService

IADsFileShare

Métodos de propriedade interface