Windows Server フェールオーバー クラスターでの IIS World Wide Web Publishing Service の構成

この記事では、Windows Server フェールオーバー クラスター (WSFC) で Microsoft インターネット インフォメーション サービス (IIS) World Wide Web Publishing Service (W3SVC) を構成する方法について説明します。

元の製品バージョン: Windows Server 2008 以降のバージョン、インターネット インフォメーション サービス 8.0 以降のバージョン
元の KB 番号: 970759

概要

この記事の手順は、World Wide Web Publishing Service にのみ適用されます。 フェールオーバー クラスターで FTP 発行サービスを構成する方法については、「 Windows Server フェールオーバー クラスターで IIS 用 FTP を構成する方法」を参照してください。

詳細

以前のバージョンのインターネット インフォメーション サービスでは、Microsoft クラスタリング インフラストラクチャを使用して高可用性 Web サーバー インスタンスをサポートするための汎用リソース モニター コンポーネントが提供されました。 ただし、このようなソリューションの可能性を完全に実現するには、カスタム コードが必要でした。 また、Microsoft が提供した汎用スクリプトは、顧客のニーズを満たしませんでした。 Windows Server フェールオーバー クラスタリングを使用するクラスター環境で IIS 7.0 以降のバージョンを構成するには、カスタム (スクリプト) コードを使用して、このような高可用性シナリオを有効にする必要があります。 これを行うと、ユーザーは要件を満たすようにセットアップをカスタマイズできます。 これにより、Web アプリケーションの高可用性統合を完全に制御できます。 さらに、IIS 7.0 で導入された管理と監視用のスクリプト インターフェイスは、以前に提供されたスクリプトよりも豊富な環境を提供します。

注:

IIS 7.0 のインストール ファイルには、IIS 6.0 で IIS クラスター管理タスクに使用される Clusweb.vbsClusftp.vbs スクリプト ファイルが誤って含まれています。 IIS 7.0 以降のバージョンでは、これらのスクリプトを使用しないでください。

管理者は、フェールオーバー クラスタリングを使用するのではなく、IIS 7.0 以降を実行する複数のサーバーを使用する Web アプリケーションのスケーラビリティと可用性を向上させるために、ネットワーク負荷分散 (NLB) の使用を主な方法として慎重に評価することをお勧めします。 NLB の利点の 1 つは、すべてのサーバーが受信 HyperText Transfer Protocol (HTTP) 要求の同時処理に積極的に参加できることです。 もう 1 つの利点は、NLB IIS 環境では、Web アプリケーションの高可用性を提供しながら、ローリング更新とロールバックをサポートする方がはるかに簡単になることです。 NLB 環境での IIS 7.0 以降のバージョンの使用の詳細については、次の記事を参照してください。

IIS サービスをクラスタリングすることによって IIS をクラスタリングすることは、Web アプリケーションの高可用性ソリューションが常に保証されるとは限らないことを考慮することが重要です。 IIS サービス (特に WWW サービス) が稼働している可能性がある一方で、特定のアプリケーション プールのホスティング プロセスが終了したか、アプリケーションが内部サーバーの HTTP エラーをスローしている可能性があります。 Web アプリケーションをクラスタリングし、カスタム スクリプトを使用して正常性を監視することは、フェールオーバー クラスタリングを使用して高可用性 IIS クラスターを実現するための正しく推奨される方法です。 アプリケーション プールの状態を監視して、起動されているかどうかを判断するサンプル スクリプトを次に示します。

フェールオーバー クラスタリングを使用して IIS 7.0 以降のバージョンの Web サーバーの高可用性を構成するには、次の手順に従います。 手順 3 から 7 については、以下で詳しく説明します。 この記事の後半のサンプル スクリプトは、IIS 7.0 以降のバージョンの例として使用できます。

  1. すべてのクラスター ノードに Web サーバー ロールをインストールします。 詳細については、「 IIS 7 展開ガイド」を参照してください。
  2. すべてのクラスター ノードにフェールオーバー クラスタリング機能をインストールし、クラスターを作成します。 詳細については、「 フェールオーバー クラスターのデプロイ ガイド」を参照してください。
  3. IIS 共有構成に使用するファイル共有を設定します。
  4. すべてのクラスター ノードで IIS 共有構成を構成します。
  5. すべてのクラスター ノードで共有構成用に IIS オフライン ファイルを構成します。
  6. Web サイト (関連付けられているアプリケーション プールを含む) を構成し、1 つのクラスター ノード上のコンテンツの場所を指定します。
  7. フェールオーバー クラスタリングで汎用スクリプトを作成して、Web サイトの高可用性を構成します。

