Как программно получить папку рабочего стола в 1с ?

рабочего стола сервера?

В 1С нет папки рабочего стола

(0) WSH спасет отца руской демократии

(2) Ты сегодня хладнокровен и безжалостен =))

(3)как?

(5) создаешь объект, применяешь соответствующий метод

через vbs я знаю
Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.SpecialFolders("Desktop")

а как его использовать в 1с?

наверное вот так:
выдает ошибку

ПутьРабочийСтол = "C:\Users\%username%\Desktop\";
WScriptNetwork= Новый COMОбъект("WScript.Network");
ДомИмяПользователя = СокрЛП(WScriptNetwork.UserName);
ПутьРабочийСтол =  СтрЗаменить(ПутьРабочийСтол ,"%username%",ДомИмяПользователя);

(9) Вообще бред.

(9) а если не C:\Users
а C:\докУментЭндСетингс?

и какой надо создать объект который сможет вернуть то, чего нет?

SpecialFolders.Item("Desktop")

ну вы как маленький обращайтесь с общему столу
"C:\Documents and Settings\All Users\Рабочий стол"

https://ru.wikipedia.org/wiki/Переменная_среды_Windows

(15)  Какбы дописываю
CLIENTNAME    локальная динамическая    Переменная определена только в среде удаленного подключения к рабочему столу. Хранит имя компьютера (%COMPUTERNAME%) клиента удаленного доступа.

(16) Ни о чем не говорит)

через vbs я знаю
Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.SpecialFolders("Desktop")

а как его использовать в 1с?

пожалуй вот так:
Винда = Новый COMОбъект("WScript.Shell");
РабочийСтол = Винда.SpecialFolders("Desktop");

WshShell =  Новый COMОбъект("WScript.Shell");
Folders = WshShell.SpecialFolders();    
    
Сообщить(Folders.Item("Desktop"));

(18) (19) Зря сказали, ведь даже "спасибо" не скажет

(20) Не переживай. у него этот код ошибку выдает

(13) спасибо
    работает  
    Шелл = Новый COMОбъект("WScript.Shell");
    МоиДокументы = Шелл.SpecialFolders.item("MyDocuments");
    РабочийСтол = Шелл.SpecialFolders.item("Desktop");

(20) Настоящие герои не ждут благодарности

(18)(19) тоже спасибо