Métodos de propiedad IADsFileShare

Los métodos de propiedad de la interfaz IADsFileshare obtienen o establecen las propiedades descritas en la tabla siguiente. Para obtener más información, vea Métodos de propiedad de interfaz.

Propiedades

CurrentUserCount

Número de usuarios conectados al recurso compartido.

Tipo de acceso: solo lectura

Tipo de datos de scripting: LONG

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

Descripción

Descripción del recurso compartido de archivos.

Tipo de acceso: lectura/escritura

Tipo de datos de scripting: BSTR

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

HostComputer

Referencia de ADsPath al equipo host.

Tipo de acceso: lectura/escritura

Tipo de datos de scripting: BSTR

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

MaxUserCount

El número máximo de usuarios que pueden acceder al recurso compartido al mismo tiempo.

Tipo de acceso: solo lectura

Tipo de datos de scripting: LONG

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

Ruta de acceso

Ruta de acceso del sistema de archivos al directorio compartido.

Tipo de acceso: lectura/escritura

Tipo de datos de scripting: BSTR

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

Ejemplos

Para acceder a las propiedades de los recursos compartidos de archivos en un equipo, primero debe enlazar a "LanmanServer" en el equipo. En el ejemplo de código siguiente se muestra cómo configurar la descripción y el número máximo de usuarios permitidos para todos los recursos compartidos de archivos públicos del equipo, denominado "myMachine", en el dominio predeterminado.

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

En el ejemplo de código siguiente se muestra cómo convertir el directorio C:\MyFolder existente en un recurso compartido de archivos 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

En el ejemplo de código siguiente se convierte el directorio C:\MyFolder existente en un recurso compartido de archivos 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

Requisito	Value
Cliente mínimo compatible	Windows Vista
Servidor mínimo compatible	Windows Server 2008
Encabezado	Iads.h
Archivo DLL	Activeds.dll
IID	IID_IADsFileShare se define como EB6DCAF0-4B83-11CF-A995-00AA006BC149

Consulte también

IADsService

IADsFileShare

Métodos de propiedad interface