[Iska]

Используйте регулярные выражения. Например:

Код:

Option Explicit

Dim objFSO
Dim objFile

Dim objRegExp


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objRegExp = WScript.CreateObject("VBScript.RegExp")

With objRegExp
	.Pattern = "^ras.*a.*\.dll$"
	.IgnoreCase = True
End With

For Each objFile In objFSO.GetFolder("C:\Windows\System32").Files
	If objRegExp.Test(objFile.Name) Then
		WScript.Echo objFile.Name
	End If
Next

Set objRegExp = Nothing
Set objFSO    = Nothing

WScript.Quit 0