Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12655 / 76734

←次へ　｜　前へ→


	【69596】モニタの明るさを取得したいのですが

yokapon - 11/8/5(金) 12:44 -


	引用なし

	パスワード

よろしくお願いいたします

モニタの明るさを取得する: 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

15 hits

▼

【69596】モニタの明るさを取得したいのですが yokapon 11/8/5(金) 12:44

≪