[Iska]

определенных ярлыков. »

Например?

[santey007]

skype,Google Chrome
хотя я думаю можно оставить вообще все ярлыки пока для начала. удалить только файлы и папки.

[sov44]

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

Удалять ярлыки всё-же безопаснее, т.к. некоторые "блондинки" хранят рабочие файлы в папках, созданных на рабочем столе. После удаления папок с документами могут быт проблемы.

[cameron]

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

[santey007]

sov44 тебя понимаю, но начальство дало указание, убить все безвозвратно(я конечно же бэкапчик то профилей крайний сделаю на КД на всякий). так что можно не бояться...
cameron про ярлыки понял, спасибо за совет, наверно воспользуюсь им перед удалением. я так понимаю так же скрипт нужен, что бы сначала все нужные ярлыки или даже файлики (подключение к RDP, презентация одна) перенести в элюзерс, а потом сносить?

[sov44]

santey007, вот с ярлыками, просто копирование, Если нужно удаление, думаю сами поправите скрипт

Код:

@echo off
SetLocal enabledelayedexpansion

set "my_lnk=7z_sfx_RU.lnk"

if not exist c:\BackUp_lnk md c:\BackUp_lnk
for /f "delims=" %%a in ('dir/b/ad-h "%userprofile%\..\*"^|findstr/ixvc:"All Users"') do (
for %%b in ("%userprofile%\..\%%a\Desktop\*.lnk") do (
if /i not "%%~nxb"=="%my_lnk%" copy /y "%%b" "c:\BackUp_lnk\"
))
pause
exit

[santey007]

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

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

@echo off
SetLocal enabledelayedexpansion

set "my_lnk=7z_sfx_RU.lnk"

if not exist c:\BackUp_lnk md c:\BackUp_lnk
for /f "delims=" %%a in ('dir/b/ad-h "%userprofile%\..\*"^|findstr/ixvc:"All Users"') do (
for %%b in ("%userprofile%\..\%%a\Desktop\*.lnk") do (
if /i not "%%~nxb"=="%my_lnk%" delete /y "%%b" "c:\BackUp_lnk\"
))
pause
exit

я так понял он копирует их на С в BackUp_lnk?

[sov44]

Не проверял. Подстрахуйтесь перед использованием скрипта
удаление всех ярлыков c рабочего стола

Код:

@echo off
SetLocal enabledelayedexpansion

for /f "delims=" %%a in ('dir/b/ad-h "%userprofile%\..\*"^|findstr/ixvc:"All Users"') do (
for %%b in ("%userprofile%\..\%%a\Desktop\*.lnk") do (
del /f /q "%%b"
))
pause
exit

удаление всех файлов и ярлыков с рабочего стола

Код:

@echo off
SetLocal enabledelayedexpansion

for /f "delims=" %%a in ('dir/b/ad-h "%userprofile%\..\*"^|findstr/ixvc:"All Users"') do (
for %%b in ("%userprofile%\..\%%a\Desktop\*") do (
del /f /q "%%b"
))
pause
exit

[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

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