COMP230 Week 4

' ===================================
' 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 Variable roomStr="" compStr="" room=0 computer=0

Do roomStr=InputBox("Please Enter the Room Number (100-105)....") room = CInt(roomStr)
If room < 100 Or room > 105 Then
WScript.Echo Chr(7) & Chr(7)
MsgBox("Error, 100 to 105 Only!!!")
End If
Loop While room < 100 Or room > 105

Do compStr=InputBox("Please Enter the Computer Number (1-4)....") computer = CInt(compStr)
If computer < 1 Or computer > 4 Then
WScript.Echo Chr(7) & Chr(7)
MsgBox("Error, 1 to 4 Only!!!")
End If
Loop While computer < 1 Or computer > 4

WScript.Echo "The IP Address in Room " & room & " for computer " & computer & " is " & ipAddress(room-100,computer-1)

'Display All IP Address Y/N?
Do
ans=InputBox("Do you wish to Display all of the IP Address (Y/N)....")
If ans "Y" And ans "y" And ans "N" And ans "n" Then
WScript.Echo Chr(7) & Chr(7)
MsgBox("Error, Y ,y,N,n response Only!!!")
WScript.Echo
End If
Loop While ans "Y" And ans "y" And ans "N" And ans "n"

If ans = "Y" Or