Ping IP address, extract Computer Name 1

[JustScriptIt]

I've been searching how to ping an IP address to extract the computer name.

For instance, if I execute

ping -n 2 -a [IP Address]

I get the following output

Pinging HostName.suffix.suffix.suffix [IP Address] with 32 bytes of data:

Reply from IP Address: bytes=32 time=7ms TTL=121
Reply from IP Address: bytes=32 time<1ms TTL=121

So far, I couldn't find a way to save the line

Pinging HostName.suffix.suffix.suffix [IP Address] with 32 bytes of data

to a string. Otherwise, I could split the string and extract

HostName.suffix.suffix.suffix

I prefer to get computer name from ping, because there are cases one cannot connect to WMI.

 

[PHV]

Have a look at the WshShell.Exec method and the WshScriptExec.StdOut property.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[JustScriptIt]

Thanks!

 

[tootiredtocare]

I saw you problem and thought it would be a good test of my basic scripting skills. Here's a solution I came up with. I'm sure there are more elegant ways to do it, but this is the code I came up with after testing with a known networked IP and non networked IP

Set objShell = CreateObject("WScript.Shell")
strIP = InputBox("Enter the PC number you wish to run this script on", "Enter the PC number") 

if strIP = "" then 
   wscript.echo "No IP address supplied. Quitting Program"
   wscript.quit
end if

Set objScriptExec = objShell.Exec("ping.exe -n 1 -a " & strIP)
strPingResult = objScriptExec.StdOut.ReadAll
Set objStdOut = objScriptExec.StdOut

strNoPing = "Request timed out."

arrayPingResult = split(strPingResult, vbcrlf)

strCheck = strComp(arrayPingResult(3), strNoPing, 1)

if strCheck = 1 then
   wscript.echo "PC not on the network. Quitting Program"
   wscript.quit
else
   arrayPCLine = split(arrayPingResult(1), " ")
   wscript.echo arrayPCLine(1)
end if

 

[JustScriptIt]

@tootiredtocare

I incorporated your code and it now works!