[Iska]

как бы оставить файлик рдп подключения »

Можно.

или любой другой файл »

Можно.

или папку которую необходимо оставить? »

Тоже можно.

Пробуйте (не проверялось):

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

Код:

Option Explicit

Dim objFSO
Dim objWshShell

Dim objDictionaryExcludeFolders
Dim objDictionaryExcludeFiles
Dim objDictionaryExcludeShortcuts

Dim objFolder
Dim objFile


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

Set objDictionaryExcludeFolders   = WScript.CreateObject("Scripting.Dictionary")
Set objDictionaryExcludeFiles     = WScript.CreateObject("Scripting.Dictionary")
Set objDictionaryExcludeShortcuts = WScript.CreateObject("Scripting.Dictionary")

With objDictionaryExcludeFolders
	.Add "Новая папка", ""
	.Add "Новая папка (2), ""
	.Add "Новая папка (3), ""
	.Add "От создателей Новая папка, Новая папка (2) и Новая папка (3) — Новая папка (4)", ""
End With

With objDictionaryExcludeFiles
	.Add "MyFile.txt", ""
	.Add "MyFile2.txt", ""
End With

With objDictionaryExcludeShortcuts
	.Add "C:\Program Files\Google\Chrome\Application\chrome.exe", ""
	.Add "C:\Program Files\Mozilla Firefox\firefox.exe", ""
End With


With objFSO.GetFolder(objWshShell.SpecialFolders.Item("Desktop"))
	For Each objFolder In .SubFolders
		If Not objDictionaryExcludeFolders.Exists(objFolder.Name) Then
			WScript.Echo objFolder.Path
			'objFolder.Delete True
		End If
	Next
	
	For Each objFile In .Files
		If Not objDictionaryExcludeFiles.Exists(objFile.Name) Then
			Select Case LCase(objFSO.GetExtensionName(objFile.Name))
				Case "lnk"
					If Not objDictionaryExcludeShortcuts.Exists(objWshShell.CreateShortcut(objFile.Path).TargetPath) Then
						WScript.Echo objFile.Path
						'objFile.Delete True
					End If
				Case Else
					WScript.Echo objFile.Path
					'objFile.Delete True
			End Select
		End If
	Next
End With

objDictionaryExcludeFolders.RemoveAll
objDictionaryExcludeFiles.RemoveAll
objDictionaryExcludeShortcuts.RemoveAll

Set objDictionaryExcludeFolders   = Nothing
Set objDictionaryExcludeFiles     = Nothing
Set objDictionaryExcludeShortcuts = Nothing

Set objWshShell   = Nothing
Set objFSO        = Nothing

WScript.Quit 0

Убрал, кстати, «"url"» — там была бы ошибка, для них нужна иная логика.

и развесить права на раб стол, что бы больше не сохраняли туда ничего? »

Развешивайте. Я своё мнение на этот счёт, помнится, высказывал выше. Отрицательное.