VBScript Program Code: Lab
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 In the space provided below to copy and paste the remainder of your VBScript sourcecode.
' 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"
End If ' Query the IP Address in a given room
Do
WScript.StdOut.Write("Please Enter the Room Number (100-105) ..... ") roomStr = WScript.StdIn.ReadLine() If CInt(roomStr)105 Then WScript.StdOut.WriteLine(chr(7) & chr(7) & "Error, 100 to 105 Only!!!") Else room = Cint(roomStr)-100 End If
Loop While CInt(roomStr)105
Do
WScript.StdOut.Write("Please Enter the Computer Number (1-4) ..... ") compStr = WScript.StdIn.ReadLine() If CInt(compStr)4 Then WScript.StdOut.WriteLine(chr(7) &
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 In the space provided below to copy and paste the remainder of your VBScript sourcecode.
' 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"
End If ' Query the IP Address in a given room
Do
WScript.StdOut.Write("Please Enter the Room Number (100-105) ..... ") roomStr = WScript.StdIn.ReadLine() If CInt(roomStr)105 Then WScript.StdOut.WriteLine(chr(7) & chr(7) & "Error, 100 to 105 Only!!!") Else room = Cint(roomStr)-100 End If
Loop While CInt(roomStr)105
Do
WScript.StdOut.Write("Please Enter the Computer Number (1-4) ..... ") compStr = WScript.StdIn.ReadLine() If CInt(compStr)4 Then WScript.StdOut.WriteLine(chr(7) &