vbscript funktioniert interaktiv, jedoch nicht als loginscript

Set WshNetwork = CreateObject("WScript.Network")  
Set WshShell = WScript.CreateObject("WScript.Shell")  

strComputer = WshNetwork.ComputerName
sfound = False

For Each strLine In FileToArray("Servers.txt", False)  
         If strLine = strComputer Then
            sfound = True
				Exit For
        End If
Next

If Not sfound Then
		WScript.Quit
	Else
		WshShell.Run "Inventory.bat",0,True  
End If


Function FileToArray(ByVal strFile, ByVal blnUNICODE)
  Const FOR_READING = 1
  Dim objFSO, objTS, strContents
  FileToArray = Split("")  
  Set objFSO = CreateObject("Scripting.FileSystemObject")  
  If objFSO.FileExists(strFile) Then
    On Error Resume Next
    Set objTS = objFSO.OpenTextFile(strFile, FOR_READING, False, blnUNICODE)
    If Err = 0 Then
      strContents = objTS.ReadAll
      objTS.Close
      FileToArray = Split(strContents, vbNewLine)
    End If
  End If
End Function