プログラマ用 .wsf

wsh.vbs

良く使うWSH 固有の基本処理です。
( IE や ASP では使用できません )

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