Petit script VBS pour dézipper sous Win 7

Bonjour,

Pour ma sœur, j'ai voulu faire un petit Script sous VBS afin de procéder directement au dézippage automatique d'une application dont les mises à jour sont fréquentes car elle (ma sœur) est comme une poule devant un clavier d'ordinateur.

Elle sais juste télécharger la mise à jour et après c'est, pour elle, mission impossible.

Voici le script que j'ai réussi à pondre (car pour moi, c'est pas évident non plus) :

Donc rien de bien compliqué, pas de déclaration de variable, ni de procédure à faire.

Je l'ai appelé "truc.vbs". Sur mon ordinateur (Windows 10) il marche très bien sans rien ajouter d'autre et en faisant un double clic dessus.

Quand je l'ai installer sur le sien (windows 7), il ne fonctionne plus et me met une erreur ligne 1 caractère 1.

LeDepart = "D:\Downloads" 'Le dossier (téléchargement) qui reçoit le fichier téléchargé
LArrive = "C:\Captvty" 'Le dossier où doit s'éffectuer le dézippage

Set objFSO = CreateObject("Scripting.FileSystemObject") 'Le FSO
Set objFolder = objFSO.GetFolder(LeDepart) 'Le répertoire de travail
Set colFiles = objFolder.Files 'Les fichiers de travail

For Each objFile in colFiles 'Pour chaque fichier de l'ensemble des fichiers à scruter
    'Si on en trouve un qui contient les mots captvty et .zip
       if instr(objFile.Name,"captvty") <> 0 AND instr(objFile.Name,".zip") <> 0 then
        LeFichier = objFile.Name 'On copie son nom entier dans "LeFichier"
        Existe = 1 'On met un 1 dans "Existe" comme ça on saura qu'on l'as trouvé
            
        'Dézippe le fichier
        DossierZip =LeDepart & "\" & LeFichier 'Adresse complète du fichier a dézipper
        DossierDezip = LArrive 'Répertoire où le dézippage doit avoir lieu
            Set FSOWind = CreateObject("Shell.Application") 'FSO spécial windows
        'C'est l'opération de dézippage avec l'option "remplacer"
            FSOWind.Namespace(DossierDezip).CopyHere FSOWind.Namespace(DossierZip).Items, 16
            'Set osa = Nothing

        'Détruie le fichier zip
        objFSO.DeleteFile (LeDepart & "\" & LeFichier)
        exit for 'Sort de la boucle "Each for" car le fichier a été trouvé et travaillé
       end if
Next

'Informe l'utilisateur qu'aucun fichier "captvty" n'a été trouvé
if Existe <> 1 then msgbox "Il n'y a pas de fichier CapTVty dans le dossier de telechargement"

J'ai essayé en mettant "option explicite" et en déclarant les variables mais rien à faire.

Dois-je installer un truc sur son appareil ou bien ajouter des lignes de commandes (lesquelles ?), enfin, voilà pourquoi je cherche de l'aide.

Merci d'avance, Marc

Windows / Firefox 102.0