' ******************************************************
' 引数の数
' ******************************************************
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 )

	Lbox.CopyToMemo( strValue & vbCrLf )

End Sub

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

	print nMilliseconds & " ミリ秒実行を休止します"
	WScript.Sleep( nMilliseconds )

End Sub

' ******************************************************
' メッセージボックス
' ******************************************************
Sub MsgOk( strValue )

	Lbox.MsgOk( strValue )

End Sub

' ******************************************************
' シングルクォートで囲む
' ******************************************************
Function Ss( strValue )

	Ss = "'" & strValue & "'"

End Function

' ******************************************************
' ダブルクォートで囲む
' ******************************************************
Function Dd( strValue )

	Dd = """" & strValue & """"

End Function

<JOB>
<COMMENT>
************************************************************
 オブジェクト定義
************************************************************
</COMMENT>
<OBJECT id="Lbox" progid="Lbox.BatchHelper" />
<OBJECT id="Fs" progid="Lbox.Fsystem" />
<OBJECT id="Database" progid="Lbox.Database" />
<OBJECT id="Ftp" progid="Lbox.Ftp" />
<OBJECT id="Outer" progid="Lbox.OuterDll" />
<OBJECT id="Prt" progid="Lbox.Prt" />
<OBJECT id="Window" progid="Lbox.Window" />
<OBJECT id="Wnet" progid="Lbox.Wnet" />

<OBJECT id="WshShell" progid="WScript.Shell" />
<OBJECT id="Fso" progid="Scripting.FileSystemObject" />

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT language="VBScript" src="BatchHelper.vbs"></SCRIPT>

<SCRIPT language=VBScript>
' **********************************************
' ここから処理を記述します
' **********************************************

print ( "Hello World!!" )
print "こんにちは"

if argc <> 0 then
	print "引数1:" & argv(0)
end if
if IsEmpty( argv(0) ) then
	print "引数 1 は指定されていません"
end if

MsgOk( "Hello World!!" )
MsgOk "こんにちは"

</SCRIPT>
</JOB>