Week 4

Only available on StudyMode
  • Download(s) : 41
  • Published : February 16, 2013
Open Document
Text Preview
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"...
tracking img