1次元のJScript配列を、1次元のSafeArrayに変換するサンプル

test1d.wsf

<?xml version="1.0" encoding="Shift_JIS" ?>
<package>
  <job>
    <script language="VBScript"><![CDATA[
      ' 1次元のJScript配列を、1次元のSafeArrayに変換する関数
      Function convertToSafeArray(jsArray)
        Dim length, result(), elem, i
        length = jsArray.length
        ReDim result(length-1)

        For i=1 to length
          elem = jsArray.shift()
          result(i-1) = elem
        Next

        convertToSafeArray = result
      End Function
    ]]></script>
    <script language="JScript"><![CDATA[
      // 1次元のJScript配列
      var arr = [1,3,6];

      // SafeArrayに変換
      var safeArray = convertToSafeArray(arr);
      printVBArray(new VBArray(safeArray));

      // デバッグ用：VBArrayを表示
      function printVBArray(vbArray) {
        for(var i=0; i<=vbArray.ubound(1); i++) {
          WScript.Echo("vbArray[" + i + "] = " + vbArray.getItem(i));
        }
      }
    ]]></script>
  </job>
</package>