И это — минимум. Теоретически это можно уместить в одну очень длинную строку, но заморитесь играться с кавычками, операторными скобками и прочей радостью пакетных файлов. И всё это вместо банального:
Код:
Код: Выделить всё
Option Explicit
Dim strFileName
Dim strFullFileName
strFileName = "file.exe"
With WScript.CreateObject("Scripting.FileSystemObject")
strFullFileName = .BuildPath(WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop"), strFileName)
If .FileExists(strFullFileName) Then
.DeleteFile strFullFileName, True
End If
End With
WScript.Quit 0Цитата Roman_Ko:
Вопрос решён благодаря наводящим вопросам от Iska
Вот рабочий вариант
CMD/BAT - [решено] Удаление файла с рабочих столов по сети
Не решён. Профили могут быть расположены не в %HomeDrive%, не в Users, вообще на разных разделах, папка Рабочего стола именоваться не Desktop, может лежать вовне папки профиля пользователя.