これ の続き。ようやくVB.NET/C#.NETからPowerShellのスクリプト関数を定義して実行する目処がつきました。

内容は長いのでこちらに 。

先日 の続き。未だSystem.Management.Automation.RunspaceにPowerShellスクリプト関数を定義して実行する方法がわからないので(2009/4/3 分かりました )、COM実装のMSScriptControl.ScriptControl使用に方針変更。

VB6ならば以下のようにすれば使えます。

1. Microsoft Script Control 1.0を参照設定
2. MSScriptControl.ScriptControlクラスのインスタンスを作成
3. Languageプロパティに言語を指定(今回は"VBScript")
4. AddCodeメソッドで関数を定義する
5. Runメソッドで定義した関数を呼ぶ

.NET上で作成したCOMインスタンスは開放処理しないとメモリに残り続ける という手間はあるようですが、.NET上でもCOMは.NET Frameworkとほぼ等価に扱えるため、同じ手法で実行できるはず。

が、トラブる。Runメソッドを呼ぶ段階になると

System.ArgumentException: HRESULT からの例外: 0x800A01C2 場所 MSScriptControl.ScriptControlClass.Run(String ProcedureName, Object[]& Parameters)

なる例外を出してしまいます。原因はRunメソッドが第2引数以降を可変長引数(VBでいうParamArray)を取るため。これの扱いは

環境	可変長引数の渡し方	型
Visual Studio 6/COM	Variant配列への参照	Object[]&
Visual Stduio .NET/.NET Framework	Object配列の実値	Object[]

