Discussion :

[chapeau_melon]

Hello

Peut-on faire ceci :

Au lieu de mettre c: ou d: etc... stRep = "C:\" 'Répertoire de travail

Mettre le nom d'un disque dur ou d'une clé usb.

Il se trouve que je dois travailler avec des clés usb.
Mais chez un client elle ce trouvera comme E:, chez un autre comme D:
Donc pas de référence stable.

Par contre le nom de la clé en soit ne change pas.

Bien à vous

[SfJ5Rpw8]

ton script il se trouve où sur ta clef ..?

[chapeau_melon]

non. je ne pense pas faire cela. Le script serai dans un répertoire fixe précis sur le dd. Mais les fichiers que le script doit traiter son sur la clé.

A+

[chapeau_melon]

Hello,

J'ai trouvé une solution mais le script est long en temps exécution ?

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
 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
 
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk") 
 
For each objDisk in colDisks 
    If objDisk.DriveType = 2 then'2=Removable  
       If objDisk.VolumeName = "MERLIN" then 
            Merlindr = objDisk.Name  
		msgBox "Je suis la lettre de la clé Merlin " & Merlindr          
        End If 
'now you write to Merlindr as your target 
    End If
Next

Si je me trompe pas je peux donc faire ceci :

Code :

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

stRep = Merlindr 'Répertoire de travail

Mais pourquoi met-il tant de temps à s'exécuter ?

Ah oui, autre chose; si j'exécute le script en même temps que d'inserer la clé usb, alors la clé ne se 'connecte' même pas.

Tandis, si je mais d'abord la clé, et que je la vois dans mon ordi, et puis lancer script, il n'y a aucun souci.

[ced600]

Le temps d'exécution du script est forcement long puisqu'il effectue le travail sur tous les disques logiques de la machine. Pour en savoir plus sur Win32_LogicalDisk, regarde ici :
http://msdn.microsoft.com/library/de...ogicaldisk.asp
Essaye cela :

Code :

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

1
2
 
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where Name = 'MERLIN'")

Je n'ai pas testé, mais si cela fonctionne, le script pourrait être plus rapide.

Ah oui, autre chose; si j'exécute le script en même temps que d'inserer la clé usb, alors la clé ne se 'connecte' même pas.

Tandis, si je mais d'abord la clé, et que je la vois dans mon ordi, et puis lancer script, il n'y a aucun souci.

Cela parait normal, si tu connectes un nouveau disque logique pendant que le script le recherche parmis la liste de tous les disques logiques, alors ça peut provoquer des merdes.

[chapeau_melon]

Excellent !

Un grand merci pour cette idée que j'ai légèrement modifié :

Maintenant le script donne un résultat instantané !

Code :

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

1
2
 
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where DriveType=2 And VolumeName='MERLIN'")