はじめまして、ＶＢ超初心者のTakaです。

現在弊社では「Microsoft Exchange Server」を使用して、
各拠点から「Microsoft Exchange Server」を使用出来るようになっています。
しかし、ローカルネットワーク内にサーバーがある環境(本部)と、各拠点からインターネットVPNで繋げている環境では、
[hosts][Lmhosts]の設定が違っており、ノートPCを拠点に持っていってOutlookを使用する場合は、
毎回バッチファイルを手動で実行させて[hosts][Lmhosts]を書き換えてるのが現状です。

そこでＶＢ達人の皆様の力を貸していただきたいのです。

・Pingを[192.168.0.12]に飛ばして、
　　　通った場合：本部の環境に切り替えるバッチファイルを実行する。
　　　通らなかった場合：拠点の環境に切り替えるバッチファイルを実行する。

このようなプログラムを作成したいのです。
　　　(もしかしたら、バッチファイルで出来るかもしれませんが、
　　　 こちらも作成方法がわからないのです。)

わかる方がおられたら御口授お願いいたします。

こんにちは。

今すこしネットで調べてみましたが

> このようなプログラムを作成したいのです。
> 　　　(もしかしたら、バッチファイルで出来るかもしれませんが、
> 　　　 こちらも作成方法がわからないのです。)


ＤＯＳに用意されているpingでは戻り値を判断できない（正常：０、異常：０）
ようですね。

ＶＢで作成したサンプルプログラムがありました。

http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200208/02080041.txt


> ＶＢ超初心者のTakaです。

（そのまま使う分には問題ありませんが）
初心者には高度な内容かと思われます。


自分で１から作るなら

ＶＢよりＳｈｅｌｌ関数をつかってＰｉｎｇパッチを実行

Shell( App.path & "\.run_ping.bat")


ＤＯＳのＰＩＮＧをたたき、結果をファイルにリダイレクトし

〜run_ping.bat　〜
ping client_name > ping_chk.txt


その出力ファイルを読み込んで成功か失敗か判断すればよいかと思います。

（Request timed out. なら失敗など）


あとは実行バッチを切り替えて　実行。

こんなんでいかがでしょうか？？

返事が遅くなってすいません。

えめすさんお返事ありがとう御座います。

えめすさんのアドバイスや、記載していただいたＨＰを確認して、
自分の勉強の為少しずつ確認しながらしていきます。

ありがとう御座いました。
わからない事があれば、書き込むので機会があれば、
またよろしくお願いします。

Taka