タイトル : 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) でフリーズしてしまいます。 (エラーも特にでません) どこかファイルが壊れたのかもしれないのですが、 どこを見直せばいいのかさっぱりわかりません。 「ここを確認!」「あれを再インストール!」等 ご指摘頂けないでしょうか。 宜しくお願い致します。 |