Submitted by: Submitted by uyyanli
Views: 169
Words: 283
Pages: 2
Category: Science and Technology
Date Submitted: 03/25/2013 08:42 PM
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