Comp 230 Lab

Student Name | Walter Lockley | Class | Comp 230 | Date | 08/01/2013 |

VBScript IP Array Report

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_start.vbs

' Written by: Student Name

' Date: Today's Date

' Class: COMP230

' Professor: Professor Name

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

' 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 program variables

roomStr=""

compStr=""

room=0

computer = 0

Do

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

roomStr = WScript.StdIn.ReadLine

If IsNumeric(roomStr) Then

If (roomStr >= 100) And (roomStr <= 105) Then Exit Do

End If

WScript.Echo Chr(7)

WScript.Echo Chr(7)

WScript.Echo "Error, 100 to 105 Only!!!"

Loop

Do

WScript.echo "Please Enter the Room Number (1-4) ...... "

compStr = WScript.StdIn.ReadLine

If IsNumeric(compStr) Then

If (roomStr...