Week 4

Topics: IP address, Web server, Address space Pages: 11 (2217 words) Published: February 16, 2013
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
WScript.StdOut.WriteLine(chr(7) & chr(7) & "Error, 1 to 4 Only!!!") WScript.echo
End If
Loop While computer < 1 OR computer > 4
Wscript.StdOut.WriteLine(vbCrLf & "The IP Address in Room " & room & " for computer " & computer & " is " & ipAddress(room-100,computer-1)) WScript.Echo
' Display All IP addresses Y/N?
Do
WScript.StdOut.Write("Do you wish to Display all of the IP Addresses (Y/N) .... ") ans = WScript.StdIn.Readline()
If ans "Y" and ans "y" and ans "N" and ans "n" Then
WScript.StdOut.WriteLine(chr(7) & chr(7) & "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 = "y" then
WScript.Echo
for room = 0 to 5
for computer = 0 to 3
WScript.StdOut.WriteLine (vbCrLf & "The IP Address in Room " & room+100 & " for Computer " & computer+1 & " is " & ipAddress(room,computer)) Next
Next
End If
' VBScript: IP_Array_start.vbs
' Written by: D'Andre Coffer
' 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"...
Continue Reading

Please join StudyMode to read the full document

You May Also Find These Documents Helpful

  • Holy Week in Guatemala Essay
  • London Fashion Week: Summary Essay
  • It321 Week 1 Essay
  • Krazy 4 Copyright Case Essay
  • 4 Types of Courage Essay
  • Essay on Week-day Names and Thur
  • Essay on Week-day Names and Industrial Working Experience
  • Week-day Names and Capacity Essay

Become a StudyMode Member

Sign Up - It's Free