' Listing 5: The getServerList Function

Private Function getServerList(ByVal strInputFile, ByRef strInRec)
  Dim objFSO, inFile, dicDataList, strData
  Const ForReading = 1
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  On Error Resume Next
  Set inFile = objFSO.OpenTextFile(strInputFile, ForReading, False)
  If IsObject(inFile) Then
    Set dicDataList = CreateObject("Scripting.Dictionary")
    Do Until inFile.AtEndOfStream
      strData = Trim(UCase(inFile.ReadLine))
      If Len(strData) > 0 Then
           dicDataList.Add dicDataList.Count, strData
      End If
    Loop
    getServerList = dicDataList.Items
    strInRec = dicDataList.Count
  End If
  Err.Clear
  On Error Goto 0
  Set objFSO = Nothing: Set inFile = Nothing
  Set dicDataList = Nothing
End Function