Discussion :

[nirvana4483]

Bonjour,

j'ai ce script VBS qui me sert à transférer un dossier d'une clé USB au répertoire "Mes documents" de ma tablette sous windows 10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit

Dim objFSO, objShell
Dim usbFolderPath, documentsFolderPath, testFolderPath

' Chemin vers le répertoire "test" sur la clé USB
usbFolderPath = "D:\test"

' Chemin vers le répertoire "Mes documents"
Set objShell = CreateObject("WScript.Shell")
documentsFolderPath = objShell.SpecialFolders("MyDocuments")

' Chemin complet du répertoire "test" dans "Mes documents"
testFolderPath = documentsFolderPath & "\test"

' Création de l'objet FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Vérifier si le répertoire "test" existe dans "Mes documents" et le supprimer s'il existe
If objFSO.FolderExists(testFolderPath) Then
    objFSO.DeleteFolder testFolderPath, True ' True pour supprimer récursivement avec le contenu
    WScript.Echo "Le repertoire 'test' dans Mes documents a ete supprime."
End If

' Vérifier si le répertoire "test" existe sur la clé USB
If objFSO.FolderExists(usbFolderPath) Then
    ' Copie le répertoire "test" vers le répertoire "Mes documents"
    objFSO.CopyFolder usbFolderPath, testFolderPath, True
    WScript.Echo "Transfert des fichiers termine avec succes."
Else
    WScript.Echo "Le repertoire 'test' n'existe pas sur la cle USB."
End If

' Libérer les objets
Set objFSO = Nothing
Set objShell = Nothing

j'aimerais que ce script ce lance seul et automatiquement à l'introduction de la clé USB, afin d'éviter toute manipulation fastidieuse à l'utilisateur

J'ai testé pas mal de manip avec le planificateur de tâches Windows en vain… Comment réussir?

Peut-être cela n'est pas possible dans le planificateur de tâche de Windows 10, d'avoir la connexion d'une clé USB comme déclencheur?
Ou il faudrait un script PowerShell qui se lance à l'ouverture de session, qui surveille les ports USB, et lance le script VBS si clé détectée?

je ne suis pas un dev, mais un bidouilleur à mes heures perdues, j'aurais besoin votre aide

mon besoin est réalisable je pense

Peut-être mon poste n'est pas dans la bonne section, merci de le rediriger si besoin

[chrtophe]

C'est le comportement qu'utilise certains virus. Tu vas donc avoir du mal à faire fonctionner le truc

[nirvana4483]

J'y avais pas trop pensé, mais c'est pas du tout mon but, pour cela j'aurais été me renseigner sur le dark 🙃

Je souhaite que les utilisateurs puissent mettre à jour des documents via une clé USB dans leur tablette hebdomadairement, simplement en connectant leur clé, pour que les gens adhérent il faut éliminer les irritants, et si ils doivent cliquer au doigts etc ils vont tout simplement pas le faire et utiliser des documents obsolètes

J'ai l'impression qu'avec le planificateur de tâches c'est possible, mais je n'arrive pas à paramétrer le déclencheur

[chrtophe]

J'y avais pas trop pensé, mais c'est pas du tout mon but,

Je m'en doute, ce que je voulais dire c'est que les antivirus vont être très suspicieux si quelque chose se déclenche lors de l'insertion d'une clé USB.

Un truc simple à faire, un script qui se déclenche par le planificateur (pas en vbs) lors du démarrage mais la clé devra être insérée avant son déclenchement.

[nirvana4483]

j'ai finalement réussi à configurer le planificateur de tâches windows avec mon script, cela fonctionne avec le script sur le clé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Option Explicit

Dim objFSO, objShell
Dim usbFiCaFolderPath, documentsFiCaFolderPath

' Chemin vers le répertoire "FI_CA" sur la clé USB
usbFiCaFolderPath = "D:\FI_CA"

' Chemin vers le répertoire "FI_CA" dans "Mes documents"
Set objShell = CreateObject("WScript.Shell")
documentsFiCaFolderPath = objShell.SpecialFolders("MyDocuments") & "\FI_CA"

' Création de l'objet FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Affichage du début du processus
WScript.Echo "Script By X 24/04/24"
WScript.StdOut.Write "Telechargement en cours... Retirez votre cle apres la fermeture de cette fenetre"
WScript.StdOut.Write vbCrLf

' Vérifier si le répertoire "FI_CA" existe dans "Mes documents" et le supprimer s'il existe
If objFSO.FolderExists(documentsFiCaFolderPath) Then
    objFSO.DeleteFolder documentsFiCaFolderPath, True ' True pour supprimer récursivement avec le contenu
    WScript.StdOut.Write "L'ancien repertoire 'FI_CA' dans Mes documents a ete supprime."
    WScript.StdOut.Write vbCrLf
End If

' Vérifier si le répertoire "FI_CA" existe sur la clé USB
If objFSO.FolderExists(usbFiCaFolderPath) Then
    ' Copie le répertoire "FI_CA" de la clé USB vers "FI_CA" dans "Mes documents"
    objFSO.CopyFolder usbFiCaFolderPath, documentsFiCaFolderPath, True
    WScript.StdOut.Write "Transfert du repertoire 'FI_CA' de la cle USB vers 'FI_CA' dans Mes documents termine avec succes."
    WScript.StdOut.Write vbCrLf
Else
    WScript.StdOut.Write "Le repertoire 'FI_CA' n'existe pas sur la cle USB."
    WScript.StdOut.Write vbCrLf
End If

' Affichage de la fin du processus
WScript.StdOut.Write "Fin du telechargement."
WScript.StdOut.Write vbCrLf

' Libérer les objets
Set objFSO = Nothing
Set objShell = Nothing

[chrtophe]

[nirvana4483]

cela fonctionne sur tablette windows 10 mais pas windows 11

[chrtophe]

Soit un prob de droit, soit une restriction sécurité ajoutée dans Windows 11, essyaes en désactivant temporairement Windows defender.

Il me semble que vbs est voué à disparaitre, vérifier si ça n'est du coup pas d'actu avec Windows 11.

Je n'en fais pas du vbs, donc prendre mes infos avec précaution.

[nirvana4483]

Oui sûrement des droits où je n'ai pas la main, car tablette entreprise

Je vais essayer de convertir mon script en
PowerShell aussi, je verrais la semaine prochaine