IADsFileShare-Eigenschaftsmethoden

Die Eigenschaftenmethoden der IADsFileshare-Schnittstelle rufen die in der folgenden Tabelle beschriebenen Eigenschaften ab oder legen sie fest. Weitere Informationen finden Sie unter Schnittstelleneigenschaftenmethoden.

Eigenschaften

CurrentUserCount

Die Anzahl der Benutzer, die mit der Freigabe verbunden sind.

Zugriffstyp: Schreibgeschützt

Skriptdatentyp: LONG

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

Beschreibung

Die Beschreibung der Dateifreigabe.

Zugriffstyp: Lese-/Schreibzugriff

Skriptdatentyp: BSTR

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

HostComputer

Ein ADsPath-Verweis auf den Hostcomputer.

Zugriffstyp: Lese-/Schreibzugriff

Skriptdatentyp: BSTR

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

MaxUserCount

Die maximale Anzahl von Benutzern, die gleichzeitig auf die Freigabe zugreifen dürfen.

Zugriffstyp: Schreibgeschützt

Skriptdatentyp: LONG

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

Pfad

Der Dateisystempfad zum freigegebenen Verzeichnis.

Zugriffstyp: Lese-/Schreibzugriff

Skriptdatentyp: BSTR

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

Beispiele

Um auf die Eigenschaften von Dateifreigaben auf einem Computer zugreifen zu können, müssen Sie zuerst eine Bindung an den "LanmanServer" auf dem Computer herstellen. Das folgende Codebeispiel zeigt, wie Die Beschreibung und die maximale Anzahl zulässiger Benutzer für alle öffentlichen Dateifreigaben auf dem Computer mit dem Namen "myMachine" in der Standarddomäne eingerichtet werden.

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

Im folgenden Codebeispiel wird gezeigt, wie Sie das vorhandene Verzeichnis "C:\MyFolder" zu einer öffentlichen Dateifreigabe machen.

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

Im folgenden Codebeispiel wird das vorhandene Verzeichnis C:\MyFolder zu einer öffentlichen Dateifreigabe.

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

Anforderungen

Anforderung	Wert
Unterstützte Mindestversion (Client)	Windows Vista
Unterstützte Mindestversion (Server)	WindowsServer 2008
Header	Iads.h
DLL	Activeds.dll
IID	IID_IADsFileShare ist definiert als EB6DCAF0-4B83-11CF-A995-00AA006BC149

Siehe auch

IADsService

IADsFileShare

Methoden der Interface-Eigenschaft