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
-
-
Type d'accès : Lecture seule
-
Type de données de script : LONG
-
// C++ method syntax HRESULT get_CurrentUserCount( [out] LONG* plCurrentUserCount );
Nombre d’utilisateurs connectés au partage.
-
-
Description
-
-
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 );
Description du partage de fichiers.
-
-
HostComputer
-
-
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 );
Référence ADsPath à l’ordinateur hôte.
-
-
MaxUserCount
-
-
Type d'accès : Lecture seule
-
Type de données de script : LONG
-
// C++ method syntax HRESULT get_MaxUserCount( [out] LONG* plMaxUserCount );
Nombre maximal d’utilisateurs autorisés à accéder au partage à la fois.
-
-
Chemin d’accès
-
-
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 );
Chemin d’accès du système de fichiers au répertoire partagé.
-
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 |
|
DLL |
|
IID |
IID_IADsFileShare est défini comme EB6DCAF0-4B83-11CF-A995-00AA006BC149 |
Voir aussi
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour