今回は、どれだけ簡単になったか 過去 WMI を使った内容と比較して確認してみようと思います。（ベータ版での確認です。）
 
 

■ 仮想マシン一覧の取得

Hyper-V2.0 の際は、続．PowerShellでHyper-V上の仮想マシンの一覧取得 で次のように書きました。

Get-WmiObject -Namespace root\virtualization -ComputerName "." -Class Msvm_Computersystem

Hyper-V 3.0 では次のように書くことができます。

Get-VM

■ 仮想マシン状態の取得

Hyper-V2.0 の際は、続．PowerShellでHyper-V上の仮想マシンの一覧取得 で次のように書きました。

function getStatus($i){
      switch ($i) {
          0 {"不明"}
          2 {"実行中（Enabled）"}
          3 {"停止（Disabled）"}
          32768 {"一時停止（Paused）"}
          32769 {"保存完了（Suspended）"}
          32770 {"復元（Starting）"}
          32771 {"スナップショット取得中（Snapshotting）"}
          32773 {"保存中（Saving）"}
          32774 {"停止中（Stopping）"}
          32776 {"一時停止中（Pausing）"}
          32777 {"再開中（Resuming）"}
          default {"不明"}
      }
}

Get-WmiObject -Namespace root\virtualization -Class Msvm_Computersystem |
      ForEach-Object {
          $_.ElementName
          $_.Caption
          getStatus($_.EnabledState)
          "`r`n"
      }

Hyper-V 3.0 では次のように書くことができます。

Get-VM | select Name, State, Status

■ 特定の仮想マシンシャットダウン

Hyper-V2.0 の際は、PowerShellでHyper-V上の仮想マシンをシャットダウン で次のように書きました。

$vm_name = "<仮想インスタンス名>"

$vm = gwmi -Namespace root\virtualization -Class Msvm_ComputerSystem -Filter "ElementName = '$vm_name'"
$shutdown = gwmi -namespace root\virtualization -Query "Associators of {$vm} Where ResultClass = Msvm_ShutdownComponent"

return $shutdown.InitiateShutdown($true, "<シャットダウンの理由>")

Hyper-V 3.0 では次のように書くことができます。

Stop-VM -Name <仮想マシン名>

■ Hyper-V上の全仮想マシンのシャットダウン

Hyper-V2.0 の際は、PowerShellでHyper-V上の仮想マシンをシャットダウン で次のように書きました。

$ns = "root\virtualization"

$vmCollection = gwmi -Namespace $ns Msvm_Computersystem -Filter "Description = 'Microsoft Virtual Machine'"
$vmCollection | foreach {
      if($_.EnabledState -ne "3") {
          $shutdown = gwmi -Namespace $ns -Query "Associators of {$_} Where ResultClass = Msvm_ShutdownComponent"
          $shutdown.InitiateShutdown($true, "定期メンテナンス") | Out-Null
          Start-Sleep -Milliseconds 1000
          }
      } 

Hyper-V 3.0 では次のように書くことができます。

Get-VM | Stop-VM

■ 特定の仮想マシンを起動

Hyper-V2.0 の際は、PowerShellでHyper-V上の仮想マシンを起動させる で次のように書きました。

$vm_name = "<仮想インスタンス名>"

$vm = gwmi -Namespace root\virtualization -Class Msvm_ComputerSystem -Filter "ElementName = '$vm_name'"
$vm_status = $vm.RequestStateChange(2)

Hyper-V 3.0 では次のように書くことができます。

Start-VM -Name <仮想マシン名>

■ 仮想マシンのエクスポート

Hyper-V2.0 の際は、PowerShellでHyper-V上の仮想マシンをエクスポート で次のように書きました。

$ns = "root\virtualization"
$vm_target = "VM-1"
$vm_export_path = "c:\temp\"

$vm_manager = gwmi -Namespace $ns Msvm_VirtualSystemManagementService
$vm = gwmi -Namespace $ns Msvm_ComputerSystem -Filter "ElementName = '$vm_target'"

$vm_manager.ExportVirtualSystem($vm, $TRUE, $vm_export_path)

Hyper-V 3.0 では次のように書くことができます。

Get-VM -Name <仮想マシン名> | % { if($_.State -eq "Running"){ Stop-VM -Name $_.Name }; Export-VM -Name $_.Name -Path C:\temp }

■ 仮想マシンのインポート

Hyper-V2.0 の際は、PowerShellでHyper-V上の仮想マシンをインポート で次のように書きました。

$ns = "root\virtualization"
$vm_import_path = "c:\temp\VM-1"

$vm_manager = gwmi -Namespace $ns Msvm_VirtualSystemManagementService
$vm_manager.ImportVirtualSystem($vm_import_path, $TRUE) | Out-Null

Hyper-V 3.0 では次のように書くことができます。

Import-VM -Path "エクスポート先フォルダパス\Virtual Machines\XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX.XML" -Copy –GenerateNewId

■ 仮想マシンのスナップショット取得

Hyper-V2.0 の際は、PowerShellでHyper-V上の仮想マシンのスナップショット取得 で次のように書きました。

$ns = "root\virtualization"
$target = "VM-1"

$vm = gwmi -Namespace $ns Msvm_Computersystem -Filter "ElementName = '$target'"
$manager = gwmi -Namespace $ns Msvm_VirtualSystemManagementService
$manager.CreateVirtualSystemSnapshot($vm.__Path)

Hyper-V 3.0 では次のように書くことができます。

Checkpoint-VM -Name <仮想マシン名> -SnapshotName "スナップショットテスト"

 
 
ああ、なんということでしょう。

オンプレに Windows Server 8 （ベータ版）をインストールして、Windows PowerShell Web Access の設定を行います。
Windows Azure のインスタンスには、Startup タスクで ファイアウォールに WinRM を通すようにして、リモーティングを有効にします。

対応しているスマートフォンからであれば、VPN を接続してオンプレの Windows PowerShell Web Access のゲートウェイサーバーに接続すれば、Azure のインスタンスに対して PowerShell のコマンドを実行できるという内容です。

Windows PowerShell Web Access のインストールや設定に関しては下記をご覧ください。
Deploy Windows PowerShell Web Access

Azure インスタンスは 次の設定を行います。

