Apps

IE7の自動更新は誤爆だった?

YamaKen — Fri, 05 Oct 2007 23:27:00 GMT

インストーラを改めたIE7の自動更新経由での配信開始は本来もっと先のスケジュールのはずなのですが、本日、自動更新で IE7 が配布されるハプニングがありました。本来のスケジュールは少なくとも一カ月以上先(たぶん2008年2月かそこら)ですが、マイクロソフト側でオペレーションにいささか手違いがあった模様。モジュールのビルド自体は問題ないとして、配信予定より数カ月分、前倒しになってしまっていたのでした。各企業でそれぞれに必要な構成を維持している Common/Standard Operation Desktop Environment の構成に影響する恐れがあるという意味で、ちょっと気になるハプニングです。
なお、英語版のIE7リフレッシュ版は予定通りのリリースなので、こっちは問題なし。(これに伴い IE7 Blocker Toolkit も英語版のみアップデートあり。)
この件について、MVP for Windows Shell/Users のラムさんがウオッチされていたようなので、紹介しておきます。関連して日本語のアナウンスなども、必要と思われる範囲で記載がありますので、ご覧いただければと思います。

世の中は不思議なことだらけ: IE7は、予定外配信！

また、 WSUS を利用する環境では、再度コンテンツの同期を行ってみてから、確認をしてみてください。
なお、英語版に関するアナウンスは以下のURLをご参照ください。但し、配信予定は日付が古いままなので、今後更新があると見込まれます。(保証はありませんが。)

Automatic Delivery of Internet Explorer 7 for IT Professionals
http://technet.microsoft.com/en-us/updatemanagement/bb226738.aspx

メモ: MS-Access Discovery

YamaKen — Sat, 02 Jun 2007 03:06:00 GMT

VBScript の関数の使い方を掘っているうちにたどり着く。 VBA のネタがある様子なので、メモ。

MS-Access Discovery
http://x7net.com/~access/index.php

メモ: WMI で SNMP Trap を扱う(参考資料)

YamaKen — Sat, 26 May 2007 16:14:00 GMT

以下、リストアップしただけでまだ消化していないため、早めに片づけたい…。

