Llfile.Edescrip.File

COMP230_W4_IP_Array_Report Student Name | | Class | | Date | |

VBScript IP Array Lab Key

In the space provided below, copy and paste your VBScript Program Code. If it doesn’t fit, use the next page for the continuation of your sourcecode program

' VBScript: IP_Array.vbs

' Written by:

' Date:

' Class:

' Professor:

' ===================================

' This initialize a 2-dimension array

' of IP Address. The first index +100

' is the room# and the second index+1

' is the computer# in the room.

dim ipAddress(5,3)

ipAddress(0,0)="192.168.10.11"

ipAddress(0,1)="192.168.10.12"

ipAddress(0,2)="192.168.10.13"

ipAddress(0,3)="192.168.10.14"

ipAddress(1,0)="192.168.10.19"

ipAddress(1,1)="192.168.10.20"

ipAddress(1,2)="192.168.10.21"

ipAddress(1,3)="192.168.10.22"

ipAddress(2,0)="192.168.10.27"

ipAddress(2,1)="192.168.10.28"

ipAddress(2,2)="192.168.10.29"

ipAddress(2,3)="192.168.10.30"

ipAddress(3,0)="192.168.10.35"

ipAddress(3,1)="192.168.10.36"

ipAddress(3,2)="192.168.10.37"

ipAddress(3,3)="192.168.10.38"

ipAddress(4,0)="192.168.10.43"

ipAddress(4,1)="192.168.10.44"

ipAddress(4,2)="192.168.10.45"

ipAddress(4,3)="192.168.10.46"

ipAddress(5,0)="192.168.10.51"

ipAddress(5,1)="192.168.10.52"

ipAddress(5,2)="192.168.10.53"

ipAddress(5,3)="192.168.10.54"

' Define Script Variables

roomStr = ""

compStr = ""

room = 0

computer = 0

ans=""

'Prompt User for Room and Computer Numbers

Do

WScript.Echo "Please Enter the Room Number (100-105) ....."

roomStr = WScript.StdIn.ReadLine()

If (roomStr >= 100) And (roomStr = 100) And (roomStr