VBS que obtiene las propiedades de red de una lista de servers TXT

***Inicio del script

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("NICProperties.txt", True)
Set objServerlist = objFSO.OpenTextFile("c:\citrixservers.txt", 1)


Do Until objServerList.AtEndOfStream
strComputer = objServerList.ReadLine
objFile.WriteLine "Server: " & strComputer
objFile.WriteLine ""



Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48)
For Each objItem in colItems
    'objFile.WriteLine "-----------------------------------"
    'objFile.WriteLine "Win32_NetworkAdapterConfiguration instance"
    'objFile.WriteLine "-----------------------------------"
     If isNull(objItem.DNSHostName) Then
    '    objFile.WriteLine "DNSHostName: "
     Else
        'objFile.WriteLine "DNS Host Name: " & objItem.DNSHostName
         objFile.WriteLine "Description: " & objItem.Description
    ' objFile.WriteLine "IP Address: " & Join(objItem.IPAddress, ",")
       ' objFile.WriteLine "IP Subnet: " & Join(objItem.IPSubnet, ",")
    objFile.WriteLine "DNS Server Search Order: " & Join(objItem.DNSServerSearchOrder, " , ")
    objFile.WriteLine "DNS Suffix: " & objItem.DNSDomain

     End If
Next
Loop


wscript.echo "End"

***Fin del script