Comp230 Week 6 Ip File Report

Only available on StudyMode
  • Download(s) : 1923
  • Published : October 28, 2012
Open Document
Text Preview
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:
' Class:
' 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"

Const READ=1, WRITE=2, APPEND=8, ASCII=0
fileName="C:\Scripts\IP_Addresses.csv"
Set fso = CreateObject("Scripting.FileSystemObject")

ipAddrStr = ""
If fso.FileExists(fileName) Then
fso.DeleteFile(fileName)
End If
Set ipAddrFile = fso.CreateTextFile(fileName,True)

In the space provided below to copy and paste the remainder of your IP_FileWrite.vbs sourcecode if it did not fit in the first textbox. For room = 0 to 5
For computer = 0 to 3
ipAddrStr = CStr(room+100) & "," & CStr(computer+1) & "," & _ ipAddress(room,computer) & vbCrlf
ipAddrFile.WriteLine(ipAddrStr)
Next
WScript.Echo vbCrlf
Next

ipAddrFile.Close

Set ipAddrFile = fso.OpenTextFile(fileName,READ,ASCII)
WScript.Echo ipAddrFile.ReadAll()

Microsoft Windows [Version 6.1.7600]
Copyright (c) 2009 Microsoft Corporation. All rights reserved.

C:\Scripts>cscript IP_FileWrite.vbs
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.

100,1,192.168.10.11
100,2,192.168.10.12
100,3,192.168.10.13
100,4,192.168.10.14
101,1,192.168.10.19
101,2,192.168.10.20
101,3,192.168.10.21
101,4,192.168.10.22
102,1,192.168.10.27
102,2,192.168.10.28
102,3,192.168.10.29
102,4,192.168.10.30
103,1,192.168.10.35
103,2,192.168.10.36
103,3,192.168.10.37
103,4,192.168.10.38
104,1,192.168.10.43
104,2,192.168.10.44
104,3,192.168.10.45
104,4,192.168.10.46
105,1,192.168.10.51
105,2,192.168.10.52
105,3,192.168.10.53
105,4,192.168.10.54

C:\Scripts>dir *.csv
Volume in drive C has no label.
Volume Serial Number is 28EB-380A

Directory of C:\Scripts

08/19/2012 01:04 PM 552 IP_Addresses.csv
1 File(s) 552 bytes
0 Dir(s) 12,139,155,456 bytes free

In the space provided below, copy and paste the RUN of your IP_FileWrite.vbs program. Also include the directory listing of all .csv files:

In the space provided below, copy and paste your IP_AppendRead.vbs program sourcecode. If it doesn’t fit, use the next page for the continuation of your program sourcecode. ' VBScript: IP_AppendRead.vbs

' Written by:
' Date:
' Class:
' Professor:
' ===================================

'Define constants
Const READ=1, WRITE=2, APPEND=8, ASCII=0

'Define variables
fileName = "C:\Scripts\IP_Addresses.csv"
ipAddrStr = ""
ipAddress = ""
newRoom = 106
comp1_IP = "192.168.10.59"
comp2_IP = "192.168.10.60"
comp3_IP = "192.168.10.61"
comp4_IP = "192.168.10.62"

'Set FSO
dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

ipAddrStr = _
newRoom & ",1," & comp1_IP & vbCrLf & _
newRoom & ",2," & comp2_IP & vbCrLf & _...
tracking img