Scripting with SWbemObject
http://msdn2.microsoft.com/en-us/library/aa393263.aspx
最近触れることの多い WMI を用いたスクリプトに関する記述。
Monitoring Events
http://msdn2.microsoft.com/en-us/library/aa392396.aspx
WMI で監視、トリガの仕掛けを作るときは、イベント通知の機能を利用する。イベントログに、とある特定エントリが追加されたときに何かのコマンドを実行するとか。
SWbemDateTime
http://msdn2.microsoft.com/en-us/library/aa393687.aspx
WMI で用いる、日付情報を格納するオブジェクト。用例あり。なお、CIM_DATETIMEも参照のこと。
Windows Management Instrumentation の秘密 - トラブルシューティングとヒント
http://www.microsoft.com/japan/technet/scriptcenter/resources/wmifaq.mspx
WMI を用いたスクリプト記述の際の注意点をまとめる文書。特に Q12 の非同期呼び出しはファイルオブジェクトの列挙などで注意しておきたい。
VBScript for Windows 2003
http://www.computerperformance.co.uk/Logon/VBScript/VBScript_Windows_Home.htm
参考になる解説、サンプルが多い。個別に触れないけど、ざっと見てみると良し。エラー処理とか。
KB 190273 INFO: Visual Basic for Applications Features Not in VBScript
http://support.microsoft.com/kb/190273/en-us
VBScript 3.0 までの話。 VBA にはあるが VBScript では存在しないとされているものを扱う。但し、現行のバージョンではわりと多くのものが、この中でもサポートされていると思う。
Happy Happy Island
http://www.happy2-island.com/vbs/
初心者向け解説とサンプル。
Doctor Scripto のスクリプトショップ - 午前 2 時、プロセスの所在を把握していますか
http://www.microsoft.com/japan/technet/scriptcenter/resources/scriptshop/shop0505.mspx
WMI を用いたスクリプティングを解説。解説自体も有用だがリンクを見逃さぬこと。
SNMP (TechNet Script Center)
http://www.microsoft.com/japan/technet/scriptcenter/scripts/network/snmp/default.mspx
SNMP を用いた情報取得のサンプルあり。トラップを受信するなどのサンプルが今後増えるといいのだけど。
SNMP Provider(WMI SDK)
http://msdn2.microsoft.com/en-us/library/aa393635.aspx
SNMP を WMI から利用する SNMP Provider に触れている。コレとセットにして、少し時間をかけて読み込みたいかな。
Receiving SNMP Events
http://msdn2.microsoft.com/en-us/library/aa393019.aspx
SNMP で受信したメッセージを WMI のイベント通知の仕掛けで扱うことについて簡単に触れている。これのほか、トラップを実際に受け止めるサンプルもどこかにあったはずなのだが、ちょっとすぐには見当たらず。イベントとして扱えるということは、ソレをトリガにして通知方法を作りこむなどの展開もあるはずなんだけど。
スクリプトにて SNMP
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=32644&forum=6&7
回答のうち air さんのモノに、濃い情報がまとまっていると思う。
wSnmpTrap - WinSNMP ツール
http://hp.vector.co.jp/authors/VA031427/wsnmp/
以前、河喜多君が使ってたもの。わりと手軽に snmp walk を行えるので良いかと思う。 NINO ほど手軽ではないと思うが、構成で苦しんだ記憶はない。
WMI と SNMP(Windows 2000)
http://www.microsoft.com/japan/technet/prodtechnol/windows2000serv/maintain/featusability/wmisnmp.mspx
SNMP を WMI で扱う、というネタに触れる。
WMI Error Constants
http://msdn2.microsoft.com/en-us/library/aa394559.aspx
WMI のエラー定数を扱う。
System Scripting Runtime 1.4(netal.com)
http://www.netal.com/sscrrun.htm
SNMP Manager オブジェクトなどもあるので、 WMI を使わずにトラップ受信を考えるときにネタにできるかな。
Alain Lissware 氏のサイト
http://www.lissware.net/
WMI チームの Alain Lissware 氏のサイト。WMI を用いた監視の仕掛けについての資料が多い。
Scripting Clinic
http://msdn2.microsoft.com/en-us/library/aa902511.aspx
少し古いが、 WMI Scripting Primer など、関連する記事あり。
Windows 2000 Scripting Guide
http://www.microsoft.com/resources/documentation/windows/2000/server/scriptguide/en-us/sagsas_overview.mspx
ADSI や WMI の基礎がわかりやすい。今は望むべくもないかもしれないが、日本語版が出ていれば、スクリプト作成の敷居は多分今よりずっと低くなってるんじゃないだろうか。
Tales From the Script - 2003 年 1 月 WMI イベントの概要
http://www.microsoft.com/japan/technet/community/columns/scripts/sg0103.mspx
この記事以外にもいくつか WMI の用例解説あり。
Microsoft Windows スクリプトに関する FAQ (TechNet スクリプトセンタ)
http://www.microsoft.com/japan/technet/scriptcenter/scrptfaq.mspx
Hey, Scripting Guy! 同様の語り口で FAQ 解説を展開。あのどこか抜けた口調、独特だと思う。

VBScript: Windows RSS Platform のフォルダオブジェクトの作成、存在確認、取得、削除を行ってみる

YamaKen — Sat, 19 May 2007 17:17:00 GMT

Windows RSS Platform ネタなコードがあんまり出回ってないようでもあるが、リファレンス確認しつつ、 Scripting.FileSystemObject や Outlook のフォルダ、ファイル、メッセージといったオブジェクトの動きをヒントにしてみると、わりと書きやすいと思う。

ObjFeedMgr の .CreateFolder/.CreateSubFolder がちょい効率悪い。使い方を工夫してフォローしたいかな。

