[Iska]

P.S.: Проверил ваш скрипт - он не корректно отрабатывает, сначала выводит "Match", нажимаем Ok - и 5 раз подряд получаем "Don't Match" »

Как было сформулировано задание — таково оказалось и решение. В предыдущем посте Вы это поняли. Выводы:

Ни одного VideoProcessor нет в массиве --> "Don't Match" »

сделали, задачу сформулировали. Однако глубинный смысл и этого ТЗ мне по-прежнему не понятен.

Решение (в упрощённом виде):

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

Код:

Option Explicit

Dim arrVideoProcessors
Dim strVideoProcessor

Dim objSWbemObjectEx

Dim boolFound


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

boolFound = False

For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT * FROM Win32_VideoController")
	For Each strVideoProcessor In arrVideoProcessors
		If strVideoProcessor = objSWbemObjectEx.VideoProcessor Then
			boolFound = True
			
			Exit For
		End If
	Next
	
	If boolFound Then Exit For
Next

If boolFound Then
	WScript.Echo "Match"
Else
	WScript.Echo "Don't Match"
End If

WScript.Quit 0