$value=inputbox("Type Something")
? $value
 

Function InputBox($Prompt,optional $Title, optional $defaultValue)
  Dim $output,$ffh,$rc,$tmpvbs
  $tmpvbs="%temp%\inputbox.vbs"
  $output="%temp%\inputbox.tmp"
  $ffh=freefilehandle()
  if open($ffh,$tmpvbs,5)=0
    $rc=writeline($ffh,'wscript.echo Inputbox("' + $prompt + '","' + $title + '","' + $defaultvalue + '")' + @CRLF)
    $rc=close($ffh)
    shell '%comspec% /c cscript "' + $tmpvbs + '" //nologo >"' + $output +'"'
    if open($ffh,$output)=0 $inputbox=readline($ffh) $rc=close($ffh) endif
    if exist($tmpvbs) del $tmpvbs endif
    if exist($output) del $output endif
  endif
Endfunction