• ■ osFamily は 2 （Windows Server 2008 R2）
• ■ エンドポイントに Input で TCP 5985 を追加
• ■ リモートデスクトップ接続を有効
• ■ Startup タスクは elevated レベルで startup.cmd を実行するようして、下記の2つのファイルを作成

 
[startup.cmd]

@echo off
powershell -executionpolicy remotesigned -file startup.ps1

[startup.ps1]

# アセンブリ追加
[Reflection.Assembly]::LoadWithPartialName("Microsoft.WindowsAzure.ServiceRuntime")
[Reflection.Assembly]::LoadWithPartialName("System.Security")

# .cscfg から ユーザー名・暗号化されたパスワード・サムプリントを取得
$username = [Microsoft.WindowsAzure.ServiceRuntime.RoleEnvironment]::GetConfigurationSettingValue("Microsoft.WindowsAzure.Plugins.RemoteAccess.AccountUsername")
$encpswd = [Microsoft.WindowsAzure.ServiceRuntime.RoleEnvironment]::GetConfigurationSettingValue("Microsoft.WindowsAzure.Plugins.RemoteAccess.AccountEncryptedPassword")
$thumbprint = [Microsoft.WindowsAzure.ServiceRuntime.RoleEnvironment]::GetConfigurationSettingValue("CertificateThumbprint")

# 復号化
$store = New-Object System.Security.Cryptography.X509Certificates.X509Store My,CurrentUser
$store.Open("ReadOnly")
$ec = New-Object Security.Cryptography.Pkcs.EnvelopedCms
$ec.Decode([Convert]::FromBase64String($encpswd))
$ec.Decrypt($store.Certificates)
$pswd = [Text.Encoding]::UTF8.GetString($ec.ContentInfo.Content)

# FW設定
netsh advfirewall firewall add rule name="Windows Remote Management (HTTP-In)" dir=in program=system action=allow protocol=TCP localport=5985
$dt = [datetime]::now.addminutes(5).tostring("HH:mm:ss")
SCHTASKS /CREATE /TN "WinRM" /TR "powershell Enable-PSRemoting -Force" /SC ONCE /ST $dt /RU $username /RP $pswdSCHTASKS /RUN /TN "WinRM"

https で Windows PowerShell WebAccess にアクセスして、下記のような感じで必要な情報を入力します。

ユーザー名とパスワードは、オンプレでの接続情報（AD などが立っていれば、AD ユーザー ID ）を入力して、コンピューター名は、Azure の DNS 名を入力します。
そして、オプション接続設定のユーザー名とパスワードは、リモートデスクトップ用の接続情報を入力します。

問題が無ければ下図のようになります。（図は ipconfig を入力した結果）

運用管理用の .ps1 ファイルを一緒にデプロイしてしまえば 多少は入力の手間も省けたりしそうです。ただ、この仕組みの場合、横スケールしている際の Azure 上のインスタンス狙い撃ちは出来ません。Azure で サポートする OS が増えてくれたり、あんなことやこんなことが出来るようになってくれれば…的な。

じゃあどうしようかと思ったところ、そもそも .cscfg にリモデを有効にするとユーザー名と暗号化されたパスワードとかも含まれてるんだから、それ使っちゃえばいいやと。
ということで今回は、StartupTask で .cscfg ファイルのユーザー名とパスワードを参照するようにしてみたいと思います。

 
.csdef に下記の startup.cmd を実行するように StartupTask の設定を行います。
[startup.cmd]

@echo off
powershell -executionpolicy remotesigned -file "%~dp0startup.ps1" %~dp0

startup.cmd で呼び出している .ps1 ファイルは次の通りです。
[startup.ps1]

# アセンブリ追加
[Reflection.Assembly]::LoadWithPartialName("Microsoft.WindowsAzure.ServiceRuntime")
[Reflection.Assembly]::LoadWithPartialName("System.Security")

# .cscfg から ユーザー名・暗号化されたパスワード・サムプリントを取得
$username = [Microsoft.WindowsAzure.ServiceRuntime.RoleEnvironment]::GetConfigurationSettingValue("Microsoft.WindowsAzure.Plugins.RemoteAccess.AccountUsername")
$encpswd = [Microsoft.WindowsAzure.ServiceRuntime.RoleEnvironment]::GetConfigurationSettingValue("Microsoft.WindowsAzure.Plugins.RemoteAccess.AccountEncryptedPassword")
$thumbprint = [Microsoft.WindowsAzure.ServiceRuntime.RoleEnvironment]::GetConfigurationSettingValue("CertificateThumbprint")

# 復号化
$store = New-Object System.Security.Cryptography.X509Certificates.X509Store My,CurrentUser
$store.Open("ReadOnly")
$cer = $store.Certificates.Find(0,$thumbprint,0)
$ec = New-Object Security.Cryptography.Pkcs.EnvelopedCms
$ec.Decode([Convert]::FromBase64String($encpswd))
$ec.Decrypt($cer)
$pswd = [Text.Encoding]::UTF8.GetString($ec.ContentInfo.Content)

# 結果確認用
Add-Type -Language CSharpVersion3 -TypeDefinition @'
public class Account
{
     public string UserName {get; set;}
     public string Password {get; set;}
}
'@

$user = New-Object Account
$user.UserName = $username
$user.Password = $pswd
$ret = [System.IO.Path]::Combine([System.IO.Path]::GetPathRoot("$args[0]"), "sitesroot\0\index.htm")
$user | ConvertTo-Html > $ret

 
Microsoft.WindowsAzure.ServiceRuntime を読み込んで GetConfigurationSettingValue で必要な項目を取り出しているだけです。
ただ、.cscfg の Certificates の中の thumbprint を取得する方法が分からなかったので、ConfigurationSettings に CertificateThumbprint という名前でサムプリントの値を追加しています。


あとは、取り出した内容を使って、パスワードの復号化をしているだけです。そして、結果はこんな感じです。


 
* 追記 2012/04/04 18:55
たんたかさんに 今回のようなケースで証明書のところストア内を検索する必要ないよーって感じで教えてもらいました。それと、StoreLocation.LocalMachine でもいけることも。ということで、復号化のところは下記のような内容でも OK です。

$store = New-Object System.Security.Cryptography.X509Certificates.X509Store StoreLocation.LocalMachine
$store.Open("ReadOnly")
$ec = New-Object Security.Cryptography.Pkcs.EnvelopedCms
$ec.Decode([Convert]::FromBase64String("$encpswd"))
$ec.Decrypt($store.Certificates)
$pswd = [Text.Encoding]::UTF8.GetString($ec.ContentInfo.Content)

