タイトル : Re^2: MACアドレスが取得できなくなりました 投稿日 : 2008/04/28(Mon) 17:08 投稿者 : よっくん
魔界の仮面弁士様 アドバイスありがとうございます。 > WMI のサービス起動に時間がかかっている、という事はありませんか? > ・WMI のサービスが起動状態になっているかどうか。 サービスで確認したところ、状態は開始になっておりました。 Windows Management Instrumentationを 念のため停止→開始を行いましたが、一緒でした。 > ・\root\\cimv2:Win32_NetworkAdapter 以外のクラスであれば取得できるのか。 私自身、WMIをよくわかっていないのですが Win32_LogicalDisk の Description を取得するように変えて 実行したところ、やはりフリーズしました。 > ・Windows Update による更新をロールバックした場合、取得できるようになるのか。 これが一番問題でして…。 実は、通常にWindows Updateを行ったのではなく、リカバリソフトによる 差分データ配信を使って行っております。 (一台でWindows Update→差分データ抽出→差分データを他PCへ配信) なので、ロールバックができません。 ↑が原因で、どこかしらのファイルが壊れたのかなぁと思い もし再インストールできるものがあれば と思い質問させて頂きました。 かなり通常ではない環境ではありますが 何かやってみる事はあるでしょうか… orz ---------------------------------------------------------------------------- 'Win32_LogicalDiskの取得ソース Dim objServices As Object Dim objObjectSet As Object Dim objObject As Object objServices = GetObject("winmgmts:{impersonationLevel=impersonate}") objObjectSet = objServices.InstancesOf("Win32_LogicalDisk") For Each objObject In objObjectSet If IsDBNull(objObject.description) = False Then MsgBox(objObject.description) End If Next |