[Iska]

Лабораторка?

Код:

Option Explicit

Const WindowsFolder = 0

Dim strResult
Dim objFile


strResult = ""

With WScript.CreateObject("Scripting.FileSystemObject")
	For Each objFile In .GetSpecialFolder(WindowsFolder).Files
		If StrComp(.GetExtensionName(objFile.Name), "exe", vbTextCompare) = 0 Then
			strResult = strResult & objFile.Name & vbCrLf
		End If
	Next
End With

WScript.Echo strResult

WScript.Quit 0