Week 4
Student Name | | Class | 230 | Date | 2/2/13 | 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:
' Date: 02/2/13
' Class: COMP230
' Professor: Johnson
' ===================================
' Below is an initialize a 2-dimension
' array of IP Address. The 1st index
' +100 is the room# and the 2nd 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
Loop While room < 100 OR room > 105
Do
WScript.StdOut.Write("Please Enter the Computer Number (1-4) ...... ") compStr = WScript.StdIn.Readline() computer = CInt(compStr) If computer < 1 OR computer > 4 Then
' VBScript: IP_Array_start.vbs
' Written by:
' Date: 02/2/13
' Class: COMP230
' Professor: Johnson
' ===================================
' Below is an initialize a 2-dimension
' array of IP Address. The 1st index
' +100 is the room# and the 2nd 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
Loop While room < 100 OR room > 105
Do
WScript.StdOut.Write("Please Enter the Computer Number (1-4) ...... ") compStr = WScript.StdIn.Readline() computer = CInt(compStr) If computer < 1 OR computer > 4 Then