追記: RootFolder のパスは空白です。ゆえに、RootFolder 直下ではフォルダでも Feed でも、フルパス(絶対パス)はそのオブジェクトの相対パスと一致します。

   1:  '' ファイル名: TestCreateRSSFolder.vbs

   2:  '' 作成者: YamaKen

   3:  '' バージョン: 1.0

   4:  '' 作成日: 2007.05.19

   5:  '' 目的: RSS Feed をしまうフォルダを作り、型とパスの確認を行う動きのサンプル。

   6:  '' やってること: ObjFeedManager を使って二階層のフォルダツリーを作り、パスと型を表示する。

   7:  ''               それが終わったらフォルダを削除。(注: 実際には利用しない名前のフォルダを使う。)

   8:  '' 引数: なし

   9:  '' 戻り値: RSS Folder の型、名前、パス(EchoArgType 関数の戻り値。)

  10:  '' 注意点:

  11:  '' ★  フルパスを一度では作れない

  12:  ''     「パスの末尾」にバックスラッシュ (\) を入れると、

  13:  ''      CreateFolder/CreateSubFolder/ExistsFolder/GetFolder/GetSubFolder などでエラーになる。

  14:  ''      CreateFolder/CreateSubFolder で扱えるのは 1 つの階層のみ。

  15:  ''      フルパスを一気に作ろうとするとこける。このため、どうしても、

  16:  ''      一個一個、一階層ごと、作ることになる。面倒くさいのだが。

  17:  ''      (前半部のパス存在確認と作成個所がそれ。)

  18:  ''      なお、Get したり存在確認したりする場合はフルパスでも問題ない様子。

19:

  20:  Dim ObjFeedMgr

  21:  Set ObjFeedMgr = CreateObject("Microsoft.FeedsManager")

22:

  23:  If Not ObjFeedMgr.ExistsFolder("Technology2\Exchange Server Podcasts2") Then

  24:      '' パスがなければ、作る

  25:      If Not ObjFeedMgr.ExistsFolder("Technology2") Then

  26:          ObjFeedMgr.RootFolder.CreateSubFolder("Technology2")

  27:      End If

28:

  29:      If Not ObjFeedMgr.ExistsFolder("Technology2\Exchange Server Podcasts") Then

  30:          ObjFeedMgr.GetFolder("Technology2").CreateSubFolder("Exchange Server Podcasts2")

  31:      End If

32:

  33:      '' RSS フォルダそれぞれでオブジェクトの型とパスの表示。

34:

  35:      '' どっちでも有効な値を取れるので、使うときは好きなほうを選ぶ。

36:

  37:      '' フォルダのフルパスをとるのではなく、それぞれのフォルダを Get するアプローチ。

  38:      EchoArgType(ObjFeedMgr.GetFolder("Technology2").GetSubFolder("Exchange Server Podcasts2"))

39:

  40:      '' フォルダのフルパス(絶対パス)がわかってるときは一気に取得。

  41:      EchoArgType(ObjFeedMgr.GetFolder("Technology2\Exchange Server Podcasts2"))

42:

  43:      Do while ObjFeedMgr.ExistsFolder("Technology2")

  44:          ObjFeedMgr.GetFolder("Technology2\Exchange Server Podcasts2").delete

  45:          ObjFeedMgr.GetFolder("Technology2").delete

  46:          If Err <> 0 Then

  47:              Exit Do

  48:              Wscript.StdOut.WriteLine Err.number & vbcrlf & Err.Source & vbcrlf &_

  49:                                       Err.Description

  50:              Err.Clear

  51:          Else

  52:              Wscript.StdOut.WriteLine "RSS Folder deletion completed."

  53:          End If

  54:      Loop

55:

  56:      Set ObjRSSRoot = Nothing

  57:      Set ObjFeedMgr = Nothing

58:

  59:  End If

