[Iska]

Попробуйте так:

Код:

Option Explicit

Dim objFile


With WScript.CreateObject("VBScript.RegExp")
	.IgnoreCase = True
	.Pattern    = "^CheMaxRus.*\.lnk$"
	
	For Each objFile In WScript.CreateObject("Scripting.FileSystemObject").GetFolder(WScript.CreateObject("WScript.Shell").SpecialFolders.Item("Desktop")).Files
		If .Test(objFile.Name) Then
			objFile.Delete
		End If
	Next
End With

WScript.Quit 0