- PR -

「ローカルエリアネットワーク」の自動再起動について

1
投稿者投稿内容
fuji
常連さん
会議室デビュー日: 2004/02/04
投稿数: 34
投稿日時: 2004-12-22 09:11
はじめまして、お聞きしたいことがあります。

あるPC上（Windows2000Pro）でネットワークアプリを起動しています。しかし、一定時間が経つとネットワークアクセスがハングアップし、pingもエラーが返ってきます。その場合、手動で「ローカルエリアネットワーク」を無効・有効にしてネットワーク接続を復元しています。いまだ原因を調査中です。それで、自動で「ローカルエリアネットワーク」の無効・有効にできないかと考えています。netshで可能かと思ったのですが、見つかりません。「ローカルエリアネットワーク」を自動再起動するソフトorスクリプトがあれば教えていただきたいと思います。お願いします。
ちゃっぴ
ぬし
会議室デビュー日: 2004/12/10
投稿数: 873
投稿日時: 2004-12-23 00:49
WMIを使用したVBScriptです。

あらかじめ下記Codeを実行して、変更を行う「NetworkAdapter名」を
取得しておいて、

'NetworkAdapter名列挙
Dim objWMIService, colItems, objItems

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery( _
"SELECT Caption FROM Win32_NetworkAdapter",,48)
For Each objItem in colItems
Wscript.Echo objItem.Caption
Next

こいつを実行してみてください。

'NetworkAdapter再起動
Dim objWMIService, colItems, objItems, strAdapterCaption

strAdapterCaption = "上記で取得したNetwork Adapter名"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapter WHERE Caption='" _
& strAdapterCaption & "'")
For Each objItem in colItems
objItem.Reset
Next

詳細はここを参照してください。
Win32_NetworkAdapter
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_networkadapter.asp
1

スキルアップ／キャリアアップ（JOB@IT）