IADsFileShare, méthodes de propriété

Les méthodes de propriété de l’interface IADsFileshare obtiennent ou définissent les propriétés décrites dans le tableau suivant. Pour plus d’informations, consultez Méthodes de propriété d’interface.

Propriétés

CurrentUserCount

Nombre d’utilisateurs connectés au partage.

Type d'accès : Lecture seule

Type de données de script : LONG

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

Description

Description du partage de fichiers.

Type d’accès : Lecture/écriture

Type de données de script : BSTR

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

HostComputer

Référence ADsPath à l’ordinateur hôte.

Type d’accès : Lecture/écriture

Type de données de script : BSTR

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

MaxUserCount

Nombre maximal d’utilisateurs autorisés à accéder au partage à la fois.

Type d'accès : Lecture seule

Type de données de script : LONG

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

Chemin d’accès

Chemin d’accès du système de fichiers au répertoire partagé.

Type d’accès : Lecture/écriture

Type de données de script : BSTR

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

Exemples

Pour accéder aux propriétés des partages de fichiers sur un ordinateur, vous devez d’abord établir une liaison avec le « LanmanServer » sur l’ordinateur. L’exemple de code suivant montre comment configurer la description et le nombre maximal d’utilisateurs autorisés pour tous les partages de fichiers publics sur l’ordinateur, nommés « myMachine », dans le domaine par défaut.

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’exemple de code suivant montre comment faire du répertoire C:\MyFolder existant un partage de fichiers public.

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’exemple de code suivant fait du répertoire C:\MyFolder existant un partage de fichiers public.

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

Spécifications

Condition requise	Valeur
Client minimal pris en charge	Windows Vista
Serveur minimal pris en charge	Windows Server 2008
En-tête	Iads.h
DLL	Activeds.dll
IID	IID_IADsFileShare est défini comme EB6DCAF0-4B83-11CF-A995-00AA006BC149

Voir aussi

IADsService

IADsFileShare

Méthodes de propriété d’interface