Iska, Отлично! В качестве альтернативы можно и так написать:
Код:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController",,48)
match = False 'в начале - нет совпадений
For Each objItem in colItems
match = match Or CheckVideoProcessor(objItem.VideoProcessor)
Next
If match Then
Wscript.Echo "Match"
Else
Wscript.Echo "Don't Match"
End If
Function CheckVideoProcessor(s)
Dim all
all = "GeForce GTS 240,GeForce GTS 250,GeForce GTS 260" 'разделитель - запятая!
CheckVideoProcessor = InStr("," & all & ",", "," & s & ",") > 0
End Function