と型が違います。Object[]の後の&の有無の違い。この一文字の有無で動作しないのだから、プログラムは難しいって逃げられるんだよな。.NET FrameworkとCOMの相互運用なんて難しそうなこと実現してるのだから、これぐらい何とかしてよ(つд`) > MS

呼ばれる側のMSScriptControlはバイナリでいじれないので、呼ぶ側がObject[]&型で引数を用意して渡す必要があります。C#ではrefを前に付ければObject[]&型を渡せる ようですが・・・VB.NETでどうやるんだろ、これ?

調べてもVB.NETで実現方法がわからなかったので、C#で以下のようなMSScriptControlを扱うクラスを作って対処することになりました。う〜ん、[oneway]のためだけにC#が必要 とか、凝った事するとなるとC#なんでしょうか・・・

using System;
using System.Collections.Generic;
using System.Text;

namespace MSScriptControlInterface
{
    public class ScriptControlInterface
    {
        protected MSScriptControl.ScriptControl mScriptControlInstance;

        public ScriptControlInterface()
        {
            //
            // TODO: Add constructor logic here
            //
            mScriptControlInstance = new MSScriptControl.ScriptControl();
            mScriptControlInstance.Language = "VBScript";
        }

        ~ ScriptControlInterface()
        {
            System.Runtime.InteropServices.Marshal.ReleaseComObject(mScriptControlInstance);
        }

        public void AddCode(String code)
        {
            mScriptControlInstance.AddCode(code);
        }

        public object Run(string name, object[] arguments)
        {
            return mScriptControlInstance.Run(name, ref arguments);
        }
    }
}

VB.NETだけでやる方法もあります。

1. AddCode()で定義する関数は
• 引数を取らないようにする
• 次のステップで渡すグローバル変数から引数を受け取る
2. 渡したい値はAddObject()でグローバル変数として入れておく
3. Eval()で関数を呼び、結果を受け取る (Eval("f()")など)

引数を取る関数を定義してEval("f(5,2)")のように式に引数を書き込めばAddObjectは不要ですが、変数やオブジェクトは渡せなくなります。

今週このネタ解決するだけで終わった orz

[参考]

1. VB 6プログラマーのためのVB.NET入門 第11回 (@IT)
2. Visual Studio .NET 2003 C#、Excel COM 操作
3. C#からVBS経由でExcel操作
4. COM オブジェクトの参照カウントを解放する (C#, VB.NET入門)

うわ、知らなかった。VBScriptで正規表現処理するVBScript.RegExpクラスなんてあったんだ。てっきり.NET Frameworkにしか無いと勘違いしてた。これ知ってれば、いくつかのVB6プログラムで仕様変更やあの手この手で代替処理しなくてもよかったのに orz

と恥をさらす記事でしたｗ

[参考]

• Clinick's Clinic on Scripting: 正規表現による Visual Basic Scripting Edition (VBScript) の機能強化(MSDN)
• VB,VBAで始める正規表現入門

先日 の続き。

流れは以下のようになるはず

1. RunspaceConfigurationインスタンスに関数を登録
2. そのインスタンスを引数にRunspaceFactory.CreateRunspace()でRunspaceインスタンスを生成
3. Runspace.Open()
4. Runspace.CreatePipeline()で関数を呼ぶ
5. このPipelineインスタンスにCommands.Add()メソッドでコマンドを入れる
6. PipelineインスタンスのInvoke()メソッドを呼んで実行
7. RunspaceインスタンスのClosePipeline()を呼んで終了

が、動かない＾＾；

まずRunspaceConfigurationインスタンスに関数を登録する方法が不明。とりあえずこれは棚上げにして、引数なしでRunspaces.RunspaceConfiguration.Create()を呼び、インスタンスを生成。

次にPipeline.Commands.Add()メソッドは、cmdletまたはcmdletをパイプで繋いだものしか受け付けてくれないこと。つまりPowerShell上で一行づつ入力する形式そのまんまですね。といってもPowerShellで関数定義するように

function add([double]$a,[double]$b){$a+$b}

なんて入れても、次のPipeline.Invoke()の時点でエラーとなり、目論見が外れる。

となると関数はPipelineを作成する前に定義されてなければいけなくなる。それができるのは棚上げにしたRunspaceConfigurationインスタンス。このインスタンスを作成するときに.psc1ファイルを指定可能。これ拡張子が似てますがPowerShellのスクリプトファイルである.ps1とは別物で、試しに上の関数addを定義するだけの.ps1ファイルを指定したら、XML形式じゃないと怒られた。

.psc1ファイルを作成するひとつの方法は、PowerShellでexport-consoleを実行すること。試しに関数addを定義後、

export-console -path .¥test

と打ち込むとこんなファイルができた。

<?xml version="1.0" encoding="utf-8"?>
<PSConsoleFile ConsoleSchemaVersion="1.0">
  <PSVersion>1.0</PSVersion>
  <PSSnapIns />
</PSConsoleFile>

うん、全く関数addの痕跡なしｗ このファイルを見る限り、どうやらSnapInのことしか記録してないっぽいです。

SnapInとは特殊な形式のDLLってことで正しいのでしょうか? Visual Studioでプロジェクト作って、PSSnapInを継承したクラスを作ってビルド、これでできたクラスはインストールすればcmdletとして扱われるみたいで、そうすればPipeline.Invoke()で実行できることでしょう。

しかし先日 にも書いたとおり、やりたいのは頻繁に変更される処理だけスクリプト化して柔軟性を増やすことなので、これでは本末転倒。今までスクリプト関数として処理していたものを、cmdletのパイプ繋ぎで実現(必要ならcmdletを作る)できるように考え方を変えないといけないのでしょうね。これ以上調べている時間もなさそうなので、今回もWindows Scripting Controlを使うことになりそうです。

[参考]コマンドレットの作成方法 (C#と諸々)

[2009/3/2 追記] つづき

以前作ったプログラムで、GUIが必要なので基本はVB6で作り、頻繁に変更が発生しそうな計算だけMSScriptControl.ScriptControlクラスを使った物を作りました。あらかじめAddCodeメソッドで外部のテキストファイルに書かれているVBScriptの関数を登録、計算時にRunメソッドで関数を呼ぶというものです。計算部分だけがテキストファイルで分離されているので、そこの差し替えだけでその場で対応が取れたりと柔軟に機能。自分としては結構うまくいった解決でした。

今回基本部分がVB.NETに変わったので、.NET Frameworkを利用できるPowerShellを利用しようかと、昨日から下調べを始めました。

VB.NETからはSystem.Management.Automation空間のクラスを使うらしい。事前にPowerShellをインストールし、Vista対応のWindows SDKをインストールするか、C#と諸々 を参考にSystem.Management.Automation.dllを入手して、プロジェクトに参照登録する必要があります。

以下、こうすれば動くのではないかという想像。まだ試してません。

1. RunspaceConfigurationインスタンスに関数を登録
2. そのインスタンスを引数にRunspaceFactory.CreateRunspaceでRunspaceインスタンスを生成
3. Runspace.Open
4. Runspace.CreatePipelineで関数を呼ぶ
5. Runspace.ClosePipeline

さてPowerShellの使い方を覚えようと、XMLファイルを読むのを試しに作ってみる。以下のVB.NETのコードは動くことを確認。

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim xmldoc As New System.Xml.XmlDocument
        xmldoc.Load("sample.xml")
        Dim rootelement As System.Xml.XmlElement = xmldoc.DocumentElement
        TextBox1.Text = rootelement.Name
    End Sub
End Class

んで、これと同じことをPowerShellでやろうとコマンドを打ち込む。

PS C:¥XML> $xmldoc = new-object System.Xml.XmlDocument
PS C:¥XML> $xmldoc.Load("sample.xml")
PS C:¥XML> $rootelement = $xmldoc.DocumentElement
PS C:¥XML> $rootelement.Name
PS C:¥XML> $rootelement.GetType()
null 値の式ではメソッドを呼び出せません。
発生場所 行:1 文字:21
+ $rootelement.GetName( <<<< )

あら? $rootelement.Nameは何も表示しないし、GetType()を呼ぶと$rootelementはnullだという。う〜ん使い方が悪いのかXMLが読めていないのか、よくわからない。

以前JMP Version4 をCOM Automationで使おうとしたとき、あるメソッドがVB6からは難なくアクセスできるのに、VBScriptからだとエラーになるという問題がありました(今は修正されていますし、該当バージョンでも回避法があります)。これはVB6とVBScriptが似ていても中身は別物ということに起因するらしいのですが、なんとなくそのことが頭を離れない。PowerShellもそんなことやってたりするの?

[参考]

• Configuring a Runspace Using RunspaceConfiguration (MSDN)
• C# 上で PowerShell スクリプトを実行する方法 (いげ太のブログ)

[2007/9/6 追記] どうもPowerShellからアクセスできるメソッドに制限があるらしい・・・