IIS 共有構成に使用するファイル共有を設定する

  1. IIS 共有構成に使用される共有にアクセスするユーザーを作成します。
  2. ファイル共有を作成します。 この共有は、すべてのクラスター ノード上の IIS 間で共有される IIS 共有構成を格納するために使用されます。 複数のオプションがあります。
  3. 手順 2 で作成した共有に対するアクセス許可を設定します。 手順 1 で作成したユーザーに、ファイル共有と NTFS アクセス許可に対するフル コントロールのアクセス許可を付与します。
  4. すべてのクラスター ノードがファイル共有を参照できることを確認します。 ファイル共有のパスは です \\<fileserver>\<share>

すべてのクラスター ノードで IIS 共有構成を構成する

注:

の権限がないため、Windows 2008 Server の IIS 共有構成に Application Host Helper Service問題があります。 共有構成を機能させるには、Windows 2008 Server で IIS 共有構成を設定するときに、次の手順に従う必要があります。

  1. 管理コマンド プロンプトを開きます。

  2. 以下のコマンドを実行します。

    net stop apphostsvc
    
  3. 以下のコマンドを実行します。

    sc privs apphostsvc SeChangeNotifyPrivilege/SeTcbPrivilege/SeImpersonatePrivilege
    
  4. 以下のコマンドを実行します。

    net start apphostsvc
    

クラスター内の各 Windows 2008 Server でこれらの手順を完了したら、このセクションで説明するように IIS 共有構成の設定を続行します。

いずれかのクラスター ノードで、共有構成をファイル共有にエクスポートします。

  1. [管理ツール] に移動し、[インターネット インフォメーション サービス (IIS) マネージャー] を選択します。
  2. 左側のウィンドウで、 サーバー名 ノードを選択します。
  3. [ 共有構成 ] アイコンをダブルクリックします。
  4. [共有構成] ページで、[操作] ウィンドウ (右側のウィンドウ) で [構成のエクスポート] を選択して、構成ファイルをローカル コンピューターから別の場所にエクスポートします。
  5. [ 構成のエクスポート ] ダイアログ ボックスで、[物理パス] ボックスにファイル共有 (\\<fileserver>\<share>) の パス を入力します。
  6. [ 名前を付けて接続] を選択し、共有構成が格納されている共有にアクセスできるユーザー アカウントのユーザー名とパスワードを入力し、[OK] を選択 します。 このアカウントは、共有へのアクセスに使用されます。 ドメイン管理者ではない制限付き Active Directory アカウントを使用する必要があります。
  7. [ 構成のエクスポート ] ダイアログ ボックスで、暗号化キーの保護に使用するパスワードを入力し、[OK] を選択します
  8. [共有構成] ページで、[共有構成のチェックを有効にする] ボックスを選択します。
  9. 前に入力した物理パス、ユーザー アカウント、パスワードを入力し、[操作] ウィンドウで [適用] を選択します。
  10. [ 暗号化キーのパスワード ] ダイアログ ボックスで、前に設定した暗号化キー のパスワードを入力し、[ OK] を選択します
  11. [ 共有構成 ] ダイアログ ボックスで、[ OK] を選択します
  12. [OK] を選択します。

他の各クラスター ノードで、ファイル共有にエクスポートした共有構成を使用します。

  1. [管理ツール] に移動し、[インターネット インフォメーション サービス (IIS) マネージャー] を選択します。
  2. サーバー名ノードを選択します。
  3. [ 共有構成 ] アイコンをダブルクリックします。
  4. [共有構成] ページで、[共有構成のチェックを有効にする] ボックスを選択します。
  5. ファイル共有 (\\<fileserver>\<share>)、ユーザー アカウント、前に入力したパスワードの物理パスを入力し、[操作] ウィンドウで [適用] を選択します。
  6. [ 暗号化キーのパスワード ] ダイアログ ボックスで、前に設定した暗号化キー のパスワードを入力し、[ OK] を選択します
  7. [ 共有構成 ] ダイアログ ボックスで、[ OK] を選択します
  8. [OK] を選択します。

注:

IIS で共有構成を設定する方法の詳細については、「 共有構成」を参照してください。

