Sub ResolveHost(Host As String) As String
Dim r As Reflector
r.Target = r.RunStaticMethod("java.net.InetAddress", "getByName", Array As Object(Host), _
Array As String("java.lang.String"))
If r.Target = Null Then Return "N/A"
Return r.RunMethod("getHostAddress")
End Sub