マイナーでもいいよね??

殆どVB系、でも .NET じゃない VB は知らないよん

目次

Blog 利用状況

書庫

日記カテゴリ

ローカルグループ用のクラス

ローカルのグループを表す LocalGroup クラスは DirectoryObject クラスを継承し IGroup インターフェイスを実装します。

ローカルグループは Windows アプリでしか使わないので、単に IGroup インターフェイスを実装しただけのクラスです。

 

VB

Public NotInheritable Class LocalGroup

  Inherits DirectoryObject

  Implements IGroup

 

#Region " フレンドコンストラクタ "

  'DirectoryEntry を指定して LocalGroup クラスの新しいインスタンスを初期化します

  Friend Sub New(entry As DirectoryEntry)

    MyBase.New(entry)

  End Sub

#End Region

 

#Region " パブリックプロパティ "

  'Entry の ADSI User オブジェクトを取得します。

  Public ReadOnly Property Native As IADsGroup Implements IGroup.Native

    Get

      If MyBase.IsDisposed Then

        Throw New ObjectDisposedException(Me.GetType().Name)

      End If

      Return DirectCast(MyBase.Entry.NativeObject, IADsGroup)

    End Get

  End Property

#End Region

 

C#

public sealed class LocalGroup : DirectoryObject, IGroup

{

  #region インターナルコンストラクタ

  //DirectoryEntry を指定して LocalGroup クラスの新しいインスタンスを初期化します。

  internal LocalGroup(DirectoryEntry entry)

    : base(entry)

  {

  }

  #endregion

 

  #region パブリックプロパティ

  //Entry の ADSI Group オブジェクトを取得します。

  public IADsGroup Native

  {

    get

    {

      if (base.IsDisposed)

      {

        throw new ObjectDisposedException(this.GetType().Name);

      }

      return (IADsGroup)base.Entry.NativeObject;

    }

  }

  #endregion

投稿日時 : 2013年8月28日 22:15

コメントを追加

No comments posted yet.
タイトル
名前
URL
コメント