すべてのクラスター ノードで共有構成用に IIS オフライン ファイルを構成する

各クラスター ノードで、[オフライン ファイル] を有効にします。

  1. デスクトップ エクスペリエンスをインストールする

    1. [管理ツール] に移動し、[サーバー マネージャー] を選択します。
    2. 左側のウィンドウで、[機能] を選択 します
    3. 右側のウィンドウで [機能の追加] を選択します。
    4. Windows バージョンに応じて、次のいずれかの操作を行います。
      • Windows Server 2016については、「デスクトップ エクスペリエンスを使用したサーバーのインストール」を参照してください。
      • Windows Server 2102 および 2012 R2 の場合、機能一覧の [ユーザー インターフェイスとインフラストラクチャ] で [デスクトップ エクスペリエンス] を選択します。
      • Windows Server 2008 および 2008 R2 の場合は、[ デスクトップ エクスペリエンス] を選択します。
    5. [ インストール] を選択してデスクトップ エクスペリエンスをインストールします。
    6. コンピューターを再起動します。
  2. 次のいずれかの操作を行います。

    • Windows Server 2012、2012 R2、2016 の場合は、コントロール パネルで [同期センター] を選択し、[オフライン ファイルの管理] を選択します。
    • Windows Server 2008 および 2008 R2 の場合は、コントロール パネルで [オフライン ファイル] を選択します。
  3. [ オフライン ファイルを有効にする] を選択します。 この時点でコンピューターを再起動しないでください。

  4. キャッシュが読み取り専用に設定されていることを確認します。 これを行うには、管理者特権の cmd プロンプトで次のコマンドを実行します。

    REG ADD "HKLM\System\CurrentControlSet\Services\CSC\Parameters" /v ReadOnlyCache /t REG_DWORD /d 1 /f
    
  5. コンピューターを再起動します。

  6. コンピューターからファイル サーバーを参照します。 IIS 共有構成を含む共有を右クリックし、[ Always Available Offline]\(常に使用可能なオフライン\) を選択します。

    注:

    IIS ノードをホストするのと同じフェールオーバー クラスターでファイル共有を高可用性に設定した場合、使用しているクラスター ノードが高可用性ファイル サーバーをホストしている場合、共有を右クリックしても [ Always Available Offline ]\(常に使用可能なオフライン\) オプションは表示されません。 使用可能な高いファイル サーバー アプリケーションを別のノードに移動する必要があります。

  7. コントロール パネルで、[オフライン ファイル] を開きます。 [ 同期センターを開く] を選択し、[スケジュール] を選択 します

  8. 毎日または要件に従って、オフライン ファイル同期をスケジュールします。 オフライン同期を数分ごとに実行するように構成することもできます。 スケジューラを設定していない場合でも、 Applicationhost.config ファイル内の何かを変更すると、その変更が Web サーバーに反映されます。

注:

IIS で共有構成用にオフライン ファイルを構成する方法の詳細については、「共有構成 のオフライン ファイル」を参照してください。

Web サイトを構成し、1 つのクラスター ノード上のコンテンツの場所を指定します

Web サイト コンテンツ ファイルが残るクラスター ディスク リソースを所有するクラスター ノードを見つけます。

  1. [ 管理ツール] に移動し、[ フェールオーバー クラスター マネージャー] を選択します。
  2. クラスターに接続します。 いずれかのクラスター ノードを使用している場合は、クラスターが自動的に一覧に表示されます。
  3. [ ストレージ] で、Web ページコンテンツが存在するディスク リソースを見つけます。 これを行うには、ディスク リソースのストレージ ツリーを展開します。 クラスター上の他の高可用性アプリケーションでストレージが使用されていないことを確認します。 [使用可能なストレージ] の下に ストレージがあります
  4. このリソースがオンラインになっているクラスター ノード。 そのクラスター ノードで IIS を構成します。
  5. クラスター ディスク リソース名。

これはコンテンツ ファイルに使用します。 リソースがオンラインのクラスター ノードで、Web サイト コンテンツに共有ディスクを使用するように Web サーバーを構成します。

  1. [管理ツール] に移動し、[インターネット インフォメーション サービス (IIS) マネージャー] を選択します。
  2. 左側のウィンドウで、サーバー名ノードを展開します。
  3. [ サイト] を展開し、[ サイト] で、構成するサイトを選択します。
  4. 右側のウィンドウで、[Web サイトの管理] で [詳細設定] を選択します。
  5. [全般設定] で [物理パス] プロパティを見つけて、Web サイトのコンテンツ ファイルが配置されている場所を入力します。 これは、前の手順の手順 5 で説明したクラスター ディスク リソースの場所です。
  6. [OK] を選択します。

