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

質問

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

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

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

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

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

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

回答No.3

mrumesuke · ベストアンサー

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

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

回答No.5

momoturbo

名前解決ができていないのではないでしょうか？
IPでPINGをしても同じですか？

回答No.4

todo36

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

補足

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

回答No.2

popesyu

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

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

補足

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

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

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

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

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

回答No.1

todo36

タイムアウトを長くする。あるいは何回か繰り返すとか