メモ帳

VBScript

最終更新：2009年09月11日 14:48

xxxstfxxx

- view

管理者のみ編集可

GUI/CUIチェック
実行時引数の取得

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

タグ：VBScript プログラミング
最終更新：0000年00月00日00時00分00秒
...

上へ

トップ > トップ > プログラム > WSH > VBScript
https://w.atwiki.jp/xxxstfxxx/

編集権：管理者のみ

合計： -
今日： -
昨日： -
トップページの合計： -

VBScript

GUI/CUIチェック

実行時引数の取得

メニュー

一覧

タグ

メニュー

Bookmark

DQM2イルルカ

ニコニコ動画

パズドラ

Wiki

Twitter

更新履歴