VBScript

VBScriptで作成したプログラムを実行時にパラーメータ(引数)を渡して、そのパラメータ(引数)の値によって処理を条件分岐させたい場合のサンプルプログラム。

パラーメータ(引数)を渡したい場合以下のように半角スペースで渡したいパラメータ(引数)を半角スペースで区切って指定する。

スペースを含むパラメータを渡す場合は、"(ダブルクォーテーション)でくくる。

スクリプトファイル名.vbs パラメータ1 パラメータ2 パラメータ3...パラメータX
スポンサードリンク


VBScriptでパラメータ(引数)を受け取る方法

渡されたパラメータ(引数)をプログラムで受け取るには、WScriptオブジェクトのArgumentsプロパティを使用する。

オブジェクト変数に"Set"で"WScript.Arguments"をセットし、値の参照はそのオブジェクト変数にインデックス番号(0から開始)を指定する。

パラメータ数のカウントは、"オブジェクト変数名.Count"で取得できる。

サンプルプログラム

以下サンプルプログラムを記載。
Dim oParam
Set oParam = WScript.Arguments

MsgBox "渡されたパラメータの数は、" & oParam.Count & "個です。"

If oParam.Count <> 0 then
	for i = 0 to oParam.Count -1
		MsgBox i + 1 & "個目のパラメータは、" & oParam(i) & "です。"
	next
End If
上記のコードを"test.vbs"として"c:\temp"に保存して実行結果を試したい場合は、DOSコマンドプロンプトに以下のように入力して[Enter]を押せばOK。

引数を渡さない場合の例
c:\temp\test.vbs

引数を渡す場合の例
c:\temp\test.vbs a b c

スポンサードリンク

  

関連記事