60:

  61:  sub EchoArgType(strInput)

  62:      '' 型の確認と、 RSS Feed Folder オブジェクトならパスを表示。引数に、型を確認したいものを入れる。戻り値は型名、(と名前、パス)

  63:      Wscript.StdOut.WriteLine TypeName(strInput)

64:

  65:      If IsObject(strInput) = False Then

  66:          Wscript.StdOut.WriteLine strInput

  67:      ElseIf typename(StrInput) = "IFeedFolder" Then

  68:          Wscript.StdOut.WriteLine "Name: " & StrInput.Name

  69:          Wscript.StdOut.WriteLine "Path: " & StrInput.Path

  70:      End If

71:

  72:  End Sub

作成には 30 分程度かかった。(ちょっと時間かけすぎ。抱いている全体像、イメージが弱いから時間がかかる。)

メモ: IE7 Readiness Toolkit(2006 年) 収録の Windows RSS Platform 操作向けサンプルの定数が逆転??(VBScript)

YamaKen — Tue, 15 May 2007 01:19:00 GMT

自分のコードを見直していて発見。IE7 Readiness Toolkit で提供されている Windows RSS Platform 操作向けサンプルのうち、 vbscript フォルダにある RSSEventSample.vbs に次の記述がある。(30行目近辺)

この中で、定数の指定が気になる。いや、動作は正しいと思うけど、なんか気にかかる。イベントを使うときの Scope (適用範囲)と Mask (イベントのモトの区分。Feed なのか、 FeedFolder なのか、といった種類わけ。)の指定がなんか引っかかるんだよね。

            ' Register for the FeedDownloading event and download the feed

            Const FEM_FOLDEREVENTS = 1

            Const FES_SELF_AND_CHILDREN_ONLY = 2

            set objWatcher = objFeed.GetWatcher(FEM_FOLDEREVENTS, FES_SELF_AND_CHILDREN_ONLY)

            WScript.ConnectObject objWatcher, "watcher_"

            objFeed.Download()

イベントを利用するための .GetWatcher の書き方としては、

watcher = object.GetWatcher(scope, mask)

となるはずなので、おそらく上のサンプルでいう定数は、正しくは

Const FES_SELF_ONLY = 1
Const FEM_FEEDEVENTS = 2

とすべき。定数の場所と動きは正しい(Feed に掛ってるイベント。セットした Feed 自身がスコープ。)ので、ここはたぶん、サンプルスクリプトを用意して下さったチームの校閲抜けか何かではないかと思われる。FolderEvents が正しい意図とすると、この内容ではイベントを拾えないかも。(拾えるとしても、Feed に仕掛ければいいイベントで、ムダに上位を見張っても仕方あるまい。)本体の動きとしては Feed を作って、そのときにイベントをセットするのであり、フォルダの「購読している Feed 数が変化した」などのイベントを引っ掛けようとしているのではないのだから。

参考: MSDN Library

FEEDS_EVENTS_MASK Enumerated Type: http://msdn2.microsoft.com/en-us/library/ms686408.aspx

FEEDS_EVENTS_SCOPE Enumerated Type: http://msdn2.microsoft.com/en-us/library/ms686409.aspx

メモ: メンバの数え方(VBScript ほか)

YamaKen — Sun, 13 May 2007 18:31:00 GMT

言語の特性に係るネタじゃないから、該当するのは多分、VBScript だけじゃないのだと思うが。

Array → .Length プロパティ(ダメなら Ubound(Array)+1 にて。)

コレクション、辞書オブジェクトや RSSFeed/FeedItem: .Count プロパティ

Scripting.Dictionary を用いたインスタンスでは Keys/Items は Array で表現できる。順繰りに昇順、降順で中身表示も OK ということ。

なお、昨日各方面からアドバイスいただいたように、持ち歩いているモノは、順次クラスにまとめる方向で。

雑感: データ整理方針を持たなきゃ。

YamaKen — Sat, 12 May 2007 06:33:00 GMT

