'========================================================================== ' ' VBScript: AUTHOR: Ed Wilson , MS, 6/2/2003 ' ' NAME: ' ' COMMENT: Key concepts are listed below: '1. illustrates use of Ubound as a means of calculating size of array '2. '3. '========================================================================== Option Explicit 'Is used to force the scripter to declare variables On Error Resume Next 'Is used to tell vbscript to go to the next line if it encounters an error Dim objFSO Dim objTextFile Dim arrServiceList Dim strNextLine Dim i Dim TxtFile dim boundary TxtFile = "ServersAndServices.txt" Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ (TxtFile, ForReading) Do Until objTextFile.AtEndOfStream boundary = Ubound(arrServiceList) wscript.echo "upper boundary = " & boundary strNextLine = objTextFile.Readline arrServiceList = Split(strNextLine , ",") Wscript.Echo "Server name: " & arrServiceList(0) For i = 1 to Ubound(arrServiceList) Wscript.Echo "Service: " & arrServiceList(i) Next Loop WScript.Echo("all done")