まずは、Azure に PHP が実行できる環境を作ります。
方法は色々ありますが、今回はパッケージに PHP をまるっと入れ、FastCGI などの設定は StartupTask で行う方法にしていますが、その辺の設定部分は省略しますので、必要に応じて Azure （Full IIS）で PHP を実行 などをご覧ください。

で、ODBC 設定の続きです。PDO からの接続もあるので php.ini で 下記の Extension のコメントアウトを外します。（その他、Azure で PHP を実行できるために必要な設定をしておきます。）

extension=php_pdo_odbc.dll

odbcconf.exe コマンドを使って DSN を作ってしまおうと考えましたが、SQL Server 認証に必要な UID とパスワードが（おそらく）セキュリティの関係で渡せないので、今回は下記のような DSN 構文を使うような感じで、簡単なクエリを投げて動作を確認してみます。

[ index.php ]

<?php

// PDOの場合
try {
    $connPdo = new PDO("odbc:DRIVER={SQL Server Native Client 10.0};SERVER={servername}.database.windows.net;PORT=1433;DATABASE={databasename};PROTOCOL=TCPIP;UID={userid}@{servername};PWD={password};");
} catch(PDOException $e){
    echo "FAILED：" . $e->getMessage() . "<br />";
    exit;
}

$cursor = $connPdo->query('SELECT DATEADD(hh, 9, GETDATE())');
foreach ($cursor as $row) {
    echo "PDOの場合： " . $row[0] . "<br />";
}
$connPdo = null;

// odbc_connectの場合
$conn = odbc_connect("DRIVER={SQL Server Native Client 10.0};SERVER={servername}.database.windows.net;DATABASE={databasename}","{userid}@{servername}","{password}");
$query = "SELECT DATEADD(hh, 9, GETDATE())";
$resultSet = odbc_exec($conn, $query);
odbc_fetch_row($resultSet);
echo "odbc_connectの場合： " . odbc_result($resultSet, "") . "<br />";
odbc_close($conn);

?>

以上です。デプロイして結果を確認するとこうなりました。

Windows Server AppFabric に関しては、Windows Server AppFabric のご紹介 などをご覧ください。

 
では、さっそく実装に関してです。用意するものは下記に列挙しているものが必要になります。
■ Webロール　…　1つ。
■ Workerロール　…　1つ。
■ ntrights.exe　…　1つ。
■ WindowsServerAppfabricSetup_x64.exe　…　1つ。

ntrigts.exe は、Appfabric のサービスを動かすのにログイン権限が必要なので利用します。exe ファイルは、下記のリンクから WindowsServer2003 のリソキツールを適当なマシンにインストールして exe ファイルをサルベージしてください。
Windows Server 2003 Resource Kit Tools

WindowsServerAppfabricSetup_x64.exe は、下記のリンクから v1.1 を入手します。
Microsoft AppFabric 1.1 for Windows Server

なお、今回ロールは2つのロールとも、Windows Server 2008 R2 を使っています。

 
それでは最初に、Worker ロールの設定から行います。

Worker ロール

Worker ロールの役割としては 共有フォルダ の提供です。まず、SMB 用にエンドポイントの設定をします。


 
そして、Windowsファイアーウォールに穴をあけて共有フォルダの設定するように、WorkerRole.cs を設定します。

[ WorkerRole.cs ]

using System;
using System.Diagnostics;
using System.Net;
using System.IO;
using System.Threading;
using Microsoft.WindowsAzure.ServiceRuntime;

namespace SMBHost
{
    public class WorkerRole : RoleEntryPoint
    {
        public override void Run()
        {
            // これはワーカーの実装例です。実際のロジックに置き換えてください。
            Trace.WriteLine("$projectname$ entry point called", "Information");

            while (true)
            {
                Thread.Sleep(60 * 60 * 1000);
                Trace.WriteLine("Working", "Information");
            }
        }

        public override bool OnStart()
        {
            // 同時接続の最大数を設定します
            ServicePointManager.DefaultConnectionLimit = 12;

            // 構成の変更を処理する方法については、
            // MSDN トピック (http://go.microsoft.com/fwlink/?LinkId=166357) を参照してください。

            string cacheDirectoryPath = Environment.ExpandEnvironmentVariables(@"%RoleRoot%\approot\Cache");

            // ファイアウォール設定
            ExecuteCommand("netsh.exe", "firewall set service type=fileandprint mode=enable scope=all");

            // 共有フォルダ設定
            Directory.CreateDirectory(cacheDirectoryPath);
            string args = string.Format("share CacheConfigShare={0} /Grant:Everyone,Full", cacheDirectoryPath);
            ExecuteCommand("net.exe", args);

            return base.OnStart();
        }

        private void ExecuteCommand(string exe, string arguments)
        {
            using (Process p = new Process())
            {
                p.StartInfo.FileName = exe;
                p.StartInfo.Arguments = arguments;
                p.StartInfo.CreateNoWindow = true;
                p.StartInfo.UseShellExecute = false;
                p.StartInfo.RedirectStandardError = true;
                p.StartInfo.Verb = "RunAs";
                p.Start();

                string results = p.StandardError.ReadToEnd();
                p.WaitForExit(60000);
                p.Close();
            }
        }
    }
}

 
次に、Webロールの設定です。

Web ロール

まずは、Appfabric 用にエンドポイントの設定を行います。また、他の Web ロールのコンピュータ名を取得する必要があるので、ついでに追加したり、その他 必要な内部ポートがあるので追加しておきます。


 
そして、他の Web ロールのコンピュータ名を取得出来るように、WCF サービスの実装を行います。

[ IRoleHostName.cs ]

using System.ServiceModel;

namespace WebSiteHost
{
    [ServiceContract]
    public interface IRoleHostName
    {
        [OperationContract]
        string GetHostName();
    }
}

[ RoleHostName.cs ]

using System.Net;

namespace WebSiteHost
{
    public class RoleHostName : IRoleHostName
    {
        public string GetHostName()
        {
            return Dns.GetHostName();
        }
    }
}

次に、Windows Server Appfabric に関する処理です。
Web.Config に下記の configSections セクションと dataCacheClient セクション 部分を追加します。

[ Web.Config ]

