Computer

Only available on StudyMode
  • Topic: Windows Script Host, IP address
  • Pages : 7 (1721 words )
  • Download(s) : 146
  • Published : December 9, 2012
Open Document
Text Preview
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=""...
tracking img