64ビット環境でScriptControl

<?xml version="1.0" standalone="yes" encoding="Shift-JIS" ?>
<package>
<?component error="true" debug="true"?>

<comment>
   <![CDATA[
      ■WScriptオブジェクトの利用■
      別プロセスとしてWSHを起動し、そのコードを動的に生成することで
      ScriptControlの動きを実現させています。
      処理が動くのは別プロセスのWSH内なので、デフォルトでWSCript(またはWSH)
      オブジェクトを利用することができます。
      例：
         Set s = GetObject("script:C:\script\ScriptControlX64.wsc")
         s.Language = "VBScript"
         s.ExecuteStatement "MsgBox WScript.ScriptFullName"
      
         ' WScriptそのものが欲しい場合
         s.AddCode "Function getWSH: Set getWSH = WScript: End Function"
         Set w = s.Eval("getWSH()")
      
      ■Runメソッド■
      「Run(funcName, argArray)」メソッドは存在しません。
      EvalまたはCodeObjectを利用してください。
      例：
         Set s = GetObject("script:C:\script\ScriptControlX64.wsc")
         s.Language = "JScript"
         s.AddCode "function encode(s){ return encodeURI(s); }"
         target = "エンコードテスト"
         result = a.Eval("encode(""" & target & """);")
         ' または
         result = s.CodeObject.encode(s)
      
      ■CodeObjectについて■
      CodeObjectはWScriptの参照なので追加したメソッドを直接実行できます。
      オブジェクトのやり取りもAddObjectではなくCodeObjectを利用したほうが楽です。
      例：
         Set s = GetObject("script:C:\script\ScriptControlX64.wsc")
         s.Language = "VBScript"
         s.AddCode "Sub addDictionary(dict, key, value): dict.Add key, value: End Sub"
         Set dict = CreateObject("Scripting.Dictionary")

' AddObjectのパターン
         s.AddObject "dict", dict
         s.ExecuteStatement "addDictionary dict, ""key"", 111"
         
         ' CodeObjectのパターン
         s.CodeObject.addDictionary dict, "key", 111

■PowerShellからの利用■
      以下の形でPowerShellからもScriptControlX64を参照可能です。
         
         $s = [system.runtime.interopservices.marshal]::BindToMoniker("script:C:\script\ScriptControlX64.wsc")
         または
         [reflection.assembly]::LoadWithPartialName("'Microsoft.VisualBasic")
         $s = [Microsoft.VisualBasic.Interaction]::GetObject("script:C:\scriptcontrol\ScriptControlX64.wsc")
      
      この場合、メソッドコール時に渡す末尾の引数は$nullとしてください。
      例：
      
         $s = [system.runtime.interopservices.marshal]::BindToMoniker("script:C:\script\ScriptControlX64.wsc")
         $s | Get-Member
         
         Name             MemberType Definition
         ----             ---------- ----------
         AddCode          Method     Variant AddCode (Variant, Variant)
         AddObject        Method     Variant AddObject (Variant, Variant, Variant)
         Eval             Method     Variant Eval (Variant, Variant)
         ExecuteStatement Method     Variant ExecuteStatement (Variant, Variant)
         CodeObject       Property   Variant CodeObject () {get}
         Language         Property   Variant Language () {get} {set}
         
         $s.Language = "VBScript"
         $s.AddCode("Function getTypeName(v): getTypeName = TypeName(v):End Function", $null)
         $s.CodeObject | Get-Member
         
         Name        MemberType Definition
         ----        ---------- ----------
         getTypeName Method     Variant getTypeName (Variant)         
         
         $s.CodeObject.getTypeName((dir .\test.txt))
         FileInfo

■制限事項■
         1.「%TEMP%」フォルダに「ScriptControlX64.vbs」または「ScriptControlX64.js」が生成されます。
         2.内部利用向けの関数や変数が参照できてしまいます。
           末尾にアンダーバーが2つ「__」付いているものはScriptControlX64で使用している関数・変数です。
         3.網羅的な確認試験はできていないのでバグがいくつか含まれていると思います。

]]>
   </comment>

Const ShutDownWaitWQL = "select * from __instancecreationevent where targetinstance isa 'Win32_ComputerShutdownEvent'"

' Sleep処理：WMIでシャットダウン監視を指定時間だけ行う
      Sub Sleep(waitTime)
         On Error Resume Next
         Dim services
         Set services = getobject("winmgmts:root\cimv2")
         services.ExecNotificationQuery(ShutDownWaitWQL).nextEvent(waitTime)
         On Error GoTo 0
      End Sub

' エラー処理
      Sub throwError(msg)
         msgbox msg, 16, "ScriptControlX64"
         ' 内部エラーを発生させる(意味は無さそうだが一応)
         Err.Raise 51, "ScriptControl.wsc", msg 
      End Sub

]]>
   </script>

// Languageの変更はエラーとする
         if (Language && lang != Language) {
            throwError("Languageは既に " + Language + " として設定済みです。");
            return;
         }
         
         // JScript・VBScriptの指定に応じてコード内容と拡張子を決定する
         if ("jscript" == lang.toLowerCase()) {
            Language = "JScript";
            code = getResource("jsCode");
            fileExt = "js";
         } else if ("vbscript" == lang.toLowerCase()) {
            Language = "VBScript";
            code = getResource("vbsCode");
            fileExt = "vbs";
         } else {
            throwError("Languageには VBScript または JScript のみ設定可能です。");
            return;
         }
         
         // スクリプトは一時ディレクトリ配下に配置
         var tempDir  = fso.getSpecialFolder(2);
         var fileName = getResource("fileName") + "." + fileExt;
         var filePath = tempDir + "\\" + fileName;
         
         // スクリプトが存在しない場合は作成する
         if (!fso.FileExists(filePath)) {
            var stream   = fso.CreateTextFile(filePath);
            stream.Write(code);
            stream.Close();
         }

// IEオブジェクトを作成
         var ie = new ActiveXObject("InternetExplorer.Application");
         ie.Navigate2("about:blank");
         ie.PutProperty("creatorWshShell", shell);
         while (ie.Busy || ie.ReadyState != 4) {
            Sleep(100);
         }
         
         // スクリプトを起動しプロパティ設定まで待機
         var result = "NG"
         var wExec = shell.Exec("wscript.exe " + filePath + " " + ie.HWND);
         while (true) {
            Sleep(100);
            // 起動スクリプトが終了した場合はエラーを発生
            if (1 == wExec.Status) {
               throwError("スクリプトの処理に失敗しました。\n" + filePath);
               return;
            }
            // プロパティが設定されていれば準備完了とみなす
            if (ie.GetProperty("ExecuteStatement")) {
               break;
            }
         }
         
         // プロパティから値を取得
         CodeObject         = ie.GetProperty("CodeObject");
         addCodeMethod      = ie.GetProperty("AddCode");
         addObjectMethod    = ie.GetProperty("AddObject");
         evalMethod         = ie.GetProperty("Eval");
         exeStatementMethod = ie.GetProperty("ExecuteStatement");

// ieを終了
         ie.Quit();

return;
      }
      
      // CodeObjectを取得
      function get_CodeObject() {
         // Language未設定の場合はエラーとする
         if (!Language) {
            throwError("Languageが設定されていません。");
            return;
         }
         return CodeObject;
      }
      
      // 指定文字列をコードとして追加する
      function AddCode(code) {
         // Language未設定の場合はエラーとする
         if (!Language) {
            throwError("Languageが設定されていません。");
            return;
         }
         addCodeMethod(code);
         // JScriptの場合はコード追加処理の完了まで待機
         if ("JScript" == Language) {
            while (CodeObject.tmpCode__) {
               Sleep(20);
            }
         }
         return;
      }

// オブジェクトを追加する
      function AddObject(name, obj) {
         // Language未設定の場合はエラーとする
         if (!Language) {
            throwError("Languageが設定されていません。");
            return;
         }
         addObjectMethod(name, obj);
         return;
      }
      
      // 指定文字列をコードとして追加する
      function Eval(code) {
         // Language未設定の場合はエラーとする
         if (!Language) {
            throwError("Languageが設定されていません。");
            return;
         }
         return evalMethod(code);
      }

// 指定文字列をコードとして実行する
      function ExecuteStatement(code) {
         // Language未設定の場合はエラーとする
         if (!Language) {
            throwError("Languageが設定されていません。");
            return;
         }
         exeStatementMethod(code);
         return;
      }

]]>
   </script>

<resource id="fileName">ScriptControlX64</resource>

<resource id="vbsCode">
   <![CDATA[
   Option Explicit

' 一時格納要オブジェクト
   Private tmpObj__

call prepareScriptControl()
   WScript.Quit

' ScriptControl向けの準備を行う
   Private Sub prepareScriptControl

Dim wnd, hwnd, ie, whwnd

' 引数の数が0ではない場合は処理を中断
      If (WScript.Arguments.Count < 1) Then
         WScript.Quit
      End If
      
      ' 1番目の引数をプロセスIDとして持つIEを取得
      set ie = Nothing
      hwnd = WScript.Arguments.Item(0)
      For Each wnd in WScript.CreateObject("Shell.Application").Windows
         On Error Resume Next
         whwnd = Cstr(wnd.hwnd)
         On Error GoTo 0
         If (hwnd = whwnd) Then
            Set ie = wnd
            Exit For
         End If
      Next
      
      ' IEの取得に失敗した場合は処理を中断
      If (ie is Nothing) Then
         WScript.Quit
      End If
      
      ' IEのプロパティから作成元オブジェクト("creatorWshShell")を取得
      Dim creatorWshShell
      Set creatorWshShell = ie.GetProperty("creatorWshShell")
      
      ' IEのプロパティに各種情報を登録
      ie.PutProperty "CodeObject",       Me
      ie.PutProperty "AddCode",          GetRef("AddCode__")
      ie.PutProperty "AddObject",        GetRef("AddObject__")
      ie.PutProperty "Eval",             GetRef("Eval__")
      ie.PutProperty "ExecuteStatement", GetRef("AddCode__")
      
      ' 終了までループ
      Do While (true)
         If (Not healthCheck__(creatorWshShell)) Then
            WScript.Quit
         End If
         WScript.Sleep 5000
      Loop
      
   End Sub

' 内部利用向けのヘルスチェック関数
   Private Function healthCheck__(shell)
      Dim Description, HelpContext, HelpFile, Number, Source, tmp

' 前のエラー情報を保持
      With Err
         Description = .Description
         HelpContext = .HelpContext
         HelpFile    = .HelpFile
         Number      = .Number
         Source      = .Source
      End With
      
      ' エラーをクリアして呼び出し元のオブジェクトにアクセス
      Err.Clear
      On Error Resume Next
      tmp = shell.CurrentDirectory
      On Error GoTo 0
      
      ' 取得に失敗した場合やエラーが発生した場合(呼び出し元がいない場合)はFalseを返却
      If (tmp = vbNullString Or Err.Number <> 0) Then
         healthCheck__ = false
         Exit Function
      End If
      
      ' 問題ない場合はエラー情報を元に戻す
      With Err
         .Description = Description
         .HelpContext = HelpContext
         .HelpFile    = HelpFile
         .Number      = Number
         .Source      = Source
      End With
      
      healthCheck__ = true
      
   End Function

' 内部利用向けのコード追加関数
   Private Function AddCode__(code)
      ExecuteGlobal code
   End Function
   
   ' 内部利用向けのオブジェクト追加関数
   Private Function AddObject__(name, obj)
      Set tmpObj__ = obj
      ExecuteGlobal "Set " & name & " = tmpObj__"
   End Function

' 内部利用向けの評価関数
   Private Function Eval__(code)
      setVariable__ Eval__, Eval(code)
   End Function

' 値を変数に格納する
   Private Function setVariable__(byRef var, byRef val)
      Dim vType
      vType = VarType(val)
      ' TypeNameが「Object」または「オートメーション オブジェクト」または「非オートメーション オブジェクト」の場合
      If ("Object" = TypeName(val) Or 9 = vType Or 13 = vType) Then
         Set var = val
      Else
         var = val
      End If
   End Function

]]>
   </resource>
   
   <resource id="jsCode">
   <![CDATA[
   // 内部利用向けの変数
   var tmpObj__;
   var creatorWshShell__;
   var tmpCode__;

prepareScriptControl__();
   
   // 終了までループ
   while (true) {
      // 呼び出し元の死活チェック
      if (!healthCheck__(creatorWshShell__)) {
         WScript.Quit();
      }
      // AddCode処理
      if (tmpCode__) {
         eval(tmpCode__);
         tmpCode__ = null;
      }
      WScript.Sleep(100);
   }
   
   WScript.Quit();

// ScriptControl向けの準備を行う
   function prepareScriptControl__() {

var wnd, hwnd, ie;

// 引数の数が0ではない場合は処理を中断
      if (WScript.Arguments.length < 1) {
         WScript.Quit();
      }
      
      // 1番目の引数をプロセスIDとして持つIEを取得
      ie = null;
      hwnd = WScript.Arguments.Item(0);
      var wnds = WScript.CreateObject("Shell.Application").Windows();
      for (var i = 0; i < wnds.Count; i++) {
         if (hwnd == String(wnds.Item(i).HWND)) {
            ie = wnds.Item(i);
            break;
         }
      }

// IEの取得に失敗した場合は処理を中断
      if (!ie) {
         WScript.Quit();
      }
      
      // IEのプロパティから作成元オブジェクト("creatorWshShell")を取得
      creatorWshShell__ = ie.GetProperty("creatorWshShell");
      
      // IEのプロパティに各種情報を登録
      ie.PutProperty("CodeObject",       this);
      ie.PutProperty("AddCode",          AddCode__);
      ie.PutProperty("AddObject",        AddObject__);
      ie.PutProperty("Eval",             Eval__);
      ie.PutProperty("ExecuteStatement", Eval__);
      
   }

// 内部利用向けのヘルスチェック関数
   function healthCheck__(shell) {
      var description, number, tmp;

// 前のエラー情報を保持
      number      = Error.number;
      description = Error.description;
      
      // エラーをクリアして呼び出し元のオブジェクトにアクセス
      tmp = "";
      Error.number      = "";
      Error.description = "";
      try {
         tmp = shell.CurrentDirectory
      } catch (e) {
         // エラーが発生した場合(呼び出し元がいない場合)はFalseを返却
         return false;
      }
      
      // 取得に失敗した場合はFalseを返却
      if (tmp == "") {
         return false;
      }
      
      // 問題ない場合はエラー情報を元に戻す
      Error.number      = number;
      Error.description = description;
      
      return true;
   }

// 内部利用向けのコード追加関数
   function AddCode__(code) {
      tmpCode__ = code;
   }

// 内部利用向けのオブジェクト追加関数
   function AddObject__(name, obj) {
      tmpObj__ = obj;
      eval(name + " = tmpObj__;");
   }

// 内部利用向けの評価関数
   function Eval__(code) {
      return (0, eval)(code);
   }
   
   ]]>
   </resource>
   
</component>
</package>

64ビット環境でScriptControl

説明など

■WScriptオブジェクトの利用■

■Runメソッド■

■CodeObjectについて■

■PowerShellからの利用■

■制限事項■