<?xml version="1.0" encoding="utf-8"?>
<!--
  ASP.NET アプリケーションを構成する方法の詳細については、
  http://go.microsoft.com/fwlink/?LinkId=169433 を参照してください
  -->
<configuration>

  <configSections>
    <section name="dataCacheClient" type="Microsoft.ApplicationServer.Caching.DataCacheClientSection, Microsoft.ApplicationServer.Caching.Core, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
  </configSections>
  <dataCacheClient configSource="DataCacheClients.xml" />

  <system.diagnostics>
    <trace>

  …省略…

</configuration>

 
また下記の内容であらかじめ DataCacheClients.xml を作っておきます。
DataCacheClients.xml は、Appfabric で使用するキャッシュサービスのコンピュータ名とポート番号を書きますが、host 要素は動的に作りたいので、まずは外枠だけ用意してます。

[ DataCacheClients.xml ]

<?xml version="1.0" encoding="utf-8"?>
<dataCacheClient>
  <hosts>
  </hosts>
</dataCacheClient>

 
そして、Appfabric の設定部分を PowerShell で実装します。

[ appfablic.ps1 ]

# /--------------------------
# 定義
# --------------------------/
$sharedfolder = [string]::Format("\\{0}\CacheConfigShare", $Args[0])
$hostname = hostname
$user = "$hostname\リモートデスクトップのユーザー名など"
$password = "リモートデスクトップユーザーのパスワード"
$cacheport = 22233
$cachename = "HogeHoge"

# /--------------------------
# 初期化
# --------------------------/
Set-Location $Args[1]

$modulepath = [System.IO.Path]::Combine([System.Environment]::GetEnvironmentVariable("ProgramFiles"), "AppFabric 1.1 for Windows Server\PowershellModules")
$moduleconfig = [System.IO.Path]::Combine($modulepath, "DistributedCacheConfiguration");
$moduleadmin = [System.IO.Path]::Combine($modulepath, "DistributedCacheAdministration");

Import-Module $moduleconfig
Import-Module $moduleadmin

net use $sharedfolder $password /user:$user | Out-Null

# /--------------------------
# メイン
# --------------------------/
if((Get-CacheClusterInfo -Provider XML -ConnectionString $sharedfolder).IsInitialized -eq $False)
{
    New-CacheCluster -Provider XML -ConnectionString $sharedfolder -Size Small
}
Register-CacheHost -Provider XML -ConnectionString $sharedfolder -Account $user -CachePort $cacheport -ClusterPort ($cacheport + 1) -ArbitrationPort ($cacheport + 2) -ReplicationPort ($cacheport + 3) -HostName $hostname
Add-CacheHost -Provider XML -ConnectionString $sharedfolder -Account $user
Add-CacheAdmin -Provider XML -ConnectionString $sharedfolder

Use-CacheCluster
netsh advfirewall firewall set rule group="AppFabric Server: AppFabric Caching Service" new enable=Yes | Out-Null
netsh firewall set service type=remoteadmin mode=enable scope=all | Out-Null
Set-CacheClusterSecurity -SecurityMode None -ProtectionLevel None

(Get-WmiObject -Class Win32_Service -Filter "Name='AppFabricCachingService'").change($null,$null,$null,$null,$null,$null,$user,$password,$null,$null,$null) | Out-Null
.\ntrights.exe +r SeServiceLogonRight -u $user | Out-Null

try
{
    if((Get-CacheRegion | ?{ $_.Role -eq "Primary" }) -eq $null)
    {
        Start-CacheCluster
        if((Get-Cache | ?{ $_.CacheName -eq $cachename }) -eq $null)
        {
            New-Cache $cachename
        }
    }
    else
    {
        Start-CacheHost -HostName $hostname -CachePort $cacheport
    }
}
catch [Microsoft.ApplicationServer.Caching.DataCacheException]
{
    Start-CacheCluster
    if((Get-Cache | ?{ $_.CacheName -eq $cachename }) -eq $null)
    {
        New-Cache $cachename
    }

    trap
    {
        Start-CacheHost -HostName $hostname -CachePort $cacheport
    }
}

trap
{
    $errorfile = [string]::Format("{0}.log", (Get-Date).ToString("yyyyMMddHHmmss"))
    $_ | out-file $errorfile
    continue;
}

 
あとは、下記の WebRole.cs の内容で処理部分を実装します。

[ WebRole.cs ]

using System;
using System.Collections.Generic;
using System.Linq;
using System.Diagnostics;
using System.IO;
using System.ServiceModel;
using System.Xml.Linq;
using System.Xml.XPath;
using System.Net;
using System.Threading;
using System.Text.RegularExpressions;
using Microsoft.WindowsAzure.ServiceRuntime;

namespace WebSiteHost
{
    public class WebRole : RoleEntryPoint
    {
        private List WebSiteHostsInfo = new List();
        private int SrvCnt = 0;

        public override bool OnStart()
        {
            // 構成の変更を処理する方法については、
            // MSDN トピック (http://go.microsoft.com/fwlink/?LinkId=166357) を参照してください。

            ExecutePublishService();

            int id = GetInstanceNumber();
            Thread.Sleep(id * 30 * 1000);

            string setupPath = Environment.ExpandEnvironmentVariables(@"%RoleRoot%\approot\bin\Setup");

            // Windows Server Appfabric インストール
            ExecuteCommand(Path.Combine(setupPath, "WindowsServerAppFabricSetup_x64.exe"), "/i");

            // WebRoleのIPとコンピュータ名取得
            GetWebSiteHostEnviroment();

            // HOSTS書き込み
            AddHosts();

            // DatacacheClients.xml 編集
            string cachConfigPath = Path.Combine(Environment.ExpandEnvironmentVariables(@"%RoleRoot%\sitesroot\0"), "DataCacheClients.xml");
            var compNames = WebSiteHostsInfo.Select(x => x.ComputerName);
            ReWriteDataCacheConfig(cachConfigPath, compNames.ToList(), 22233);

            // Windows Server Appfabric 設定
            string workerIP = RoleEnvironment.Roles["SMBHost"].Instances[0].InstanceEndpoints["EndpointSMB"].IPEndpoint.Address.ToString();

            string psArgs = string.Format("-executionpolicy remotesigned -file {0} \"{1}\" \"{2}\"", Path.Combine(setupPath, "Appfablic.ps1"), workerIP, setupPath);
            ExecuteCommand("powershell.exe", psArgs);

            return base.OnStart();
        }

