IADsFileShare 속성 메서드

IADsFileshare 인터페이스의 속성 메서드는 다음 표에 설명된 속성을 얻거나 설정합니다. 자세한 내용은 인터페이스 속성 메서드를 참조하세요.

속성

CurrentUserCount

공유에 연결된 사용자 수입니다.

액세스 형식: 읽기 전용

스크립팅 데이터 형식: LONG

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

설명

파일 공유에 대한 설명입니다.

액세스 형식: 읽기/쓰기

데이터 형식 스크립팅: BSTR

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

HostComputer

호스트 컴퓨터에 대한 ADsPath 참조입니다.

액세스 형식: 읽기/쓰기

데이터 형식 스크립팅: BSTR

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

MaxUserCount

공유에 한 번에 액세스할 수 있는 최대 사용자 수입니다.

액세스 형식: 읽기 전용

스크립팅 데이터 형식: LONG

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

Path

공유 디렉터리에 대한 파일 시스템 경로입니다.

액세스 형식: 읽기/쓰기

데이터 형식 스크립팅: BSTR

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

예제

컴퓨터의 파일 공유 속성에 액세스하려면 먼저 컴퓨터의 "LanmanServer"에 바인딩해야 합니다. 다음 코드 예제에서는 기본 도메인에서 "myMachine"으로 명명된 컴퓨터의 모든 공용 파일 공유에 대해 설명 및 허용되는 최대 사용자 수를 설정하는 방법을 보여줍니다.

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

다음 코드 예제에서는 기존 C:\MyFolder 디렉터리를 공용 파일 공유로 만드는 방법을 보여줍니다.

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

다음 코드 예제에서는 기존 C:\MyFolder 디렉터리를 공용 파일 공유로 만듭니다.

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

요구 사항

추가 정보

IADsService

IADsFileShare

Interface 속성 메서드