[Iska]

foma24, напрямую — нет. Можете использовать WSH, например:

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

Код:

Option Explicit

Dim strPath2Wallpapers
Dim lngHRes
Dim lngVRes

Dim objFile
Dim objImageFile


strPath2Wallpapers = "C:\Wallpapers"
lngHRes            = 1680
lngVRes            = 1050

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strPath2Wallpapers) Then
		Set objImageFile = WScript.CreateObject("WIA.ImageFile")
		
		For Each objFile In .GetFolder(strPath2Wallpapers).Files
			Select Case LCase(.GetExtensionName(objFile.Name))
				Case "jpeg", "jpg", "jpe"
					With objImageFile
						.LoadFile objFile.Path
						
						If .Width < lngHRes Or .Height < lngVRes Then
							WScript.Echo CStr(.Width) & "x" & CStr(.Height), vbTab, objFile.Name
							'objFile.Delete True
						End If
					End With
				Case Else
					' Nothing to do
			End Select
		Next
		
		Set objImageFile = Nothing
	Else
		WScript.Echo "Folder [" & strPath2Wallpapers & "] not found"
	End If
End With

WScript.Quit 0

NB! Для удаления раскомментируйте строку «'objFile.Delete True» (просто уберите апостроф «'»).

или PoSH.