Computer

Topics: Windows Script Host, IP address Pages: 7 (1721 words) Published: December 9, 2012
Student Name| | Class| | 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_start.vbs
' Written by:Kamal
' Date: 11/25/2012
' Class: COMP230
' 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.
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"
' VBScript: IP_Array_start.vbs
' Written by:Kamal
' Date: 11/25/2012
' Class: COMP230
' 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.
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"

In the space provided below to copy and paste the remainder of your VBScript sourcecode.

'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 = "y" Then
WScript.Echo
For roomNum = 0 to 5
For compNum = 0 to 3
WScript.Echo "The IP Address in Room " & roomNum+100 & " for computer " & compNum+1 & " is " & ipAddress(roomNum,compNum) Next
Next
End If

'Define Script Variable
roomStr=""
compStr=""...
Continue Reading

Please join StudyMode to read the full document

You May Also Find These Documents Helpful

  • Computer Essay
  • Questions on Computer Basics and Software Research Paper
  • Computer Networking Essay
  • Ten Examples of Computer Scientists Essay
  • Atlantic Computer Essay
  • Intro to Computers Essay
  • History of Computers Essay
  • COMPUTER REPAIR Essay

Become a StudyMode Member

Sign Up - It's Free