Discussion :

[lord_kaiser]

Bonjour à tous,


Je rencontre un soucis d'exécution dans un petit script VB.

Le retour que j'ai est :

Code :

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

1
2
 Cet objet ne gère pas cette propriété ou cette méthode : 'objVol.DriveLetter'
Code : 800A01B6

Ceci concernant ce bout de code :

Code :

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

1
2
3
   for each objVol in colVol
      objVol.DriveLetter = strNewDrive
      objVol.Put_

Ps : niveau faible en prog, donc parlez moi en "human readable" svp


Si quelqu'un a une idée, je suis preneur.


S'il vous faut plus d'infos, je reste à l'écoute.



Merci d'avance.






K.

[SfJ5Rpw8]

d'où viens colVol ..?

[lord_kaiser]

J'espère que la réponse est dans le code (parce que moi j'en sais rien).
Code intégral :

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
 
' Script VB qui tente de changer une lettre de lecteur USB (F: ---> L:)
strComputer = "."
strOldDrive = "F:" 
strNewDrive = "L:" 
' ------ END CONFIGURATION ---------
 
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
'set colVol = objWMI.ExecQuery("select * from Win32_Volume where Name = '" & _
'                              strOldDrive & "\\'")
'
set colVol = objWMI.ExecQuery("Select DeviceID from Win32_DiskDrive WHERE InterfaceType='USB'")
 
if colVol.Count <> 1 then
   WScript.Echo "Erreur : Le volume recherché n'a pas été trouvé."
else
   for each objVol in colVol
      objVol.DriveLetter = strNewDrive
      objVol.Put_
      WScript.Echo "Mise à jour des lettres de lecteur effectuée avec succès."
   next
end if

Voici la source :
Source



"Petit" oubli : L'environnement est full Windows (2000 / XP / 2003)




K.

[RadPAT]

Salut,

moi c'est

Code :

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

objVol.Put_

qui me choque, ca ne me dit rien comme syntaxe VBS.

A++

[lord_kaiser]

Salut,



Moi rien ne me choque puisque que je ne connais pas ce langage - je n'ai que quelques bases en dev, mais pas plus que ça quoi.

Ceci dit, le "Windows Server Cookbook" dont est issue la majeure partie de ce code semble être une source sûre.


S'ils ont mis ça, c'est qu'il y a une raison je pense. Après, il faut peut-être que je l'adapte à mon cas.

A tâton, j'ai ôté le

Code :

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

objVol.Put_

, mais je n'ai pas pu voir si ça changeait quelque chose étant donné que le code bloque à la ligne précédente.


Toujours est-il que lorsque ce script sera fonctionnel, ça sera très pratique !


a+

[omen999]

salut,
quelque chose comme ça ?
http://www.visualbasicscript.com/m_38810/tm.htm