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