IP Array

Student Name

Class

Comp 230

Date

VBScript IP Array Report
In the space provided below, copy and paste your IP_Array.vbs Program Code. If it doesn’t fit, use the next page for the continuation of your sourcecode program
' VBScript: IP_Array.vbs
' Written by: Student Name
' Date: Today's Date
' Class: COMP230
' Professor: Professor Name
' ===================================
' Below is an 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 Variable roomStr="" compStr="" ansStr="" room=0 computer=0 ans=0
DO
WScript.StdOut.Write("Please Enter the Room Number (100-105) .....") roomStr = WScript.StdIn.Readline() room = CInt(roomStr)
If room < 100 OR room > 105 Then
WScript.StdOut.WriteLine(chr(7) & chr(7) & "Error, 100 to 105 Only!!!")
WScript.echo
End If
COMP230_Wk4_IP_Array_Report.docx
Revision Date: 1213
1
Loop While room < 100 OR room > 105
Do
WScript.StdOut.Write("Please Enter the Computer Number (1-4) ...... ")

In the space provided below to copy and paste the remainder of your IP_Array.vbs sourcecode. WScript.echo
End If
Loop While room <