[[20090609191704]]　『自動配布の処理を作りたい』（なた）　ページの最後に飛ぶ

『自動配布の処理を作りたい』（なた）

 こんにちは。なたと申します。
あるマクロ付エクセルファイルを会社で使用しています。
皆の意見などを聞きつつ、不具合個所を修正したあと、使用している端末に
配布したいのですが、今は手作業でコピーしています。

 だんだん台数が増えてきて、大変になってきたので、一気に配布できればなー
と思って、配布用の一覧表ファイルを作って配布マクロを作ろうと思ったのです
が、電源が入っていない端末の処理に困っています。

 一覧表にある端末がネットワークにつながっているかいないかの判定をしたいの
ですが、どうすればよいのでしょうか？

 一覧表ファイルの作りはこんな感じです。

 DOMAIN    PATH                  FILENAME     判定 更新日 更新時間 処理端末
 XX22      \\192.xxx.xx.22\xxx\  顧客管理.xls			
 XX25      \\192.xxx.xx.25\xxx\  顧客管理.xls			
 XX30      \\192.xxx.xx.30\xxx\  顧客管理.xls
 XXX62     \\192.xxx.xx.112\xxx\ 顧客管理.xls
 XXXX64    \\192.xxx.xx.114\xxx\ 顧客管理.xls

 ヒントだけでも教えてくださーい＞＜

wiin XP Excek2007

 2007で動くか解りません。
 こんな感じでは？
 BJ

 On Error Resume Next
 CreateObject("WScript.Shell").CurrentDirectory = "\\192.xxx.xx.22\xxx"
 If Err Then
   Msgbox "つながってない"
   Err.Clear
 End If
 CreateObject("WScript.Shell").CurrentDirectory = "\\192.xxx.xx.25\xxx"
 If Err Then
   Msgbox "つながってない"
   Err.Clear
 End If
 　・
 　・

 BJさまレスありがとうございます。
 やってみましたが、接続されているＰＣも「つながっていない」となってしまいました。

 >CreateObject("WScript.Shell").CurrentDirectory = "\\192.xxx.xx.22\xxx" ←ここは
 ファイル名まで記述したほうがいいのですか？
 （なた）

 >端末がネットワークにつながっているかいないかの
 あ、LANケーブルじゃなかったんですね。
 すみません。そういう環境がないのでわかりません。
 BJ

 有線LANと無線LANが混在しています。
なんだかエラー処理でいけそうな気がしてきました。
ありがとうございます。BJ様　（＞＜ノ　（なた）

 直接の回答ではありませんが、ご参考に。
http://www.asahi-net.or.jp/~ef2o-inue/menu/menu06.html
 (Mook)

 とてもためになります！ありがとうございます！（なた）

コメント返信：

[ 一覧(最新更新順) ]

[[20090609191704]] 『自動配布の処理を作りたい』（なた） ページの最後に飛ぶ

[[20090609191704]]　『自動配布の処理を作りたい』（なた）　ページの最後に飛ぶ