フェールオーバー クラスター マネージャーで汎用スクリプトを作成して、Web サイトの高可用性を構成する

IIS Web サーバーの高可用性を構成する最後の手順では、Web サイトと Web サイトのアプリケーション プールの監視に使用する汎用スクリプト リソースを設定します。

  1. 各クラスター ノードで、この記事の最後に提供されているスクリプトを に Windows\System32\inetsrv\Clusweb7.vbsコピーします。

  2. 既定では、スクリプトは Default Web サイト という名前の Web サイトと DefaultAppPool という名前のアプリケーション プールを監視します。 正しい Web サイトとアプリケーション プールではない場合は、変数を変更します SITE_NAME and APP_POOL_NAME 。 スクリプト内の同じ Web サイトとアプリケーション プールがすべてのクラスター ノードに存在することを確認します。

    注:

    名前では大文字と小文字が区別されます。

  3. [ 管理ツール] に移動し、[ フェールオーバー クラスター マネージャー] を選択します。

  4. クラスターに接続します。 いずれかのクラスター ノードを使用している場合は、クラスターが自動的に一覧に表示されます。

  5. 次のいずれかの操作を行います。

    • Windows Server 2012、2012 R2、2016 の場合は、[ロール] を右クリックし、[ロールの構成] を選択して作成します。
    • Windows Server 2008 および 2008 R2 の場合は、クラスターを右クリックし、[ サービスまたはアプリケーションの構成] を選択します。 ウィザードによって高可用性ワークロードが作成されます。
  6. [ 汎用スクリプト] を選択します

  7. から %systemroot%\System32\Inetsrv\clusweb7.vbsスクリプト ファイルを選択します。

  8. クライアント アクセス ポイント (CAP) 名を、クライアントが高可用性 Web サイトへの接続に使用する Web サイト名に設定します。 Web サイトの CAP に使用する静的 IP を指定します。 動的ホスト構成プロトコル (DHCP) を使用している場合、このオプションは表示されません。

  9. [ ストレージの選択 ] 手順で、Web サイト コンテンツ ファイルが存在するクラスター共有ディスクを選択します。 ストレージは、クラスター上の他の高可用性アプリケーションで使用しないでください。

    注:

    IIS 共有構成に使用されるファイル共有が同じクラスターでホストされている場合は、ここで別のディスク リソースを使用する必要があります。

  10. 設定を確認すると、ウィザードによってクラスター グループ、クラスター リソース、およびリソース間の依存関係が作成され、リソースがオンラインになります。

    注:

    同じフェールオーバー クラスターで複数の高可用性 Web サイトをホストするには、上記と同じ手順に従います。 ただし、Web サイトごとに異なるスクリプト ファイルを使用し、異なるクラスター化された共有ストレージを使用します。 たとえば、 で、最初の %systemroot%\System32\InetsrvWeb サイト にclusweb7.vbs を使用し、2 番目の Web サイト にclweb7-2.vbs し、3 番目の Web サイトに clweb7-3.vbs します。 各スクリプト ファイルは、異なる Web サイトとアプリケーション プールを監視します。

次のスクリプトはサンプルのみを目的としており、Microsoft では明示的にサポートされていません。 IIS 7.0 以降のバージョンのクラスター環境でのこのスクリプトの使用は、ご自身の責任で行ってください。

'<begin script sample>
'This script provides high availability for IIS websites
'By default, it monitors the "Default Web Site" and "DefaultAppPool"
'To monitor another website, change the SITE_NAME below
'To monitor another application pool, change the APP_POOL_NAME below
'More thorough and application-specific health monitoring logic can be added to the script if needed

Option Explicit

DIM SITE_NAME
DIM APP_POOL_NAME
Dim START_WEB_SITE
Dim START_APP_POOL
Dim SITES_SECTION_NAME
Dim APPLICATION_POOLS_SECTION_NAME
Dim CONFIG_APPHOST_ROOT
Dim STOP_WEB_SITE

