| |
>ちゃっぴさんに教えて頂いた、ツールですが、ＶＢＡ、それもエクセルの
>初歩しか知らないので、やはり手に余るようです・・・
WScript.Echo となっている部分を Debug.Printとしてやることで
とりあえずは動作可能です。
ちなみにDPIは「LogPixels」Propertyになります。
要参照 Microsoft WMI Scripting VX.X Library
Dim objWMIService As WbemScripting.SWbemServices
Dim colItems As WbemScripting.SWbemObjectSet
Dim objItem As WbemScripting.SWbemObject
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT LogPixels, PelsHeight, PelsWidth FROM Win32_DisplayConfiguration", _
"WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
Debug.Print "LogPixels: " & objItem.LogPixels
Debug.Print "PelsHeight: " & objItem.PelsHeight
Debug.Print "PelsWidth: " & objItem.PelsWidth
Next objItem
|
|
ちゃっぴ
- 05/4/10(日) 1:24 -
