Metodi della proprietà IADsFileShare

I metodi di proprietà dell'interfaccia IADsFileshare ottengono o impostano le proprietà descritte nella tabella seguente. Per altre informazioni, vedere Metodi di proprietà dell'interfaccia.

Proprietà

CurrentUserCount

Numero di utenti connessi alla condivisione.

Tipo di accesso: sola lettura

Tipo di dati scripting: LONG

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

Descrizione

Descrizione della condivisione file.

Tipo di accesso: lettura/scrittura

Tipo di dati scripting: BSTR

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

HostComputer

Riferimento ADsPath al computer host.

Tipo di accesso: lettura/scrittura

Tipo di dati scripting: BSTR

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

MaxUserCount

Numero massimo di utenti autorizzati ad accedere alla condivisione contemporaneamente.

Tipo di accesso: sola lettura

Tipo di dati scripting: LONG

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

Percorso

Percorso del file system della directory condivisa.

Tipo di accesso: lettura/scrittura

Tipo di dati scripting: BSTR

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

Esempio

Per accedere alle proprietà delle condivisioni file in un computer, è innanzitutto necessario eseguire l'associazione a "LanmanServer" nel computer. Nell'esempio di codice seguente viene illustrato come configurare la descrizione e il numero massimo di utenti consentiti per tutte le condivisioni file pubbliche nel computer, denominato "myMachine", nel dominio predefinito.

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

L'esempio di codice seguente illustra come rendere la directory C:\MyFolder esistente una condivisione file pubblica.

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

L'esempio di codice seguente rende la directory C:\MyFolder esistente una condivisione file pubblica.

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

Requisiti

Requisito	Valore
Client minimo supportato	Windows Vista
Server minimo supportato	Windows Server 2008
Intestazione	Iads.h
DLL	Activeds.dll
IID	IID_IADsFileShare è definito come EB6DCAF0-4B83-11CF-A995-00AA006BC149

Vedi anche

IADsService

IADsFileShare

Metodi delle proprietà Interface