ＶＢでＰＩＮＧで問題・・・

こんにちわ。
ここの掲示板（http://oshiete1.goo.ne.jp/kotaeru.php3?q=96873）を参考にＶＢでＰＩＮＧを実行するプログラムをやっています。

まず、上のＵＲＬの過去質問の回答２にありますソースをベースにしています。失敗したときのエラーメッセージを違うものにしてテストしました。

そうしますと・・・同ＬＡＮ上にあるＰＣをターゲットにした場合は問題ないのですが、遠方のサーバなどをターゲットにしますと、ステータスが「０」以外、つまり失敗になります・・・。

ＤＯＳプロンプトではきちっと返ってきています。

０かそうでないか、だけの判断では識別できないのでしょうか？

宜しくお願いいたします。

No.1 回答者： todo36 回答日時： 2003/11/07 11:47

タイムアウトを長くする。

あるいは何回か繰り返すとか

No.2 回答者： popesyu 回答日時： 2003/11/07 11:51

PINGに関する知識とソースの理解も間違っているんじゃないでしょうか。

近郊は成功するけど遠方のサーバーへのピングで0（＝失敗）が戻ってくるんですよね？
ということはタイムアウトの設定を長くとれば良いというだけで。
ソースみましたが
PING_TIMEOUT = 200
の数字を大きくすれば解決するでしょう。

この回答への補足

表現がまずかったですね・・・遠方＝ＬＡＮ上以外のサーバめがけて・・・という意味です。

PING_TIMEOUTを5000とか10000とか50000とかにしてみましたが、だめでした。
やはり、ＤＯＳプロンプトでは返ってきます。

何が原因なんだろう・・・。
もっと大きな数字にするのかな？？？？

ＤＯＳプロンプトでは問題ないですが、このソース、、、ＬＡＮから外に出たターゲットつまり192.168.xxx.xxx意外だとだめなような気がするんですが。。。

研究中なので意味不明な質問や意見をしてるかもしれないですがお許しを・・・。

補足日時：2003/11/07 12:09

No.3 ベストアンサー 回答者： mrumesuke 回答日時： 2003/11/07 12:46

pOptions.Ttl = 5

では外部まで届かないかも知れませんね。
DOSプロンプトから
> ping 外部サーバ -i 5
を実行すると、
Reply from xxx.xxx.xxx.xxx: TTL expired in transit.
となるのではないでしょうか。

試しにTTLを大きくしてみてください。
pOptions.Ttl = 255

No.4 回答者： todo36 回答日時： 2003/11/07 12:47

成功の判定は96873の回答1の方法で行えばいいでしょう。

この回答への補足

はい、成功の判定は問題ありません。
問題はＰＩＮＧで返りがあるはずのものが返ってこない・・・ということでした。
質問の仕方がまずかったですよね・・・申し訳ありません。

補足日時：2003/11/07 13:37

No.5 回答者： momoturbo 回答日時： 2003/11/07 13:08

名前解決ができていないのではないでしょうか？

IPでPINGをしても同じですか？