Will this help?

Code:

$Computer = "."

$objWMIService = GetObject("winmgmts:\\" + $Computer + "\root\cimv2")

$colItems = $objWMIService.ExecQuery("Select * from CIM_VideoControllerResolution")

For Each $objItem in $colItems

    ? "Horizontal Resolution: " + $objItem.HorizontalResolution

    ? "Number Of Colors: " + $objItem.NumberOfColors

    ? "Refresh Rate: " + $objItem.RefreshRate

    ? "Scan Mode: " + $objItem.ScanMode

    ? "Setting ID: " + $objItem.SettingID

    ? "Vertical Resolution: " + $objItem.VerticalResolution

    ? 

Next