Submitted by: Submitted by brucelaspinasr
Views: 127
Words: 2650
Pages: 11
Category: Science and Technology
Date Submitted: 09/24/2014 04:20 AM
Student Name | | Class | 230 | Date | 12/9/13 |
VBScript IP File Report
In the space provided below, copy and paste your IP_FileWrite.vbs program sourcecode. If it doesn’t fit, use the next page for the continuation of your program sourcecode.
' VBScript: IP_Filewrite.vbs
' Written by
' Date: 12/9/13
' Class: COMP230
' Professor: Wilson
' ===================================
' This initializes 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"
Const READ=1
Const WRITE=2
Const APPEND=8
dim filename, ipAddrStr, fso, ipFileObj
filename="IP_Address.csv"
ipAddrStr=""
Set fso=CreateObject("Scripting.FileSystemObject")
Set ipFileObj=fso.CreateTextFile(filename,True,ASCII)
For room = 0 to 5
For computer = 0 to 3
ipAddrStr = CStr(room+100) & "," & CStr(computer+1)_
& "," & ipAddress(room,computer) & vbCrLf
ipFileObj.Write(IpAddrStr)
Next
Next
ipFileObj.Close
Set ipFileObj = fso.OpenTextFile(fileName,READ,ASCII)
WScript.Echo ipFileObj.ReadAll
ipFileObj.Close
'...