引数を渡す

2013/02/12

Option Explicit
	Dim oParam

	Set oParam = WScript.Arguments
	Call Query_Exec(oParam(0),oParam(1))

Sub Query_Exec(Param1,Param2)
	
	WScript.Echo Param1 & " " & Param2

End Sub