Windows RSS Platform を使いまわすための VBScript のコードを机上デバッグしていることは先にふれたとおりであるが、あとからあとからどんどん改善のアイデアが出てきて止まらない。すごく楽しいのだけど、いつ終わるのかわからないのがちょっと気にかかる。(tkinugaw さんに福生の Jesse James にて軽く目を通していただいた時点からは、原型はとどめているものの、わりと大幅に変更していると思う。)

見通しのつけやすい方向でコードを改善することは、とっても楽しいことなのだが、コードの出来具合、行数、仕上がりがまだイメージしきれないので、少し不安が残る。(今は 2500 行程度。印刷ボリュームを考えると、 3000 行超えたくないな…あんまり複雑なコトはやってないから。)

現在取り組んでいるのは問題解決ではなく(手入れ前に存在していた問題の解消は既に済んだ)、保守性を高める方向でのコード書換え、クラスの実装(実は初めて)などであり、いくつか、全体の見通しをつけ、保守点検個所をわかりやすくするための改善を画策している。

保守性を高めるためには各関数、サブプロシージャで冒頭に「何をするモノなのか」「引数」「戻り値」についてコメントをつけ、渡す変数を辞書オブジェクトやクラスを用いてできるかぎり一本化し、条件分岐を Array と繰り返し(For ... Next) に置き換えてみたりするなど行っている。

データ振り分け、内容整備に関連するコードを整理することで逆に行数が増えてきたのはちょっと驚く。目論見では 200 行削減の予定だったのだが、この部分だけで 300 行ちょい、増やす羽目になった。 orz

これだけの行数になると、見通しをつけづらい。変数や定数の定義がいちいち面倒になってくるので、できる限り辞書オブジェクトにパラメータを記述しておいて、辞書オブジェクト作成後の各処理はすべて同じ辞書オブジェクトを参照する形にしている。

Windows RSS Platform から取得しているデータについて、Podcast で触れる限り、 RSS Feed 上のデータ(文字列、日付、数値)は歯抜け、空白がわりと散見されるので、操作前に「値がセットされていない」旨を書き込むか、条件を作って、そうしたモノを特定の文字列に置き換え、整理する必要がある。

ここの処理部分はもともと IF 文と Select Case を用いて、さまざまな項目を基準に分岐を実装していたが、どうせなら書き方を整理し、 Array に纏めて繰り返し処理で流すほうがスマートと考えて、まとめてみたりしている。それぞれのルールはもともと 4 行程度のはずだったのだが、各ルール一本化の影響で(利用しない条件も含めて) 8 行追加、ルールは全部で 43 個(for i = 0 to 42) あるため、 8*43 = 344 行の増加となった。これ以外にも同様の振り分け処理で持つルール用データはまだまだいっぱいある。ちょっとクラクラしてきた。ただし、このデータ整理は必要とみているので、都度頭をひねるのではなく、何らかの指針、方針を纏めていったほうがいいだろうと思う。

このコードはプリントアウトすると 40 枚以上になるので、保管したり世代管理したりするのは、紙ではちょっと面倒くさくなる。(あくまで自分向けなので…)

印刷物にチェックしたりメモした部分をファイルに書き込んで、紙はさっさと棄てたい。反映しきるまでに、わりと時間がかかってしまうのが、もどかしい。修正後のイメージもすでに出来上がっていて、手を動かす部分が残っている状態。

そんなわけで、内容と読みやすさを変えない状態を維持しつつ、保守しやすさをもう少し強く意識したほうがいい、と自分に言って聞かせている。手を加えた結果が 3000 行超えなければ一旦終りにして、どこかに公開するとか、できればいいんだけど。公開するなら、C#/VB.NET あたりに移植してから外に出すかな。

メモ: VBScript と Visual Basic .NET 以降のものの変数の扱い

YamaKen — Sat, 05 May 2007 21:02:00 GMT

関数やサブプロシージャを作るときにちょっとポイントになると思うため、メモ。

