Planificateur de tâche - Problème de lancement fichier .VBS

Bonjour,



J'essai de lancer un code .VBS au démarrage de ma session mais il ne se lance pas. Par contre il se lance manuellement sans aucuns soucis ! Je pense que le problème ne vient donc pas du code. J'ai donc :
- Lancé le planificateur de tâches
- cliqué sur "Créer une tâche de base..."
- Associé un nom à ma tâche
- Sélectionné "Quand j'ouvre une session"
- Sélectionné "Démarrer un programme"
- désigné l'emplacement de mon fichier.vbs dans "Programme/Script"
Mon chemin étant "C:\NePasToucher\VBS\alerteTraitementBiocide.vbs"

1) J'ai évité les espaces afin d'éviter une éventuelle faute de chemin (Prévention)
2) Mon programme se lance manuellement, mais ne se lance pas à l'ouverture de ma session grâce au "planificateur des tâches"
3) J'ai coché la case "Exécuter avec les autorisations maximales"
4) Le programme s'est déjà lancé à l'ouverture de la session mais ne se lance plus (Je ne sais pas pourquoi)

Code tout de même :

Option Explicit 
On Error Resume Next

'*** Permet de lire dans le fichier 'alerteTraitementBiocide' afin de savoir si l'utilisateur à cliqué sur oui ou non lors de l'apparition de la fenêtre pop-up
'*** Si l'utilisateur clique sur oui alors il y aura un '1' dans le fichier 'alerteTraitementBiocide', '2' si non
Dim fso, myFile, content, dayNow
set fso = CreateObject("Scripting.FileSystemObject") 
set MyFile = fso.OpenTextFile("C:\NePasToucher\VBS\alerteTraitementBiocide.txt", 1)
content = myFile.ReadLine
myFile.Close
set fso = Nothing

dayNow = Day(Now())	

'*** Si on est entre le 7 et le 22 du mois et que la personne n'a toujours pas répondu 'oui' à l'alerte alors la fenêtre s'affiche
If dayNow >= 7 AND dayNow <= 22 AND StrComp("0",content) = 0 Then
	If msgBox("Le Traitement Biocide est "& chr(224) &" faire ! Le faire aujourd'hui ?",vbExclamation+vbYesNo,"Important !") = vbYes Then
		Set fso = CreateObject("Scripting.FileSystemObject")
		Set MyFile = fso.CreateTextFile("C:\NePasToucher\VBS\alerteTraitementBiocide.txt", True)
		myFile.WriteLine("1")
		myFile.Close
	End If
ElseIf ( dayNow < 7 OR dayNow > 22 ) AND StrComp("1",content) = 0 Then
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set MyFile = fso.CreateTextFile("C:\NePasToucher\VBS\alerteTraitementBiocide.txt", True)
	myFile.WriteLine("0")
	myFile.Close
End If

set fso = Nothing

Merci
--
Bien cordialement,
Hugo