Here is the script:
Code:
Option Explicit Const CSIDL_COMMON_PROGRAMS = &H17 Const CSIDL_PROGRAMS = &H2 Const CSIDL_STARTMENU = &HB Const CSIDL_CURRENT_USER_DESKTOP = &H10 Const CSIDL_PUBLIC_DESKTOP = &H19 Dim objShell, objFSO Dim objCurrentUserStartFolder