既定では、渡し方(ByVal/ByRef) を指定していない変数は、 VBScript では ByRef つまり、モトの変数をそのまま「参照」して使う。Visual Basic .NET 以降の Visual Basic では、 ByVal で扱う。モトの変数のローカルコピーをメモリ空間上で新しく作って使う。リファレンスにしている MSDN ライブラリによると参照渡しでも値渡しでも、パフォーマンスには大きな差は生じないという。動きの面でたいして違わない場合は気にしないでもよいということかな。(CPU とメモリは節約できれば、したほうがいいと思うけど。)

VBScript を Visual Studio を用いて編集しようとしたところ、変数指定部分でことごとく、 ByVal により値渡しが行われていたため、このことに気づいた。コレクションや辞書オブジェクトなどを上位の処理から引き継いで使い回す(辞書オブジェクトに値を入れ込むなど。)ので、デフォが ByVal ではちょっと困るんだけどなぁ…

以下、リファレンスの参考箇所。

Visual Basic 言語の概念 - 方法: プロシージャ引数の値を変更する
http://msdn2.microsoft.com/ja-jp/library/6zxyfyzz(VS.80).aspx

.NET Framework 開発者ガイド Visual Basic の言語の変更
http://msdn.microsoft.com/library/ja/cpguide/html/cpconVisualBasicLanguageChanges.asp

今取り組んでいるコード、もっときれいな仕上がりにして、VB.NET や C# に移植しつつ、それぞれの言語を使ってモノを作る感触をつかみたいかな。
# 条件分岐や繰り返し処理の使い方で手間取るのはもうそろそろ卒業したい…

Jitta さん: 以前の既定の渡し方は ByVal ですね。
http://www.microsoft.com/technet/scriptcenter/guide/sas_sbp_cxzm.mspx?mfr=true

こういうのとか、 ASP でいうマーシャリングの話とかありますし。

雑感: 机上デバッグ (VBScript)

YamaKen — Sat, 28 Apr 2007 02:10:00 GMT

自分が書いた VBScript のコードを再構成するため、いくつかのソースコード(おもに Windows RSS Platform や WMI を用いた情報取得系のモノ)を紙に印刷して持ち歩いてみている。移動時間、通勤時間に、めげてる自分をノセて気合いを入れるために。この再構成は、保守性を高めるため。← ほかの言語への移植も視野に入れてのこと。(動作原理同じなら、適切な記述をすれば同じことができると目論む)

自分で書いたコードを追う際、ディスプレイと睨めっこするだけでは、どうしても取りこぼしが出てしまったりする。印刷して眼で追いつつ、ちまちまとデバッグをやってみた結果、紙に印刷すると、わりと読めたしバグ出しもペースが高まった。修正しおわったら、また何度か繰り返してコードを完成させないと。

印字してみると、例えばこんなことに気づいた:

これまで気づかなかった自分の癖いろいろ
コメント場所がメソッドの記述位置と違う(離れている)
条件分岐やエラー処理が甘い(メソッドと、「期待した(欲しい)データ」に合わせて作りこんでない)
関数名&変数名が結構いい加減 ← 「名は体を表す」のだから、もうちょいと、整理すべし
やたらプロシージャを外に出して関数化している(こちらは一応、意識的所作。)ので、関数の体系図か一覧がほしい (ASCII でいい)
繰り返し処理や配列のまとめ方、扱い方が判りづらい
データの持ち方、整理の仕方が原始的すぎ → 文字列操作なので整理はこんなものかもしれないが、データの格納の仕方が気に入らない。
データ整理及び振り分けルール記述部分が甘い(都度振り分けルール追加。これは非効率。)
閃き次第コードを起こしているので、纏まり感が薄い。スパゲッティ。論理的には考えてないので、記述順序がとびとび(閃きはいいが纏めろ)
SDK 見れば済む部分に余計なコメント入れてる

どれも動作に致命的な影響を及ぼす類のバグではないが、常日頃から気になっていたことでもある。纏めるのが苦手なのよね。

