; Check KiXtart version $KixMajorVer = SubStr( @Kix, 1, InStr( @Kix, "." ) - 1 ) If $KixMajorVer < 4 GoTo Syntax EndIf ; Header line for screen output ? "Video summary for @WKSTA:" ? ; Connect to specified computer $objWMIService = GetObject( "winmgmts://./root/cimv2" ) ; Display error number and description if applicable If @ERROR GoTo ShowError EndIf ; Query processor properties $colItems = $objWMIService.ExecQuery( "Select * from Win32_VideoController", , 48 ) ; Display error number and description if applicable If @ERROR GoTo ShowError EndIf ; Display results For Each $objItem in $colItems ? " Name: " + $objItem.Name ? " Description: " + $objItem.Description ? " Video Processor: " + $objItem.VideoProcessor ? " Adapter RAM: " + ( $objItem.AdapterRAM + 524288 ) / 1048576 + " MB" ? " Video Mode Description: " + $objItem.VideoModeDescription ? Next ; Done Quit 0 :ShowError ? "Error # @ERROR" :Syntax ? ? "VideoROM.kix, Version 1.10" ? "Display video adapter summary for local computer" ? ? "Usage: KIX32 VIDEOROM.KIX" ? ? "Written by Rob van der Woude" ? "http://www.robvanderwoude.com" ? ? "This script requires KiXtart 4.00 or later." ? "Your KiXtart version is @Kix" ? Quit 1