ドラッグ&ドロップされたファイル名を取得

Set objArgs = WScript.Arguments
if objArgs.Count <> 1 then
	WScript.Echo "ファイルをドラックしてください。一個だけだよ"
	WScript.Quit
end if

dim sInputFilename
sInputFilename = objArgs(0)
WScript.Echo sInputFilename