渡す引数

Question

私は ます。cscript // NOLOGO "％FILEPATH％以下の\のGetSys.vbs" など、いくつか、すでに書かれたコードを持っている>％PCKANRI％\ sysinf.txt。

これに1つの引数を追加してGetSys.vbsに渡すにはどうすればよいですか。私は%PCKANRI%の値を渡したいと思います。

私が試した -

cscript //Nologo "%FILEPATH%\GetSys.vbs" >%PCKANRI%\sysinf.txt %PCKANRI% 

と

cscript //Nologo "%FILEPATH%\GetSys.vbs" %PCKANRI% >%PCKANRI%\sysinf.txt 

をしかし、両方が動作しません。私は

Dim arg1 
arg1 = args.Item(0) 
MsgBox arg1 

を持ってGetSys.vbs で

私は空のメッセージNOxを取得します。

Answer 1

あなたはargsを初期化し、不足している引数に対処する必要があります。

type getsys.vbs 
Dim args : Set args = WScript.Arguments 
Dim arg1 
If 1 <= args.Count Then 
    arg1 = args(0) 
Else 
    arg1 = "No arguments!" 
End If 
WScript.Echo arg1 

cscript getsys.vbs 
No arguments! 

cscript getsys.vbs argument 
argument 

そして：

後のファイル仕様（... >%PCKANRI%\sysinf.txt %PCKANRI%を）追加の引数を置くが間違っている

申し訳ありませんが、私のミス。引数を最後に置くことは「うまくいく」。証拠：

cscript getsys.vbs argument > getsys.txt 

type getsys.txt 
argument 

cscript getsys.vbs > getsys.txt option 

type getsys.txt 
option