Подстановка в переменную данных из другого файла

On Error Resume Next
Dim hosts(6200)
hosts(0)="12"
hosts(1)="13"
hosts(...)="..."
hosts(n)="СВУТЛАНА"
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set file = FSO.CreateTextFile("soft_log.ini", True, False)
 
'===============================================================================================================================================
'Проверка доступности компьютера в сети
'===============================================================================================================================================
Function Avaible(name)
  On Error Resume Next
 
  Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & name & "'")
 
  if Err.Number<>0 Then
    Avaible=False
    Exit Function
  End if 
 
  For Each objStatus in objPing
    If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
      Avaible = False
    Else
      Avaible = True
    End If
  Next
End function
 
Function GetLog(compName, login, password)
  Dim usr
  Dim l,ind,length
 
  Set objLocator = CreateObject("WbemScripting.SWbemLocator")
  objLocator.Security_.AuthenticationLevel = 3
  objLocator.Security_.Privileges.Add(10)
 
  if LCase(login)="administrator" Then
    l=compName & "\administrator"
  Else
    l=login
  End if
 
  Set objWMIService = objLocator.ConnectServer(compName, "root\cimv2", l, password)
  objWMIService.Security_.ImpersonationLevel = 3
 
  if Err.Number<>0 Then
     WScript.Echo Err.Number & ": " & Err.Description
     WScript.Quit
  End if 
 
  file.writeLine compName
  file.writeLine "========================================"
 
  For Each objProduct In objWMIService.ExecQuery("SELECT * FROM Win32_Product")
    file.WriteLine objProduct.Name
  Next
 
  file.writeLine ""
End Function
 
  For Each host in hosts
    if host="" then exit for
    if Avaible(host) then
      GetLog host, user, password
    End if
  Next
 
file.close
 
WScript.Echo "Готово, мой повелитель!"