'Note:
'Replace this with the site and application pool you want to configure high availability for
'Make sure that the same website and application pool in the script exist on all cluster nodes. Note that the names are case-sensitive.
SITE_NAME = "Default Web Site"
APP_POOL_NAME = "DefaultAppPool"

START_WEB_SITE = 0
START_APP_POOL = 0
STOP_WEB_SITE  = 1
SITES_SECTION_NAME = "system.applicationHost/sites"
APPLICATION_POOLS_SECTION_NAME = "system.applicationHost/applicationPools"
CONFIG_APPHOST_ROOT = "MACHINE/WEBROOT/APPHOST"

'Helper script functions
'Find the index of the website on this node
Function FindSiteIndex(collection, siteName)
    Dim i
    FindSiteIndex = -1

    For i = 0 To (CInt(collection.Count) - 1)
        If collection.Item(i).GetPropertyByName("name").Value = siteName Then
            FindSiteIndex = i
            Exit For
        End If
    Next
End Function

'Find the index of the application pool on this node
Function FindAppPoolIndex(collection, appPoolName)
    Dim i
    FindAppPoolIndex = -1

    For i = 0 To (CInt(collection.Count) - 1)
        If collection.Item(i).GetPropertyByName("name").Value = appPoolName Then
            FindAppPoolIndex = i
            Exit For
        End If
    Next
End Function

'Get the state of the website
Function GetWebSiteState(adminManager, siteName)

    Dim sitesSection, sitesSectionCollection, siteSection, index, siteMethods, startMethod, executeMethod
    Set sitesSection = adminManager.GetAdminSection(SITES_SECTION_NAME, CONFIG_APPHOST_ROOT)
    Set sitesSectionCollection = sitesSection.Collection

    index = FindSiteIndex(sitesSectionCollection, siteName)
    If index = -1 Then
        GetWebSiteState = -1
    End If

    Set siteSection = sitesSectionCollection(index)
    GetWebSiteState = siteSection.GetPropertyByName("state").Value
End Function

'Get the state of the ApplicationPool
Function GetAppPoolState(adminManager, appPool)
    Dim configSection, index, appPoolState

    set configSection = adminManager.GetAdminSection(APPLICATION_POOLS_SECTION_NAME, CONFIG_APPHOST_ROOT)
    index = FindAppPoolIndex(configSection.Collection, appPool)

    If index = -1 Then
        GetAppPoolState = -1
    End If

    GetAppPoolState = configSection.Collection.Item(index).GetPropertyByName("state").Value
End Function

'Start the w3svc service on this node
Function StartW3SVC()
    Dim objWmiProvider
    Dim objService
    Dim strServiceState
    Dim response

    'Check to see if the service is running
    set objWmiProvider = GetObject("winmgmts:/root/cimv2")
    set objService = objWmiProvider.get("win32_service='w3svc'")
    strServiceState = objService.state

    If ucase(strServiceState) = "RUNNING" Then
        StartW3SVC = True
    Else
        'If the service is not running, try to start it
        response = objService.StartService()

        'response = 0  or 10 indicates that the request to start was accepted
        If ( response <> 0 ) and ( response <> 10 ) Then
            StartW3SVC = False
        Else
            StartW3SVC = True
        End If
    End If
End Function

'Start the application pool for the website
Function StartAppPool()
    Dim ahwriter, appPoolsSection, appPoolsCollection, index, appPool, appPoolMethods, startMethod, callStartMethod
    Set ahwriter = CreateObject("Microsoft.ApplicationHost.WritableAdminManager")

    Set appPoolsSection = ahwriter.GetAdminSection(APPLICATION_POOLS_SECTION_NAME, CONFIG_APPHOST_ROOT)
    Set appPoolsCollection = appPoolsSection.Collection
    index = FindAppPoolIndex(appPoolsCollection, APP_POOL_NAME)
    Set appPool = appPoolsCollection.Item(index)

    'See if it is already started
    If appPool.GetPropertyByName("state").Value = 1 Then
        StartAppPool = True
        Exit Function
    End If

    'Try To start the application pool
    Set appPoolMethods = appPool.Methods
    Set startMethod = appPoolMethods.Item(START_APP_POOL)
    Set callStartMethod = startMethod.CreateInstance()
    callStartMethod.Execute()

    'If started return true, otherwise return false
    If appPool.GetPropertyByName("state").Value = 1 Then
        StartAppPool = True
    Else
        StartAppPool = False
    End If
End Function

