asked on

Convert the list of Ip's to machine names.

Hi,

I have a list of ip's in a txt file.IS there a way to convert all of them to Machinenames next to the ip address.

Regards
Sharath

ASKER CERTIFIED SOLUTION

Farhan Kazi

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

ghostdog74

here's a vbscript:

Set objFSO=CreateObject("Scripting.FileSystemObject")
myIPs = "c:\temp\ips.txt" 'your ip list
Set objFile = objFSO.OpenTextFile(myIPs,1)
Do Until objFile.AtEndOfLine
      strComputer = objFile.ReadLine
      Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
      Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
      For Each objAdapter in colAdapters
       If Not IsNull(objAdapter.IPAddress) Then
       For i = 0 To UBound(objAdapter.IPAddress)
       WScript.Echo objAdapter.IPAddress(i) & ":" & objAdapter.DNSHostName
       Next
       End If
      Next
Loop

usage: c:\> cscript /nologo myscript.vbs > newfile

bsharath

ASKER

Farhan Sorry for the delay.

Your code is working fine.

ghostdog74
I get this.

C:\>cscript /nologo "ip's to machine names.vbs" > newfile
C:\ip's to machine names.vbs(6, 7) Microsoft VBScript runtime error: The remote
server machine does not exist or is unavailable: 'GetObject'

I think we need more error checking...

ghostdog74

On error resume Next
Set objFSO=CreateObject("Scripting.FileSystemObject")
myIPs = "c:\temp\ips.txt" 'your ip list
Set objFile = objFSO.OpenTextFile(myIPs,1)
Do Until objFile.AtEndOfLine
strComputer = objFile.ReadLine
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objAdapter in colAdapters
If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
WScript.Echo objAdapter.IPAddress(i) & ":" & objAdapter.DNSHostName
Next
End If
Next
Loop