Hi People,

This function returns the IP Address of a known host. I hope you find
it useful.

Function xlGetIPAddress(strHost As String)
'Ping a host to see if it is alive
Dim objPing
Dim objRetStatus
Dim strMessage

If strHost = "" Then
xlGetIPAddress = False
Else
Set objPing = GetObject("winmgmts:
{impersonationLevel=impersonate}").ExecQuery("sele ct * from
Win32_PingStatus where address = '" & strHost & "'")
For Each objRetStatus In objPing
If IsNull(objRetStatus.StatusCode) Or objRetStatus.StatusCode <
0 Then
xlGetIPAddress = False
Else
xlGetIPAddress = objRetStatus.ProtocolAddress
End If
Next
End If

Set objPing = Nothing
Set objRetStatus = Nothing
End Function