        private void GetWebSiteHostEnviroment()
        {
            try
            {
                foreach (RoleInstance instance in RoleEnvironment.Roles["WebSiteHost"].Instances)
                {
                    var factory = new ChannelFactory(new NetTcpBinding(SecurityMode.None));
                    var channel = factory.CreateChannel(new EndpointAddress(
                        string.Format("net.tcp://{0}/RoleHostName", instance.InstanceEndpoints["EndpointWCF"].IPEndpoint)));

                    IPAddress instanceIPAddress = instance.InstanceEndpoints["EndpointWCF"].IPEndpoint.Address;
                    string instanceCompName = channel.GetHostName();

                    WebSiteHostsInfo.Add(new RoleInformation()
                    {
                        IP = instanceIPAddress,
                        ComputerName = instanceCompName
                    });
                }
            }
            catch (EndpointNotFoundException ex)
            {
                if (10 < SrvCnt)
                {
                    File.WriteAllText(Environment.ExpandEnvironmentVariables(@"%RoleRoot%\ReWriteDataCacheConfigException.txt"), ex.ToString());
                    return;
                }

                SrvCnt++;
                Thread.Sleep(5000);
                GetWebSiteHostEnviroment();
            }
        }

        private int GetInstanceNumber()
        {
            string id = Regex.Match(RoleEnvironment.CurrentRoleInstance.Id, @"\d+$").Value;
            return (string.IsNullOrWhiteSpace(id)) ? 0 : int.Parse(id);
        }

        private void AddHosts()
        {
            string ret = string.Empty;

            foreach (RoleInformation info in WebSiteHostsInfo)
            {
                ret += string.Format("{0}\t{1}\r\n", info.IP.ToString(), info.ComputerName);
            }

            string hostsPath = Path.Combine(Environment.GetEnvironmentVariable("SystemRoot"), @"System32\drivers\etc\hosts");
            using (FileStream fs = new FileStream(hostsPath, FileMode.Append))
            {
                using (StreamWriter sw = new StreamWriter(fs))
                {
                    sw.WriteLine(ret);
                    sw.Close();
                }

                fs.Close();
            }
        }

        private void ReWriteDataCacheConfig(string path, List hosts, int port)
        {
            if (!File.Exists(path))
                return;

            XDocument xDoc = XDocument.Load(path);
            foreach (string host in hosts)
            {
                xDoc.XPathSelectElement("/dataCacheClient/hosts").Add(
                    new XElement("host", new XAttribute("name", host), new XAttribute("cachePort", port)));
            }
            xDoc.Save(path);
        }

        private void ExecutePublishService()
        {
            Uri uri = new Uri(string.Format("net.tcp://{0}/", RoleEnvironment.CurrentRoleInstance.InstanceEndpoints["EndpointWCF"].IPEndpoint));

            ServiceHost host = new ServiceHost(typeof(RoleHostName), uri);
            host.AddServiceEndpoint(typeof(IRoleHostName), new NetTcpBinding(SecurityMode.None), "RoleHostName");
            host.Open();
        }

        private void ExecuteCommand(string exe, string arguments)
        {
            using (Process p = new Process())
            {
                p.StartInfo.FileName = exe;
                p.StartInfo.Arguments = arguments;
                p.StartInfo.CreateNoWindow = true;
                p.StartInfo.UseShellExecute = false;
                p.StartInfo.RedirectStandardError = true;
                p.StartInfo.Verb = "RunAs";
                p.Start();

                string results = p.StandardError.ReadToEnd();
                p.WaitForExit(60 * 1000);
                p.Close();
            }
        }
    }

    public class RoleInformation
    {
        public IPAddress IP { get; set; }
        public string ComputerName { get; set; }
    }
}

 
以上で Windows Server Appfabric の実装に関する設定終了です。

今回はページ部分を下記のようにして動作を確認しています。

[ Default.aspx.cs ]

using System;
using Microsoft.ApplicationServer.Caching;

namespace WebSiteHost
{
    public partial class _Default : System.Web.UI.Page
    {
        private DataCacheFactoryConfiguration CacheCfg = new DataCacheFactoryConfiguration();

        protected void Page_Load(object sender, EventArgs e)
        {
            Label1.Text = GetCacheData();
        }

        private string GetCacheData()
        {
            try
            {
                CacheCfg.SecurityProperties = new DataCacheSecurity(DataCacheSecurityMode.None, DataCacheProtectionLevel.None);

                var factory = new DataCacheFactory(CacheCfg);
                var cache = factory.GetCache("HogeHoge");
                var msg = cache.Get("MyKey");

                if (msg == null)
                {
                    cache.Add("MyKey", "キャッシュを利用してます。");
                    msg = "キャッシュを利用してません。";
                }

                return (string)msg;
            }
            catch (DataCacheException ex)
            {
                return string.Format("{0}\r\n{1}",DateTime.Now, ex.ToString());
            }
        }
    }
}

 
これで、デプロイすれば完了です。
確認として Web ロールを3インスタンスにして、それぞれにターミナルで入り込んでインスタンス内からサイトにアクセスします。
最初の1台だけ下図の左端のターミナル画面のようになるはずですが、あとの2台（真ん中、右端）の結果からキャッシュが効いてることが確認できます。

最後に、ServiceDefinition.csdef と ソリューションエクスプローラーからのフォルダ構成 を載せておきます。
[ ServiceDefinition.csdef ]

