| |
よろしくお願いいたします
モニタの明るさを取得する: WmiMonitorBrightness - WMI Sample (VBS)
tp://www.wmifun.net/sample/wmimonitorbrightness.html
を、エラーの場所が分かりやすいので エクセルで試してみましたが
'←ココ
で
実行時エラー '-2147217392 (80041010)':オートメーション エラーです。
となってしまいます
どう修正すればよいでしょうか
よろしくお願いいたします
実行マシン
XP機
VISTA機
で実行したいと思っています
Public Sub TEST()
'Option Explicit
'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet
Dim oClass
Dim oLocator
Dim oService
Dim sMesStr
'ローカルコンピュータに接続する。
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer(, "Root\WMI")
'クエリー条件をWQLにて指定する。
Set oClassSet = oService.ExecQuery("Select * From WmiMonitorBrightness")
'コレクションを解析する。
For Each oClass In oClassSet '←ココ
sMesStr = sMesStr & "現在の明るさ：" & oClass.CurrentBrightness & vbCrLf
Next
MsgBox ("モニタの明るさの情報です。" & vbCrLf & vbCrLf & sMesStr)
'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
