' -*- coding: utf-8 -*-

Set sh = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
windir = fso.getspecialfolder(0).path

programs = sh.specialfolders("Programs")
allprograms = sh.specialfolders("AllUsersPrograms")
If allprograms = "" Then
  allprograms = programs
End If

desktop = sh.specialfolders("Desktop")
alldesktop = sh.specialfolders("AllUsersDesktop")
If alldesktop = "" Then
  alldesktop = desktop
End If

' Répertoire de base. On assume que c'est le répertoire qui contient le script
basedir = wscript.scriptfullname
basedir = Mid(basedir, 1, Len(basedir) - Len(wscript.scriptname) - 1)
