On Error resume Next

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("C:\servers.txt", ForReading)

strText = objTextFile.ReadAll
objTextFile.Close

arrComputers = Split(strText, vbCRLf)

For Each strComputer in arrComputers

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")

    For Each objItem in colItems
    Wscript.Echo "HostName: "& objItem.SystemName
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Net Connection ID: " & objItem.NetConnectionID
    Next
Next