tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル MACアドレスが取得できなくなりました
投稿日: 2008/04/28(Mon) 14:42
投稿者よっくん
こんにちは。

XP pro
VB2005

今まで正常にMACアドレスが取得できていたのですが、
Windows Updateを行った後からMACアドレスが取れなくなって
しまいました。

        Dim X As Object
        Dim S As String
        Dim MyMAC As String

        S = "SELECT * FROM Win32_NetworkAdapter WHERE MACAddress IS NOT NULL"

        For Each X In GetObject("winmgmts:").ExecQuery(S)

            MyMAC = UCase(Replace(X.MACaddress, ":", "-"))

            MsgBox(MyMAC)

        Next X

というコードで取得していたのですが、
For Each X In GetObject("winmgmts:").ExecQuery(S)
でフリーズしてしまいます。
(エラーも特にでません)

どこかファイルが壊れたのかもしれないのですが、
どこを見直せばいいのかさっぱりわかりません。

「ここを確認!」「あれを再インストール!」等
ご指摘頂けないでしょうか。

宜しくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。