<?xml version="1.0" encoding="utf-8"?>
<ServiceDefinition name="AppFablicCaching" xmlns="http://schemas.microsoft.com/ServiceHosting/2008/10/ServiceDefinition">
  <WebRole name="WebSiteHost" vmsize="ExtraSmall">
    <Sites>
      <Site name="Web">
        <Bindings>
          <Binding name="Endpoint1" endpointName="Endpoint1" />
        </Bindings>
      </Site>
    </Sites>
    <Endpoints>
      <InputEndpoint name="Endpoint1" protocol="http" port="80" />
      <InternalEndpoint name="EndpointAppfablic" protocol="tcp">
        <FixedPortRange max="22236" min="22233" />
      </InternalEndpoint>
      <InternalEndpoint name="EndpointWCF" protocol="tcp" />
      <InternalEndpoint name="EndpointRPCDynamic" protocol="tcp">
        <FixedPortRange max="65535" min="49152" />
      </InternalEndpoint>
      <InternalEndpoint name="EndpointRPC-EPMAP" protocol="tcp" port="135" />
      <InternalEndpoint name="EndpointNP-In" protocol="tcp" port="445" />
    </Endpoints>
    <Imports>
      <Import moduleName="Diagnostics" />
      <Import moduleName="RemoteAccess" />
    </Imports>
    <ConfigurationSettings>
    </ConfigurationSettings>
    <Runtime executionContext="elevated">
    </Runtime>
  </WebRole>
  <WorkerRole name="SMBHost" vmsize="ExtraSmall">
    <Imports>
      <Import moduleName="Diagnostics" />
      <Import moduleName="RemoteAccess" />
      <Import moduleName="RemoteForwarder" />
    </Imports>
    <Endpoints>
      <InternalEndpoint name="EndpointSMB" protocol="tcp" port="445" />
    </Endpoints>
    <ConfigurationSettings>
    </ConfigurationSettings>
    <Runtime executionContext="elevated">
    </Runtime>
  </WorkerRole>
</ServiceDefinition>

ClusterConfig.xml ファイルは後生大事に永続化を計らずに、Worker ロールで ReImage が起こった際には、いっそのこと気持ちよく吹っ飛ばしたほうが楽かな～と（Worker ロールのIP変わる可能性を考えると）。なので、対策らしい対策は施していません。（ClusterConfig.xml が無くなっても 当面キャッシュ機能は Web ロールのインスタンス同士で持ちつ持たれつで稼働し続けます。また Web ロール全台が ReImage かかったとしても再度 ClusterConfig.xml 作ります。）

Web ロールで ReImage 起こった際には、一時的に例外が発生しますが 少し間をおけばクラスター構築されてキャッシュの共有がされます。なお、Primary で ReImage が起きた際には 他のインスタンスが Primary に昇格します。

あと、PowerShell の Register-CacheHost コマンドレットで、NetBIOS名（UDP137なので…）を引こうとしたりするため、HOSTS で無理やり処理させたりしている部分と、ロールを1個にまとめられなかったのが ちょっと面白くないけど、ネタとしてはココまでで。

[ 参考 ]
http://msdn.microsoft.com/ja-jp/library/hh351318.aspx
http://blogs.msdn.com/b/tsmatsuz/archive/2010/07/09/windows-server-appfabric-cache-velocity.aspx
http://weblogs.asp.net/britchie/archive/2010/10/26/configuring-appfabric-session-hosts-dynamically.aspx

 
 
とりあえず、NLIST コマンドで一覧を取ってくる方法。

$ftpReq = [System.Net.FtpWebRequest]::Create("ftp://url/")
$ftpReq.Credentials = New-Object System.Net.NetworkCredential("username","password")
$ftpReq.Method = [System.Net.WebRequestMethods+ftp]::ListDirectory
$ftpReq.KeepAlive = $true
$ftpReq.UseBinary = $true
$ftpReq.UsePassive = $false
$ftpReq.TimeOut = 10000

$ftpRes = [System.Net.FtpWebResponse]$ftpReq.GetResponse()
$streamReader = New-Object System.IO.StreamReader($ftpRes.GetResponseStream())
"NLIST STATUS: {0}{1}" -f $ftpRes.StatusDescription, $streamReader.ReadToEnd()

$streamReader.Close()
$ftpRes.Close()

 
 
で、STOR コマンドでアップロードする方法。

$ftpReq = [System.Net.FtpWebRequest]::Create("ftp://url/test.zip")
$ftpReq.Credentials = New-Object System.Net.NetworkCredential("username","password")
$ftpReq.Method = [System.Net.WebRequestMethods+ftp]::UploadFile
$ftpReq.KeepAlive = $true
$ftpReq.UseBinary = $true
$ftpReq.UsePassive = $false
$ftpReq.TimeOut = 10000

$stream = $ftpReq.GetRequestStream()
$fileStream  = New-Object System.IO.FileStream("c:\temp\labo.zip", [System.IO.FileMode]::Open, [System.IO.FileAccess]::Read)
$bytes = New-Object System.Byte[](1024)
while($true)
{
      $size = $fileStream.Read($bytes, 0, $bytes.Length)
      if($size -eq 0)
      {
            break;
      }

      $stream.Write($bytes, 0, $size)
}
$fileStream.Close()
$stream.Close()

$ftpRes = [System.Net.FtpWebResponse]$ftpReq.GetResponse()
"STOR STATUS: {0}" -f $ftpRes.StatusDescription
$ftpRes.Close()

 
 
最後に、RETR コマンドでダウンロードする方法。

$ftpReq = [System.Net.FtpWebRequest]::Create("ftp://url/test.zip")
$ftpReq.Credentials = New-Object System.Net.NetworkCredential("username","password")
$ftpReq.Method = [System.Net.WebRequestMethods+ftp]::DownloadFile
$ftpReq.KeepAlive = $true
$ftpReq.UseBinary = $true
$ftpReq.UsePassive = $false
$ftpReq.TimeOut = 10000

$ftpRes = [System.Net.FtpWebResponse]$ftpReq.GetResponse()
$stream = $ftpRes.GetResponseStream()
$fileStream  = New-Object System.IO.FileStream("c:\temp\labo1.zip", [System.IO.FileMode]::Create, [System.IO.FileAccess]::Write)

$bytes = New-Object System.Byte[](1024)
while($true)
{
      $size = $stream.Read($bytes, 0, $bytes.Length)
      if($size -eq 0)
      {
            break;
      }

      $fileStream.Write($bytes, 0, $size)
}
$fileStream.Close()
$stream.Close()

"RETR STATUS: {0}" -f $ftpRes.StatusDescription
$ftpRes.Close()

※$ftpReq.KeepAlive = $true にしているのでサーバーからログアウトしていません。そのため、上記を続けて実行することはできません。

WebRoleやWorkerRoleで、ocsetup.exeでSISをインストールしてみたのですが、2008でも2008R2でもインストール成功には至らず、ではストレージサーバーでは？と思ったので、VMロールでWindows Storage Server 2008 R2を動かしてみました。

1. 仮想マシンの用意
StorageServer2008R2 は、それ単体のOSとしてインストールするわけではなく WindowsServer2008R2 にMSUを適用することで StorageServer になります。
また、StorageServer2008R2 には 3種類のエディションが存在しており、それぞれ、WindowsServer2008R2 のエディションによって利用できるエディションが変わります。
詳しくは、次の エディション比較 をご覧ください。

