[VBS] Detecter la présence d'une clé USB

Detecter la présence d'une clé USB [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 07-06-2013 à 22:51:05    

Salut,
 
Je suis débutant  :(  et j'ai besoin de vos lumières
 
Je fais un script VBS qui recherche une clé USB qui a le nom "USB":

Code :
  1. Dim USB_Device_Letter
  3. strComputer = "."
  4. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
  5. Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where VolumeName = 'USB'" )
  7. For Each objDisk in colDisks
  8. USB_Device_Letter = objDisk.DeviceID
  9. Wscript.Echo USB_Device_Letter
  10. Next


 
Ca marche !
 
Mais j'aimerai faire une boucle qui me dise si la clé a été detecté ou non.
 
En gros, clé avec le nom '"USB" trouvé: la clé a été trouvé
Si aucune clé trouvé avec le nom "USB": aucune clé trouvé
 
J'ai testé une boucle IF mais je n'arrive pas a la mettre en place.
 
Merci d'avance pour votre aide  :jap:


Message édité par -HB- le 07-06-2013 à 22:53:20
Reply

Marsh Posté le 07-06-2013 à 22:51:05   

Reply

Marsh Posté le 19-06-2013 à 14:53:19    

:bounce:  
je trouve pas comment faire, une âme charitable?  :(  
 
 :hello:


Message édité par -HB- le 19-06-2013 à 14:53:32
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed