[cameron]

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

это почему?

[sov44]

santey007, немного модернизировал скрипт, пробуйте. Для "боевого" запуска убрать echo

Код:

@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 echo del /f /q "%%b"
for /d %%c in ("%userprofile%\..\%%a\Desktop\*") do echo rd /s /q "%%c"
)
pause
exit

Соглашусь с Iska. Скопировал ярлык с рабочего стола пользователя в c:\Users\Default\Desktop, ярлыка из-под пользователя не увидел. Скопировал в c:\Users\Public\Desktop, ярлык виден и прекрасно удаляется из-под пользователя.
All Users он как-бы есть, но перебрасывает в Public

[Iska]

cameron, Georgio, ну, задача-то какая была:

с рабочего стола пользователя »

а ежели ярлыки переместим с Рабочего стола пользователя на общий Рабочий стол, то стало быть на Рабочем столе пользователя мы их и не найдём .

Для пропуска определённых ярлыков:

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

Код:

Option Explicit

Dim objFSO
Dim objWshShell
Dim objDictionary

Dim objFolder
Dim objFile


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

With objDictionary
	.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
		WScript.Echo objFolder.Path
		'objFolder.Delete True
	Next
	
	For Each objFile In .Files
		Select Case LCase(objFSO.GetExtensionName(objFile.Name))
			Case "lnk"
				If Not objDictionary.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
	Next
End With

objDictionary.RemoveAll

Set objDictionary = Nothing
Set objWshShell   = Nothing
Set objFSO        = Nothing

WScript.Quit 0

Скопировал ярлык с рабочего стола пользователя в c:\Users\Default\Desktop, ярлыка из-под пользователя не увидел. »

На Рабочем столе пользователя Вы должны его увидеть. Причём даже два ярлыка, поскольку скопировали, а не переместили.

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

[santey007]

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

[Iska]

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

Не делайте этого.

[santey007]

почему?

[Iska]

Если будете очищать — какой смысл? А через неделю-другую пользователи и сами привыкнут к тому, что сохранять на Рабочий стол бесполезно.

[santey007]

да просто мозг будут выносить: опять сохранил файл на раб. стол, опять забыл его перенести, а это отчет, верни срочно! -вот этого хочу избежать

[Anton04]

да просто мозг будут выносить: опять сохранил файл на раб. стол, опять забыл его перенести, а это отчет, верни срочно! -вот этого хочу избежать »

А вот это решается административными методами, т.е. бумажками с соответствующими подписями.

[santey007]

не работают бумажки вообще никак, проверено уже давно и ни раз...