今回は SIS の動作を確認するため、Windows Storage Server 2008 R2 Standard を使いますので、WindowsServer2008R2 の Standard エディションをインストールします。

2. 統合コンポーネントのインストール
OSセットアップ後、SP1の適用などWindowsを最新の状態にしておきます。
Update完了後、機能の追加から[.NET Framework 3.5.1]のインストールを行います。

インストールが完了したら、[C:\Program Files\Windows Azure SDK\v1.6\iso\wavmroleic.iso]をマウントして[WaIntegrationComponents-x64.msi]のインストールを行います。

3. Windows Storage Server 2008 R2
Storage Server 2008 R2にするためのモジュールの適用を行います。
ダウンロードした Windows_Storage_Server_2008_R2.iso をマウントして、[Windows Storage Server 2008 R2]フォルダを参照して[Windows6.1-KB982049-x64-StandardBranding.MSU]実行したあと[Windows6.1-KB976833-x64-SIS.msu]と[Windows6.1-KB976836-x64-OOBE.msu]を実行します。

※Windows6.1-KB982049-x64-StandardBranding.MSUを実行すれば、Storage Server 2008 R2になります。

4. SysprepとVHDのアップロード
c:\Windows\System32\sysprep\sysprep.exe を実行して、下記のように選択して実行します。
システム クリーンアップ アクション：システムの OOBE（Out-of-Box Exprience）に入る
[一般化する]のチェックボックスをON
シャットダウンオプション：シャットダウン

シャットダウンしたら、Windows Azure SDK Command Promptを管理者モードで実行して、下記のようにcsuploadコマンドを実行します。

csupload Set-Connection SubscriptionId=xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx（サブスクリプションID）;CertificateThumbprint=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx（証明書サムプリント）"
csupload Add-VMImage -LiteralPath C:\Temp\Labo.vhd（VHDファイルのパス） -Location "East Asia（地域）" -Name WSSRole.vhd（VMイメージのVHDファイル名）

5. デプロイ
VisualStudioを起動してVMロールを追加し、先ほどアップロードしたVHDを選択し、リモートデスクトップを有効にしてデプロイします。
※今回は、SISの設定については手動で行ってみますのでRDPを有効にしています。

6. SISの設定と動作確認
デプロイが正常に完了したら、リモートデスクトップで接続してStorage Serverで稼働していることを確認します。

SISの動作確認としては、今回は Dドライブに割り当てられている Resourcesドライブに対して有効にして簡単に動作を確認してみたいと思います。
まずは試しにDドライブに、Tempという名前でフォルダを作成し、そのフォルダ内に C:\inetpub\wwwroot\welcome.png ファイルを50個ぐらいコピーして、ファイル50個のサイズを確認します。

次に、下記のコマンドで、Dドライブに対してSISを有効にしてみます。

sisadmin /i d:

再度、ファイル50個のサイズを確認して、サイズが減っているようであればSISが機能していることになります。

※一応、下記のコマンドなどで詳細は確認できます。

sisadmin /v

以上で VMロールを使って Windows Storage Server 2008 R2 を動かしてみようというネタなんですが・・・
MSUファイルを適用すれば StorageServer になるなら、WebRole の2008R2インスタンスでも・・・

cscfg でOSを2008R2になるようして、csdef ファイルに startuptask を管理者権限で実行するように追加します（TaskType は SimpleでOKです）。で、実行するコマンドを下記の様にします。

@echo off
sc config wuauserv start= demand
wusa.exe "%~dp0modules\Windows6.1-KB982050-x64-EnterpriseBranding.MSU" /quiet
sc config wuauserv start= disabled

※WebRoleとかの2008R2は、Enterprise版なので [Windows6.1-KB982049-x64-EnterpriseBranding.MSU] を利用しています。

以上の設定をして、あとはデプロイすれば StorageServer としてインスタンスが上がってきます。

WebRoleとかの場合の、エラー処理とかSISのパッチを適用した際の再起動問題のことは、とりあえず意識の外の置いておきます。

やったことはタイトル通りなんですが、DFSのレプリケーションの仕組みを利用して、AzureストレージをDFSレプリケーションのターゲットフォルダに指定して、データの同期をさせてみました。

実験環境としては、オンプレミス上にWindows2008R2のドメインに参加したメンバサーバーを1台用意して、DFSの役割を追加して、さらに別のマシンに適当に共有フォルダを作成しておきます。
Azure上には、前回のiSCSIネタのインスタンスを用意して、オンプレミスのマシンでiSCSIドライブをマウントします。
※今回の実験ではZドライブにマウントしています。

下図のような感じでDFS名前空間を作成します。

Zドライブに共有フォルダを作成して、[DFSの管理]からレプリケートフォルダーを作成します。
※ココでは[Temp]のレプリケートフォルダを作成し、ZドライブにReplicaという名前の共有フォルダを作成しています。

別共有フォルダのレプリケート元となる共有フォルダにテストデータを配置して、下図のようにDFSレプリケーションの設定を行えば、Zドライブに同期がかかります。

参考：
Windows Server 2008 R2 で DFS-R の設定
Windows Azure に iSCSI 接続する

それでは、本題です。
内容としては、WebRole に Microsoft iSCSI Software Target をインストールして、オンプレ上の iSCSI Initiator から接続する。という内容です。
さらに、クライアントでマウントしたドライブはデータの永続性を持ったドライブとして利用したいので、iSCSI Target は、AzureDrive 上にデバイスを作成するようにしています。

■ダウンロード先
Microsoft iSCSI Software Target 3.3
http://www.microsoft.com/download/en/details.aspx?id=19867

 
それでは設定方法です。
■1. WebRole を1個持ったソリューションを作成します。

■2. 上記のダウンロード先から、英語版の [Microsoft iSCSI Software Target 3.3] をダウンロードします。

■3. ダウンロードした [iSCSITargetDLC.exe] を実行して解凍したフォルダの中に [x64] フォルダがありますので、その中の [iscsitarget_public.msi] を、ソリューションエクスプローラー上にある、WebRole1のアプリケーション以下に drag&drop します。

■4. ソリューションエクスプローラー上で [iscsitarget_public.msi] ファイルのプロパティにある [出力ディレクトリにコピー] を [常にコピーする] に変更します。

