Dim objFSO
Dim objTextFile
Dim CheminRepertoire, CheminFichier
Dim CheminScriptActuel
Dim WSHShell, Commande, vAPPDATA, vSystemDrive

'Déclaration des constantes
Const ForReading = 1
Const ForWritting = 2
Const ForAppending = 8

Set WSHShell = CreateObject("WScript.Shell")
vAPPDATA = WSHShell.ExpandEnvironmentStrings("%APPDATA%")
vSystemDrive = WSHShell.ExpandEnvironmentStrings("%SystemDrive%") 'Retourne C: en général (sans le \ à la fin)

CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
'CheminFichier = CheminScriptActuel & "\ZZMonFichier.txt" 'Déclaration du chemin et du nom du fichier
'CheminFichier = Trim(InputBox("Entrez le chemin complet du fichier","Chemin complet du fichier",CheminFichier)) 'Validation du chemin et du nom du fichier
CheminRepertoire = vAPPDATA & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
CheminFichier = CheminRepertoire & "Show Desktop.scf"


If Len(CheminFichier) > 0 Then
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForWritting, True)
	objTextFile.WriteLine("[Shell]")
	objTextFile.WriteLine("Command=2")
	objTextFile.WriteLine("IconFile=explorer.exe,3")
	objTextFile.WriteLine("[Taskbar]")
	objTextFile.WriteLine("Command=ToggleDesktop")
	objTextFile.Close 'Fermeture du fichier

	Set objTextFile = Nothing
	
	'Lancement d'un explorer vers l'emplacement du .scf
	Commande = CheminFichier
	WSHShell.Run "Explorer.exe """ & CheminRepertoire & """"	
	
	CheminRepertoire = vSystemDrive & "\Users\Public\Desktop"
	CheminFichier = CheminRepertoire & "\" & "Desktop.exe"
	'Wscript.echo CheminFichier
	Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForWritting, True)
	objTextFile.WriteLine("")
	objTextFile.Close 'Fermeture du fichier
	
	'Lancement d'un explorer vers l'emplacement de Desktop.exe
	Commande = CheminFichier
	WSHShell.Run "Explorer.exe """ & CheminRepertoire & """"	
	

	Set objTextFile = Nothing
	Set objFSO = Nothing
Else
	Wscript.echo "Operation annulee"
End If 'CheminFichier

Set WSHShell = Nothing