COMP230 Week 4

Topics: Windows Script Host, IP address, Web server Pages: 4 (458 words) Published: August 6, 2014
' ===================================
' 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 ans...
Continue Reading

Please join StudyMode to read the full document

You May Also Find These Documents Helpful

  • Comp230 Week 6 Ip File Report Essay
  • MAT 540 Week 4 Homework Essay
  • Comp230 wk4 Ilab Essay
  • Week 4 Essay
  • Comp230 Week 5 Essay
  • Week 4 Essay
  • Comp230 Week 5 Essay
  • Week 4 Essay

Become a StudyMode Member

Sign Up - It's Free