Jump to content

Detect Video Card


Recommended Posts

CODE
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_DisplayConfiguration",,48)

For Each objItem in colItems

Wscript.Echo "-----------------------------------"

Wscript.Echo "Win32_DisplayConfiguration instance"

Wscript.Echo "-----------------------------------"

Wscript.Echo "BitsPerPel: " & objItem.BitsPerPel

Wscript.Echo "Caption: " & objItem.Caption

Wscript.Echo "Description: " & objItem.Description

Wscript.Echo "DeviceName: " & objItem.DeviceName

Wscript.Echo "DisplayFlags: " & objItem.DisplayFlags

Wscript.Echo "DisplayFrequency: " & objItem.DisplayFrequency

Wscript.Echo "DitherType: " & objItem.DitherType

Wscript.Echo "DriverVersion: " & objItem.DriverVersion

Wscript.Echo "ICMIntent: " & objItem.ICMIntent

Wscript.Echo "ICMMethod: " & objItem.ICMMethod

Wscript.Echo "LogPixels: " & objItem.LogPixels

Wscript.Echo "PelsHeight: " & objItem.PelsHeight

Wscript.Echo "PelsWidth: " & objItem.PelsWidth

Wscript.Echo "SettingID: " & objItem.SettingID

Wscript.Echo "SpecificationVersion: " & objItem.SpecificationVersion

Next

VB script

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...