■5. ServiceDefinition.csdef を開いて、下記の管理者特権の設定を追加をします。

<Runtime executionContext="elevated"></Runtime>

 
■6. ソリューションエクスプローラー で、WebRole1のアプリケーション以下に下記の内容で [start.ps1] という名前のファイルを作成して、プロパティにある [出力ディレクトリにコピー] を [常にコピーする] に変更します。

# iSCSI Target で作成するVHDファイルのパス
$AzureDrive = Get-PSDrive | ?{ $_.Description -eq "WindowsAzureDrive"}
$AzureDriveVhd = $AzureDrive.Root + "sample001.vhd"

# モジュールの追加
Import-Module MicrosoftiSCSITarget

# ターゲットの作成（InitiatorId は接続するイニシエーターのIQNを設定）
New-IscsiServerTarget `
 -TargetName myTarget `
 -InitiatorId iqn:iqn.1991-05.com.microsoft:xxxxxxxxxx `
 | out-null

# iSCSI用VHD作成
New-IscsiVirtualDisk `
 -DevicePath $AzureDriveVhd `
 -Size 10MB `
 | out-null

#ターゲットとVHDのマップ
Add-VirtualDiskTargetMapping `
 -TargetName myTarget `
 -DevicePath $AzureDriveVhd

# ターゲットのIQNの変更（デフォルトだとhogehoge部分がコンピュータ名(rdなんたらかんたら)になるため、事前に決め打ちにしておく）
Set-IscsiServerTarget `
 -TargetName myTarget `
 -TargetIqn iqn.1991-05.com.microsoft:hogehoge-mytarget-target `
 -Force

 
■7. ソリューションエクスプローラーから参照設定で [Microsoft.WindowsAzure.CLoudDrive] を追加し、下図のように WebRole1 のプロパティで [エンドポイント] や [ローカルストレージ] の設定をします。
また、[設定] の部分で StorageConnectionString の名前で、Azureストレージの設定をします。




 
■8. WebRole.cs を開いて、下記のように設定をします。

using Microsoft.WindowsAzure;
using Microsoft.WindowsAzure.ServiceRuntime;
using Microsoft.WindowsAzure.StorageClient;
using System.Diagnostics;
using System;

namespace WebRole1
{
    public class WebRole : RoleEntryPoint
    {
        private CloudDrive AzureDrive4iSCSI;

        public override bool OnStart()
        {
         // Azure Drive の設定
            string connString = RoleEnvironment.GetConfigurationSettingValue("StorageConnectionString");
            CloudStorageAccount storageAccount = CloudStorageAccount.Parse(connString);
            LocalResource localCache = RoleEnvironment.GetLocalResource("LocalStorage1");

            CloudDrive.InitializeCache(localCache.RootPath + "cache", localCache.MaximumSizeInMegabytes);
            CloudBlobClient blobClient = storageAccount.CreateCloudBlobClient();
            CloudBlobContainer blobContainer = blobClient.GetContainerReference("iscsitarget");
            blobContainer.CreateIfNotExist();

            string vhdName = RoleEnvironment.CurrentRoleInstance.Id + ".vhd";
            AzureDrive4iSCSI = storageAccount.CreateCloudDrive(blobContainer.GetPageBlobReference(vhdName).Uri.ToString());
            try
            {
                AzureDrive4iSCSI.Create(1024);
            }
            catch { }
            string driveLetter = AzureDrive4iSCSI.Mount(128, DriveMountOptions.Force);

         // iSCSI Software Target のインストールと設定
            string cmdExe = Environment.GetEnvironmentVariable("ComSpec");
            string cmdParam = "\" /c msiexec.exe /i " + Environment.ExpandEnvironmentVariables(@"%RoleRoot%\approot\bin\iscsitarget_public.msi") + " /qn\"";
            string psExe = Environment.GetEnvironmentVariable("WINDIR") + @"\System32\WindowsPowerShell\v1.0\powershell.exe";
            string psParam = Environment.ExpandEnvironmentVariables(@"%RoleRoot%\approot\bin\start.ps1");

            ExecuteCommand(cmdExe, cmdParam);
            ExecuteCommand(psExe, "-executionpolicy remotesigned -file " + psParam);

            return base.OnStart();
        }

        public override void OnStop()
        {
            AzureDrive4iSCSI.Unmount();

            base.OnStop();
        }

        private static void ExecuteCommand(string exe, string arguments)
        {
            using (Process p = new Process())
            {
                p.StartInfo.FileName = exe;
                p.StartInfo.Arguments = arguments;
                p.StartInfo.CreateNoWindow = true;
                p.StartInfo.UseShellExecute = false;
                p.StartInfo.RedirectStandardError = true;
                p.StartInfo.Verb = "RunAs";
                p.Start();

                string results = p.StandardError.ReadToEnd();
                p.WaitForExit(60000);
                p.Close();
            }
        }
    }
}

 
■9. Windows Server 2008 R2 で利用するので、cscfg ファイルを開いて、osFamily の値を 2 に変更します。

■10. ココまで完了したら Azure にデプロイします。
そして次は、iSCSI Initiator 側の設定を行います。

Windows 7などが標準で持っているGUIベースのイニシエーターで設定をすると、ターゲットにログイン完了後、接続するフェーズでパケットの宛先にはプライベートIPアドレスがセットされているため、通信ができない状態になってしまいます。

この辺の内容に関しては SE の雑記 さんが VM Role で iSCSI Target を使ってみる という内容ですでに検証されていました。そして VMRole を用いた場合の解答例を示してくださっています。

そこで、これを回避するために iscsicli コマンドを用いて接続します。

なお、今回の方法では再起動のたびに接続しに行く必要がありますので、バッチファイルなどにしてタスクスケジュールなどで利用する方法になります。

iscsicli QaddTargetPortal xxxxx.cloudapp.net
iscsicli LoginTarget iqn.1991-05.com.microsoft:hogehoge-mytarget-target T xxxxx.cloudapp.net 3260 "ROOT\ISCSIPRT\0000_0" * * "0x00000002" * * * * * * * * * 0

 
■11. 無事に接続出来たらフォーマットかけて利用することが出来ます。


 
Azure 側で reImage などが走った場合、当然 接続が切れてしまいますが、上記の iscsicli コマンドを実行することで、再度 接続可能です。