Simple InputBox function

Question

I'm aware of a simple pop-up function for PowerShell, e.g.:

function popUp($text,$title) {     $a = new-object -comobject wscript.shell     $b = $a.popup($text,0,$title,0) }  popUp "Enter your demographics" "Demographics" 

But I am unable to find an equivalent for getting a pop-up to ask for input.

Sure, there is Read-Line, but it prompts from the console.

And then there is this complex function, which seems overkill for a script that will ask for input once or twice:

function getValues($formTitle, $textTitle){     [void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")      [void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")       $objForm = New-Object System.Windows.Forms.Form     $objForm.Text = $formTitle     $objForm.Size = New-Object System.Drawing.Size(300,200)     $objForm.StartPosition = "CenterScreen"      $objForm.KeyPreview = $True     $objForm.Add_KeyDown({if ($_.KeyCode -eq "Enter") {$x=$objTextBox.Text;$objForm.Close()}})     $objForm.Add_KeyDown({if ($_.KeyCode -eq "Escape") {$objForm.Close()}})      $OKButton = New-Object System.Windows.Forms.Button     $OKButton.Location = New-Object System.Drawing.Size(75,120)     $OKButton.Size = New-Object System.Drawing.Size(75,23)     $OKButton.Text = "OK"     $OKButton.Add_Click({$Script:userInput=$objTextBox.Text;$objForm.Close()})     $objForm.Controls.Add($OKButton)      $CANCELButton = New-Object System.Windows.Forms.Button     $CANCELButton.Location = New-Object System.Drawing.Size(150,120)     $CANCELButton.Size = New-Object System.Drawing.Size(75,23)     $CANCELButton.Text = "CANCEL"     $CANCELButton.Add_Click({$objForm.Close()})     $objForm.Controls.Add($CANCELButton)      $objLabel = New-Object System.Windows.Forms.Label     $objLabel.Location = New-Object System.Drawing.Size(10,20)     $objLabel.Size = New-Object System.Drawing.Size(280,30)     $objLabel.Text = $textTitle     $objForm.Controls.Add($objLabel)      $objTextBox = New-Object System.Windows.Forms.TextBox     $objTextBox.Location = New-Object System.Drawing.Size(10,50)     $objTextBox.Size = New-Object System.Drawing.Size(260,20)     $objForm.Controls.Add($objTextBox)      $objForm.Topmost = $True      $objForm.Add_Shown({$objForm.Activate()})      [void] $objForm.ShowDialog()      return $userInput }  $schema = getValues "Database Schema" "Enter database schema" 

Answer 1

Probably the simplest way is to use the InputBox method of the Microsoft.VisualBasic.Interaction class:

[void][Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic')  $title = 'Demographics' $msg   = 'Enter your demographics:'  $text = [Microsoft.VisualBasic.Interaction]::InputBox($msg, $title)