' **********************************************************
' 引数の数
' **********************************************************
Function Argc

	Argc = WScript.Arguments.Count

End Function

' **********************************************************
' 引数の内容
' **********************************************************
Function Argv( nNo )

	Dim strRet

	on error resume next
	strRet = WScript.Arguments( nNo )
	if Err.Number <> 0 then
		strRet = Empty
	end if
	on error goto 0

	Argv = strRet

End Function

' **********************************************************
' スクリプト終了
' **********************************************************
Sub Quit

	WScript.Quit

End Sub

' **********************************************************
' 出力
' **********************************************************
Sub Print( strValue )

	Wscript.Echo strValue

End Sub

' **********************************************************
' スリープ
' **********************************************************
Sub Sleep( nMilliseconds )

	WScript.Sleep( nMilliseconds )

End Sub