Так вот не работает :(
       Если ФС.СуществуетФайл("%userprofile%\Рабочий стол")=0 Тогда
           Сообщить("Рабочий стол отсутствует");
       КонецЕсли;

C:\Documents and Settings\All Users\Рабочий стол

ну или вставь вместо All Users нужное имя юзверя

(1)не много не то... у каждого свой рабочий стол


C:\Documents and Settings\<Имя Юзера>\Рабочий стол

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop

(0) Путь к рабочему столу надо в кавычки заключить

(3) Остается получить "Имя Юзера" :)

(6) ECHO %USERNAME%

Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.ExpandEnvironmentStrings("%UserProfile%")

(4) Как обратится к реестру, чтобы получить это значение?
(5) Не помогает :(

Всем Спасибо, особенно (8)!

(9) reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Desktop

(11) Возвращает 1, а не значение реестра

(12)
Z:\>reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explo
rer\Shell Folders" /v Desktop

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folde
rs
Desktop    REG_SZ    C:\Documents and Settings\<тут мой логин>\Рабочий стол

(13) Как из 1С получить эту строчку? В cmd это работает, проверил.

(14) в темп-файл перенаправь :-)
Или через вшелл, см (8)

во...

WshShell = CreateObject("WScript.Shell");
стр = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop");
сообщить(стр);

Гугель рулит :-)

(13)  
По аналогии с этим:

файлик = КаталогИБ()+"1.txt";
КомандаСистемы("regedit /ea """+файлик+""""+" HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles");

(16) Вот это то-что требовалось больному :) Спасибо.

(16) или WshShell.SpecialFolders("Desktop");