' Returns the Full pathe to the Desktop folder

set WshShell = WScript.CreateObject("WScript.Shell") 
strDesktop = WshShell.SpecialFolders("Desktop")
msgbox strDesktop