Prompt the User to Display

I'm trying to write the code that follows the pseudocode shown below to prompt the user to specify if he or she wants to display the entire table of IP addresses.

' Display All IP Address Y/N?
Do
  Display Message
    "Do you wish to Display all of the IP Addresses (Y/N) ..... "
  Get User Response and assign it to variable ans
  If ans NOT "Y" & "y" & "N" & "n" Then
    Beep Speaker Twice
    Display Msg "Error, Y,y,N,n response Only!!!"
  EndIf
While ans NOT "Y" & "y" & "N" & "n"
 
If ans is "Y" OR ans is "y" Then 
  For room = 0 to 5
    For computer = 0 to 3
      Display "The IP Address in Room " toString(room+100) “for Computer "
              toString(computer+1) " is " ipAddress(room,computer)
    EndFor
  EndFor 
      EndIf   
===================================
I THINK the beginning should look like this:

'Display All IP Address Y/N?
  Do
    WScript.Echo "Do you wish to Display all of the IP Address (Y/N)......"
 ans =
 
 
Am I right?  Where can I find help with translation?

Well in part it depends on if you want popups or if you want to only interact at the command line.

comand line

Here is a very simple example of getting input at the command line:

Option Explicit
Dim oSTDIN
Dim nNumber
Set oSTDIN = WScript.STDIN
WScript.Echo "Enter a number"
nNumber = oSTDIN.ReadLine()
WScript.echo "You entered " & nNumber

Using WScript.Echo will place the cursor in the next line, though. It's probably better to use WScript.StdOut.Write instead.

The easiest way to check for a y/n response is to LCase() or UCase() the value:

If LCase(ans) <> "y" And LCase(ans) <> "n" Then
 '...
End If

Beeps can be sounded by echoing ASCII character 7:

WScript.Echo Chr(7) & Chr(7)