Применить userprofile в путь

Question

Мне нужно получить имя папки пользователя компьютера и указать его путь, в данном случае запуск и путь к рабочему столу. Я выяснил, как найти имя папки пользователя, но застрял в поиске, как поместить это в путь. Кто-нибудь знает как?

Set WshShell = CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("PROCESS")

Это было бы очень полезно.

РЕДАКТИРОВАТЬ

Set objShell = Wscript.CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("Startup")
wscript.echo strPath
dim WSHShell, desktop, pathstring, startup, objFSO
set objFSO=CreateObject("Scripting.FileSystemObject")
Set WSHshell = CreateObject("WScript.Shell")
desktop = WSHShell.SpecialFolders("Desktop")
pathstring = objFSO.GetAbsolutePathName(desktop)
WScript.Echo desktop
set filesys=CreateObject("Scripting.FileSystemObject") 
filesys.CopyFile "desktop", dolpis.vbs,"startup", dolpis.vbs
set objFso=createObject("scripting.fileSystemObject")
set objWShell=wScript.createObject("WScript.Shell")
usrName=objWShell.expandEnvironmentStrings("%USERNAME%")
if objFso.folderExists(strFolder) then
   objFso.copyFile strFileToCopy,strFolder&"\",True
else
   msgbox "The folder " & strFolder & " does not exist"
end if
CreateObject("WScript.Shell").Run("C:\WINNT\system32\notepad.exe")
Set wshshell = wscript.CreateObject("WScript.Shell") 

В строке 11 указано "Требуется объект: Dolpis"

Answer 1

Свойство SpecialFolders объекта WshShell предоставляет ссылки на специальные папки Windows (рабочий стол, избранное и т. Д.)

Список доступных специальных папок Windows:

1. AllUsersDesktop
2. AllUsersStartMenu
3. AllUsersPrograms
4. AllUsersStartup
5. рабочий стол
6. Избранные
7. шрифты
8. Мои документы
9. NetHood
10. PrintHood
11. программы
12. последний
13. Отправить
14. Стартовое меню
15. Запускать
16. Шаблоны

---

Set WshShell = CreateObject("WScript.Shell")
wscript.echo "Desktop Folder = " & WshShell.SpecialFolders("Desktop")
wscript.echo "Startup Folder = " & WshShell.SpecialFolders("Startup")

For i = 0 to WshShell.SpecialFolders.Count -1 
     sf = sf & WshShell.SpecialFolders(i) & vbCr 
Next 
wscript.echo "Special folders of Windows : " & vbCrlf & vbCrlf & sf 

РЕДАКТИРОВАТЬ

Option Explicit
Dim WshShell,Desktop,Startup
Set WshShell = CreateObject("WScript.Shell")
Desktop = WshShell.SpecialFolders("Desktop")
Startup = WshShell.SpecialFolders("Startup")
wscript.echo Desktop
wscript.echo Startup