' ============================================================
' GetVideoControllerReport.vbs
'
' Reports Video Controllers via WMI (Win32_VideoController).
'
' Usage: cscript GetVideoControllerReport.vbs
' ============================================================

Option Explicit

Dim objWMIService, colItems, objItem, strOutput

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT Name, AdapterRAM, DriverVersion, CurrentRefreshRate FROM Win32_VideoController")

strOutput = ""
For Each objItem In colItems
    strOutput = strOutput & "Name: " & objItem.Name & vbCrLf
    strOutput = strOutput & "AdapterRAM: " & objItem.AdapterRAM & vbCrLf
    strOutput = strOutput & "DriverVersion: " & objItem.DriverVersion & vbCrLf
    strOutput = strOutput & "CurrentRefreshRate: " & objItem.CurrentRefreshRate & vbCrLf
    strOutput = strOutput & String(40, "-") & vbCrLf
Next

If strOutput = "" Then
    WScript.Echo "No Video Controllers found."
Else
    WScript.Echo strOutput
End If