Get IP address from domain name using vbscript?

[Me_again]

Can the vbscript code in this tip be modified to also return the IP address it is pinging?

http://www.mjtnet.com/forum/viewtopic.p ... light=ping

(I know I can do this with command line ping > file but I don't want to go that route.)

[Marcus Tettmar]

Use the ProtocolAddress property:

Code: Select all

VBSTART
Function Ping(strHost)
  dim objPing, objRetStatus

  ipAddress = ""
  set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_PingStatus where address = '" & strHost & "'")

  for each objRetStatus in objPing
    if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then
      Ping = ""
    else
      Ping = objRetStatus.ProtocolAddress
    end if
  next
End Function
VBEND

VBEval>Ping("google.com"),pinged
If>pinged<>{""}
  MessageModal>Ip Address is: %pinged%
Else
  MessageModal>host not contacted
Endif

See:
http://msdn.microsoft.com/en-us/library ... S.85).aspx

[Me_again]

Thanks Marcus You're too fast, I had just found ProtocolAddress but couldn't figure out how to get it into a variable.