印刷したコードをみると、口頭で話したり、文章を書いている時と全く同じ自分がそこにいる。チカラワザと勢いと閃きだけじゃなくて、もっと論理的思考、構成力、説明能力を高めないと、展開が予想もつかないという事態は免れないだろうな。ちょっと落胆。

要件を纏めるところからやり直そうかしら... orz

メモ: 多次元配列(Array)の作り方(VBScript)

YamaKen — Tue, 16 Jan 2007 00:56:00 GMT

ASP-ML で、宣言後に Array() 関数にて多次元を設定することの可否について最近議論があったので、興味があって調べてみた。

リファレンスを調べての結論: VBScript では、多次元の要素を持つ配列(Array)は最高で 60 次まで、作ることが出来る。但し Dim/Redim のトキに言うもの。 Array () では Array(a,b,c) のように一次元の値を配列メンバにできるのみなので、 Array() で「多次元」の要素を指定したり、入れ込むことは出来ない。やるとすれば、変数宣言の時点で多要素の配列であると宣言した上で、各ポジションのモノに値を入れ込むときに使うくらいか。

で、作り方はというと。まず Dim するときに配列の個数を各次元ごとに宣言しておく。各次元 (dimension) での位置を指定して、別の Array を埋め込む。(こっちはあとでやってみよう。→「追記」したとおり。)

もうちょいベーシックなところに降りてみる。単なる数値をメンバとしての二要素の配列では、配列の作り方、値の入れ方、確かめ方は次のコードのようになる。

   1:  dim arrmulti(1,1)

   2:  '' ゼロ基点なので、こう宣言しても実際には二つの要素をしまう。

3:

   4:  arrmulti(0,0) = "aaa"

   5:  arrmulti(0,1) = "bbb"

   6:  arrmulti(1,0) = "ccc"

   7:  arrmulti(1,1) = "ddd"

8:

   9:  for i = lbound(arrmulti,1) to ubound(arrmulti,1) '' dimension (次元) の指定は基数が 1 なのでこうなる

  10:      for j = lbound(arrmulti,2) to ubound(arrmulti,2)

  11:          wscript.stdout.writeline arrmulti(i,j)

  12:          wscript.stdout.writeline "now processing: " & i & "," & j

  13:      next

  14:  next

参考: Platform SDK の VBScript Fundamental 中、 VBScript Variables の記述。

で、こんな ↓ 風にすれば、 Array のメンバに別の Array を持ってくることが出来る。

   1:  Option Explicit

2:

   3:  dim arrmulti(1,1)

   4:  dim inarray

   5:  dim i

   6:  dim j

   7:  dim k

   8:  dim l

9:

  10:  inarray = array(1,2,3,4,5)

  11:  arrmulti(0,0) = inarray

  12:  arrmulti(0,1) = "bbb"

  13:  arrmulti(1,0) = "ccc"

  14:  arrmulti(1,1) = "ddd"

15:

  16:  for i = lbound(arrmulti,1) to ubound(arrmulti,1)

  17:      for j = lbound(arrmulti,2) to ubound(arrmulti,2)

18:

  19:          select case true

  20:              case  isarray(arrmulti(i,j))

21:

  22:                  for k = lbound(arrmulti(i,j)) to ubound(arrmulti(i,j))

  23:                      wscript.stdout.writeline "now processing: " & i & "," & j & "," & k

  24:                      wscript.stdout.writeline arrmulti(i,j)(k)

25:

  26:                  next

27:

  28:              case else

29:

  30:                  wscript.stdout.writeline "now processing: " & i & "," & j

  31:                  wscript.stdout.writeline arrmulti(i,j)

32:

  33:          end select

34:

  35:      next

36:

  37:  next

先日の衣川さんのコメントにあったような、オブジェクトを配列のメンバにするのはまだウマく再現できてないですが。数値や文字列値と並べた上で列挙しようとするとランタイムエラーが…。orz