香港新浪網 MySinaBlog
« 上一篇 | 下一篇 »
Emily | 1st Dec 2006, 13:59 PM | Script | (811 Reads)

WMI Example: Win32_DisplayConfiguration

All Windows Platforms

 
Sub WMI_ScreenResolution()
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/rootcimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_DisplayConfiguration")
For Each objItem In colItems
    Msg = "Name: " & objItem.DeviceName
    Msg = Msg & vbLf & "Color Depth: " & objItem.BitsPerPel
    Msg = Msg & vbLf & "Horizontal Resolution: " & objItem.PelsWidth
    Msg = Msg & vbLf & "Vertical Resolution: " & objItem.PelsHeight
    MsgBox Msg
Next
End Sub
'

mySinaBlog 不支援斜線,斜線現用全形\取代 ,請改回。