Comp230 Week6 Ilab

Submitted by: Submitted by

Views: 75

Words: 1505

Pages: 7

Category: Science and Technology

Date Submitted: 12/07/2014 05:47 PM

Report This Essay

Student Name | | Class | COMP 230 | Date | 12/1/2014 |

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_File_start.vbs

' Written by:

' Date:

' Class: COMP230

' Professor:

' ===================================

' 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"

'constants

const READ = 1, WRITE = 2, APPEND = 8, ASCII = 0

'Define the varibale fileName and initialize it

filename = "C:\Comp230\IP_Addresses.csv"

'Declare and Set fso to the "ScriptingFileSystemObject" using CreateObject

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

'Define the variable ipAddrStr and initialize it to ""

ipAddrStr = ""

'Create an object that works with file

Set ipFileObj = fso.CreateTextFile(filename,True,ASCII)

For room = 0 to 5

For computer = 0 to 3

ipAddrStr = CStr(room+100) & "," & CStr(computer+1) _

& ","...