[Iska]

нужные ярлыки положить в All Users, тогда удалить их в контексте пользователя будет невозможно. »

Тогда их и найти будет невозможно . На Рабочем столе пользователя-то.

удалить только файлы и папки. »

На WSH:

Скрытый текст

Код:

Option Explicit

Dim objFSO

Dim objFolder
Dim objFile


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

With objFSO.GetFolder(WScript.CreateObject("WScript.Shell").SpecialFolders.Item("Desktop"))
	For Each objFolder In .SubFolders
		WScript.Echo objFolder.Path
		'objFolder.Delete True
	Next
	
	For Each objFile In .Files
		Select Case LCase(objFSO.GetExtensionName(objFile.Name))
			Case "lnk", "url"
				' Nothing to do
			Case Else
				WScript.Echo objFile.Path
				'objFile.Delete True
		End Select
	Next
End With

Set objFSO = Nothing

WScript.Quit 0

Для удаления раскомментируйте помеченные красным строки. Чтобы не выводились сообщения, закомментируйте или удалите помеченные зелёным строки.