トップ > プログラム > WSH > VBScript

GUI/CUIチェック

　CUI（cscript）による実行時、WScript.Echo によるメッセージ表示は助かるのだが、 　エクスプローラーより実行した場合、メッセージボックスが毎度表示されるので、うざい。 　その判断方法は、

If IsCUI() Then
    WScript.Echo "Character-based User Interface."
Else
    WScript.Echo "Graphical User Interface."
End If

' -----------------------------------------------------------------------
' GUI/CUI 判断関数
' 
' Return: True = CUI
' -----------------------------------------------------------------------
Function IsCUI()
    Dim guiStr
    Dim guiStrLen
    
    guiStr = "WScript.exe"
    guiStrLen = Len(guiStr)
    
    If Len( WScript.FullName ) >= guiStrLen And Right( WScript.FullName, guiStrLen) = guiStr Then
        IsCUI = False
    Else
        IsCUI = True
    End If
End Function

実行時引数の取得

If WScript.Arguments.Count > 0 Then
    WScript.Echo "1番目の引数は、'" & WScript.Arguments.Item(0) & "'です。"
End If