Version imprimable
Bonjour,
Je débute en VBS et j'ai besoin de gérer une clé USB avec un VB script:
Le but est de mettre à jour des fichiers se trouvant sur la cle USB par un autorun.
Une fois la mise à jour effectuée, c'est là que sa se complique, je dois:
- éjecter la clé usb proprement
- détecter que l'utilisateur l'a bien retirée
Je ne sais pas si on peut faire ça avec un VB script :?
merci d'avance pour votre aide.
Cédric.
En cherchant dans la FAQ (http://vb.developpez.com/faqvbs/?page=II.2.2)
j'ai trouvé comment :
- lister l'ensemble des unités de disques d'un PC
- comment tester l'existence d'un disque
- obtenir des informations sur les unités de disques (notamment drive type qui me permettra de trouver la clé usb sous la forme de disque amovible).
Tout ça me sera très utile, je pense qu'il ne me manque plus qu'à trouver
Comment ejecter un disque amovible ?
Par exemple, dans Poste de Travail, clic droit Ejecter
Quelqu'un sait comment faire ? :roll:
Il y a déjà eu des posts sur ce forum concernant ce problème.
Je te conseille de faire une recherche avec usb comme mot clé.
J'avais pas vu, y a déjà eu la même question mais sans réponse...
Merci pour le lien, j'ai trouvé ça :
Dismounting a Volume
Dismounts volume E from the file system. If you modify this script to dismount a different volume (such as X), note that your WQL query must specify the drive letter followed by a colon and then followed by two backslashes. Thus volume X would be listed as X:\\. The two parameters: 1) force the volume to be dismounted, even if users are currently connected to it; and, 2) place the volume in a no-automount, offline state. This script can be modified by setting either (or both) of these parameters to False.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_Volume Where Name = 'E:\\'")
For Each objItem in colItems
objItem.Dismount(True, True)
Next
Pensez-vous que je puisse l'utiliser pour éjecter une clé USB ?
J'essaie de lancer la script mais ça ne marche pas, je ne sais pas ce qui coince hotmis que c'est à la ligne "For Each objItem in colItems".
:bug:
bon je ne retrouve pas le sujet qui en parlais (je vais commencer à croire que je l'ai imaginé).
Il faut utiliser les objets WMI, et notemment la classe :
Win32_USBController.
Je te conseille d'aller faire un tour dans les contributions pour récupérer WMICodeGenerator, un générateur de code WMI :D
Les deux premiers onglets te permettront de générer le code et le dernier permet d'avoir la liste des propriétés et des méthodes et leur explication en français ;)
Merci à vous, ça ne me parait pas très clair mais ça doit être parce que je débute en VB.
Je teste ça dès que j'ai le temps.
Merci à vous 2.:king: