[Iska]

Во-первых, убрать совершенно бессмысленный «On Error Resume Next». Во-вторых, зачем Вам «Don't Match»? И что вообще даёт «Match»/«Don't Match» в информативном плане без знания какой именно это «Match»/«Don't Match»?! А если два адаптера?

Впрочем:

читать дальше »

Код:

Option Explicit

Dim arrVideoProcessors
Dim strVideoProcessor

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx


arrVideoProcessors = Array( _
	"GeForce GTS 250", _
	"GeForce GTS 251", _
	"GeForce GTS 252", _
	"GeForce GTS 253", _
	"GeForce GTS 254" _
)

strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_VideoController")

For Each objSWbemObjectEx In collSWbemObjectSet
	'WScript.Echo objSWbemObjectEx.VideoProcessor
	
	For Each strVideoProcessor In arrVideoProcessors
		If strVideoProcessor = objSWbemObjectEx.VideoProcessor Then
			WScript.Echo "Match"
		Else
			WScript.Echo "Don't Match"
		End If
	Next
Next

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0