COMP-230 Week 6 Lab: VBScript IP File Report (SOLVED

In the space provided below, copy and paste your IP_FileW program sourcecode. If it doesn’t fit, use the next page for the continuation of your program sourcecode. COMP230_W6_IP_File_R Revision Date: 1213 ' 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) dim room dim computer 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" '''''define the constants Const READ = 1 Const WRITE = 2 Const APPEND = 8 Const ASCII = 0 '''''defining the varables fileName = "IP_A" ipAddrStr = "" 'creating the new files Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(fileName) Then fso.DeleteFile(fileName)