Sub myip
Dim p As Phone
Wait For (p.ShellAsync("nslookup", Array As String("myip.opendns.com","resolver1.opendns.com"))) Complete (Success As Boolean, ExitValue As Int, StdOut As String, StdErr As String)
If Success Then
Log(ExitValue)
Log(StdErr)
Log(StdOut)
End If
End Sub