vbscript 来自http://www.tek-tips.com/viewthread.cfm?qid=1610438

Posted 2021-05-22

Function UserInput( myPrompt )
' This function prompts the user for some input. 
' When the script runs in CSCRIPT.EXE, StdIn is used, 
' otherwise the VBScript InputBox( ) function is used. 
' myPrompt is the the text used to prompt the user for input. 
' The function returns the input typed either on StdIn or in InputBox( ). 
' Written by Rob van der Woude 
' http://www.robvanderwoude.com
    ' Check if the script runs in CSCRIPT.EXE
    If UCase( Right( WScript.FullName, 12 ) ) = "\CSCRIPT.EXE" Then
        ' If so, use StdIn and StdOut
        WScript.StdOut.Write myPrompt & " " 
        UserInput = WScript.StdIn.ReadLine 
    Else 
        ' If not, use InputBox( ) 
        UserInput = InputBox( myPrompt ) 
    End If
End Function