' ChatIP.vbs
       ' Find Foreign IP Address
       Set ws = WScript.CreateObject("WScript.Shell")
       ip = ws.Run("cmd.exe /K netstat -n",1,"False")