получение специальных папок с помощью shell.application

Мне нужен сценарий для возврата пути к рабочему столу текущего пользователя. Теперь я знаю, что вы можете сделать это с помощью WScript.

var WshShell = WScript.CreateObject("WScript.Shell");
         strDesktop = WshShell.SpecialFolders("Desktop");

Но для моего сценария это не сработает, так как я не могу использовать WScript. но я могу использовать объект shell.application, как показано ниже.

 dim objShell
        dim ssfWINDOWS
        dim objFolder

        ssfWINDOWS = 0
        set objShell = CreateObject("shell.application")
            set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
                if (not objFolder is nothing) then
                Set objFolderItem = objFolder.Self
                    g_objIE.Document.All("logdir").Value = objFolderItem.path
                end if
            set objFolder = nothing
        set objShell = nothing

каков синтаксис, чтобы вместо "BrowseForFolder" я мог просто вернуть путь к рабочему столу текущего пользователя?

IE замените строку

set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)

эквивалентом.

strDesktop = WshShell.SpecialFolders("Desktop");

Ура

Аарон