![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Windows7でVBScriptによるネットワークアダプタの有効/無効を取得
こんにちは。
ネットで情報収集しているのですが、どうも答えがわからずにいます。
どなたかアドバイスをお願い致します。
Windows7でVBScriptを使ってネットワークアダプタの有効/無効を取得し、
テキストファイルに保存したいです。
WindowsXPでは正常に動くのですがWindows7だとエラーが返ってきます。
エラーの原因は、
「if strFolderItem.name = "ネットワーク接続" then」
の所で「strFolderItem.name = "ネットワーク接続"」に該当する
ものが一つも無い事が原因のようです。
Xpでは"ネットワーク接続"だったのが7では名称が変わったのか。
それとも、そもそもこのobjApp.Namespace(3)では取得できないのか。
答えがわかりません。
よろしくお願いいたします。
以下、コードです。
'//-----------------------------------------
' ファイル名:test.vbs
' このVBScriptと同じフォルダ内に
' 「NetAdapterCheck.log」という空のファイルを準備した上で実行する。
'変数の宣言を明示的にする
Option Explicit
'変数の宣言
Dim objApp
Dim objCtrPanel
Dim objConnection
Dim objAdapter
Dim strEnable
Dim strDisable
Dim strFolderName
Dim strFolderItem
Dim strVerb
Dim intCnt
Dim objFileSys
Dim objOutFile
set objApp = createobject("shell.application")
set objCtrPanel = objApp.Namespace(3)
strEnable = "有効にする(&A)"
strDisable = "無効にする(&B)"
for each strFolderItem in objCtrPanel.items
if strFolderItem.name = "ネットワーク接続" then
set objConnection = strFolderItem.getfolder: exit for
end if
next
strFolderName = ""
intCnt = 0
for each strFolderItem in objConnection.items
set objAdapter = strFolderItem
for each strVerb in objAdapter.verbs
if strVerb.name = strEnable then
intCnt = intCnt + 1
strFolderName = strFolderName & intCnt & "<>" & "無効<>" & strFolderItem.name & vbCrLf
elseif strVerb.name = strDisable then
intCnt = intCnt + 1
strFolderName = strFolderName & intCnt & "<>" & "有効<>" & strFolderItem.name & vbCrLf
end if
next
next
'ファイルに書き込み
Set objFileSys = WScript.CreateObject("Scripting.FileSystemObject")
Set objOutFile = objFileSys.OpenTextFile("NetAdapterCheck.log",2)'1=読込、2=上書き、3=追記
objOutFile.WriteLine strFolderName
'テキストファイルのクローズ
objOutFile.Close
'オブジェクト破棄
Set objFileSys = Nothing
Set objOutFile = Nothing
'オブジェクトの開放
set objApp = nothing
set objCtrPanel = nothing
set objConnection = nothing
set objAdapter = nothing
'//-----------------------------
No.1ベストアンサー
- 回答日時:
VISTA 以降であればWMIで取得できるようです。
http://technet.microsoft.com/ja-jp/magazine/2006 …
今のまま進めてゆくには、Excel などのVBA に提示されたVBSを移植して
objApp.Namespace(????) や objCtrPanel.items を総なめするとか
適当なところで中断させてローカルウィンドウで調べるとか、出来ませんか?
当方Win7は持ち合わせておりませんので此処まで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
tracert ができない原因
-
ラジオボタンが両方とも選択で...
-
[HTML]プルダウンメニューの横...
-
wordの数式について 定積分を書...
-
VB.net データーグリッドビュー...
-
「value」に2つの値をセットす...
-
VB初心者。小数点以下の表示で...
-
iPhoneでセレクトボックスが選...
-
INPUT TYPE
-
拡張子'html'と'htm'はどっちが...
-
チェックボックス選択で(3つ)...
-
ある条件での必須入力について
-
proftpdで困ってます。
-
別formのhidden項目を自form値...
-
ラジオボタンを選択済みにする...
-
チェックボックスの返す値
-
ブックマークからのアクセスを...
-
FORMのselectの選択肢を最初か...
-
誕生日のカウントダウン日数を...
-
テキストボックスについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
tracert ができない原因
-
【ASP.NET MVC】フォームヘルパ...
-
チェックボックスでのor検索
-
掲示板スパム対策(改造)ガー...
-
perlで書いたcgiでsqliteの使い...
-
入力フォームに全角・半角スペ...
-
sendmailのメール送信ができま...
-
splitについて教えてください。
-
日本語文字化け(GETメソッド?)
-
@town = ("Aタウン","Bタウン",...
-
JNAVIから提供されたメー...
-
アンケートの回答をcsv形式で保...
-
文字って数字で表現・・・
-
禁止ワードの設定
-
Perlでuse socketを使用してフ...
-
名前の改行の仕方
-
【CGI】画像の表示の仕方【Mini...
-
python初心者です。
-
c言語 構造体
-
perl ヒア文(print <<"EOM" ...
おすすめ情報