Comp230 Wk 4 Vbscript Ip Array
Student Name | | Class | Comp230 | Date | | 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.vbs
' Written by:
' Date: Ju
' 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.
' Define Script Variables 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" roomStr="" compStr="" room=0 computer=0 ansStr="" 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 chr(7) & chr(7) WScript.StdOut.WriteLine( "Error, 100 to 105 Only!!!") 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 WScript.StdOut chr(7) & chr(7)
' VBScript: IP_Array.vbs
' Written by:
' Date: Ju
' 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.
' Define Script Variables 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" roomStr="" compStr="" room=0 computer=0 ansStr="" 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 chr(7) & chr(7) WScript.StdOut.WriteLine( "Error, 100 to 105 Only!!!") 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 WScript.StdOut chr(7) & chr(7)