'Start the website
Function StartWebSite()
    Dim ahwriter, sitesSection, sitesSectionCollection, siteSection, index, siteMethods, startMethod, executeMethod
    Set ahwriter = CreateObject("Microsoft.ApplicationHost.WritableAdminManager")
    Set sitesSection = ahwriter.GetAdminSection(SITES_SECTION_NAME, CONFIG_APPHOST_ROOT)
    Set sitesSectionCollection = sitesSection.Collection
    index = FindSiteIndex(sitesSectionCollection, SITE_NAME)
    Set siteSection = sitesSectionCollection(index)

    if siteSection.GetPropertyByName("state").Value = 1 Then
        'Site is already started
        StartWebSite = True
        Exit Function
    End If

    'Try to start site
    Set siteMethods = siteSection.Methods
    Set startMethod = siteMethods.Item(START_WEB_SITE)
    Set executeMethod = startMethod.CreateInstance()
    executeMethod.Execute()

    'Check to see if the site started, if not return false
    If siteSection.GetPropertyByName("state").Value = 1 Then
        StartWebSite = True
    Else
        StartWebSite = False
    End If
End Function

'Stop the website
Function StopWebSite()
    Dim ahwriter, sitesSection, sitesSectionCollection, siteSection, index, siteMethods, startMethod, executeMethod, autoStartProperty
    Set ahwriter = CreateObject("Microsoft.ApplicationHost.WritableAdminManager")
    Set sitesSection = ahwriter.GetAdminSection(SITES_SECTION_NAME, CONFIG_APPHOST_ROOT)
    Set sitesSectionCollection = sitesSection.Collection
    index = FindSiteIndex(sitesSectionCollection, SITE_NAME)
    Set siteSection = sitesSectionCollection(index)

    'Stop the site
    Set siteMethods = siteSection.Methods
    Set startMethod = siteMethods.Item(STOP_WEB_SITE)
    Set executeMethod = startMethod.CreateInstance()
    executeMethod.Execute()
End Function

'Cluster resource entry points. More details here:
'http://msdn.microsoft.com/en-us/library/aa372846(VS.85).aspx
'Cluster resource Online entry point
'Make sure the website and the application pool are started
Function Online( )
    Dim bOnline
    'Make sure w3svc is started
    bOnline = StartW3SVC()

    If bOnline <> True Then
        Resource.LogInformation "The resource failed to come online because w3svc could not be started."
        Online = False
        Exit Function
    End If

    'Make sure the application pool is started
    bOnline = StartAppPool()
    If bOnline <> True Then
        Resource.LogInformation "The resource failed to come online because the application pool could not be started."
        Online = False
        Exit Function
    End If

    'Make sure the website is started
    bOnline = StartWebSite()
    If bOnline <> True Then
        Resource.LogInformation "The resource failed to come online because the web site could not be started."
        Online = False
        Exit Function
    End If

    Online = true
End Function

'Cluster resource offline entry point
'Stop the website
Function Offline( )
    StopWebSite()
    Offline = true
End Function

'Cluster resource LooksAlive entry point
'Check for the health of the website and the application pool
Function LooksAlive( )
    Dim adminManager, appPoolState, configSection, i, appPoolName, appPool, index
    i = 0
    Set adminManager  = CreateObject("Microsoft.ApplicationHost.AdminManager")
    appPoolState = -1

    'Get the state of the website
    if GetWebSiteState(adminManager, SITE_NAME) <> 1 Then
        Resource.LogInformation "The resource failed because the " & SITE_NAME & " web site is not started."
        LooksAlive = false
        Exit Function
    End If

    'Get the state of the Application Pool
    if GetAppPoolState(adminManager, APP_POOL_NAME) <> 1 Then
         Resource.LogInformation "The resource failed because Application Pool " & APP_POOL_NAME & " is not started."
         LooksAlive = false  
         Exit Function
    End if

    'Web site and Application Pool state are valid return true
    LooksAlive = true
End Function

'Cluster resource IsAlive entry point
'Do the same health checks as LooksAlive
'If a more thorough than what we do in LooksAlive is required, this should be performed here
Function IsAlive()
    IsAlive = LooksAlive
End Function

'Cluster resource Open entry point
Function Open()
    Open = true
End Function

'Cluster resource Close entry point
Function Close()
    Close = true
End Function

'Cluster resource Terminate entry point
Function Terminate()
    Terminate = true
End Function
'<end script sample>