' input.vbs '' @file '' WSH環境でのキー入力支援. '' @author AmaiSaeta. Option Explicit '' プロンプト文を表示し、キーボードからの入力を受け付ける. '' 実行環境がGUIの場合はダイアログボックスで、CUIの場合は標準入力から '' キー入力を受け付ける。 '' @param[in] prompt プロンプト文 '' @param[in] title ダイアログボックスのタイトル.CUI時無効. '' @param[in] default ユーザが何も入力しなかった場合の規定値 '' @return 入力内容 '' @note この関数が知らない実行環境上でこの関数を呼んだ場合、 '' 実行時エラーの51番(内部エラーです。)が発生する Public Function aslib_input(ByVal prompt, title, default) ' 実行環境の確定 Dim engineName engineName = LCase(Mid(WScript.FullName, InStrRev(WScript.FullName,"\")+1)) ' 入力受付 Dim res Select Case engineName Case "wscript.exe" ' GUI res = InputBox(prompt, title, default) Case "cscript.exe" ' CUI If default <> "" Then prompt = prompt & " (default: " & default & ")" & vbNewLine & "> " End If WScript.StdOut.Write(prompt) res = WScript.StdIn.ReadLine() If res = "" Then res = default Case Else Err.Raise(51) End Select input = res End Function