Erreur d'exécution - script VBS

**lord_kaiser** · 03/03/2008, 15h05

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** · 03/03/2008, 15h08

d'où viens colVol ..?

**lord_kaiser** · 03/03/2008, 15h16

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** · 03/03/2008, 15h34

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** · 03/03/2008, 15h43

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** · 03/03/2008, 16h29

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

**lord_kaiser** · 04/03/2008, 08h50

salut,

Je ne suis pas contre quelque chose comme ça, mais je ne vois pas mieux quel objet choisir à la place de "colvol", si tant est qu'il soit la cause du problème.

Je suis donc bloqué

dans tous les cas, merci à ceux qui tentent (ou ont tenté) de m'aider.

A+

**ced600** · 04/03/2008, 10h40

Alors :
objVol.Put_

J'ai déjà vu une syntaxe dans le genre sur un code fournis par MSDN.
Cela m'a surpris à l'époque mais cela marche (pas le même objet).

Perso j'aurais plus utilisé cette ligne ainsi :

Code :

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

set colVol = objWMI.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='USB'")

Comme le dit l'erreur DriveLetter n'existe pas pour la classe Win32_DiskDrive.
En fait diskdrive gère les disque physique et s'en fou des lettres de ces lecteurs, il faut utiliser win32_logicaldisk

Ensuite la propriété DeviceID renseigne sur la lettre, et tu peux la modifier.

Cela un truc du genre :

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
' 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 = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType = 2",,48) 
 
if colVol.Count <> 1 then
   WScript.Echo "Erreur : Le volume recherché n'a pas été trouvé."
else
   for each objVol in colVol
      objItem.DeviceID = strNewDrive
      WScript.Echo "Mise à jour des lettres de lecteur effectuée avec succès."
   next
end if

**lord_kaiser** · 04/03/2008, 11h34

Salut,

Lorsque j'utilise ton code, il me dit

Code :

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

Objet requis: 'ObjWMIService'

J'imagine qu'il me manque un package ou quelque chose du genre sur ma machine.

Cela voudrait dire que pour intervenir sur un poste client je devrais systématiquement installé ce qu'il me manque pour pouvoir exécuter ce script ??

Y a pas un moyen plus simple pour changer une lettre de lecteur ?

**ced600** · 04/03/2008, 13h08

Non non tu parts sur le mauvais résonnement.
J'ai juste fais un erreur de copier coller.

Même si tu es débutants lit le script, et pas comme si c'était du chinois, mais comme si c'était un texte compréhensible.

l'erreur est là :

Code :

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

1
2
3
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
set colVol = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType = 2",,48)

En gros qu'est ce que cela veut dire :
Tu récupère un objet grâce à GetObject et tu le stockes dansune variable (laisse tomber les parramètres "winmgmts:\\" & strComputer & "\root\cimv2" trop compliqué pour l'instant).
Ensuite tu demandes à l'aide de cette variable que l'objet exécute la méthode ExecQuery qui prend une requête en paramètre.
En plus de cela tu stockes le résultat de la requête dans une collection (liste si cela te parles plus).
Donc la l'erreur de copier coller que j'ai fait et que j'ai utiliser objWMIService qui n'existe pas alors que j'ai stocké l'objet dans objWMI

Donc voilà change objWMIService par objWMI.

**lord_kaiser** · 04/03/2008, 13h39

Re,

Ton explication est parfaite ! Merci

En fait, je me suis lancé là dedans sans trop m'être documenté.
Je viens de terminer de lire la doc trouvée dans les cours (INTRODUCTION AU LANGAGE VBSCRIPT de Serge Tahé).

C'est vraiment bien fait.

C'est vrai que j'ai découvert le dev par "obligation" alors j'ai pas été trop réceptif ; mais quand je vois le potentiel du VBS, ça me donne envie de m'y mettre.

Bref, je vais vérifier le code et le tester s'il n'y a plus d'erreur.

Je repasse dans quelques minutes pour donner le résultat.

Merci de ton aide dans tous les cas !

K.

**lord_kaiser** · 04/03/2008, 14h34

Bon, finalement ça n'a pas été si simple.

Déjà, le premier test plante. J'ai une erreur d'éxécution en provenance directe de SWbemObjectSet, Code : 80004005, Erreur non spécifiée.

Admettons. J'ai mis le test en commentaire pour voir ce qu'il se passe sans.

Je suis tombé ensuite sur une erreur "Objet requis : ObjItem" se référant à

Code :

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

ObjItem.DeviceID = strNewDrive

Me rappelant mon erreur précédente sur un objet inexistant, j'ai mis

Code :

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

ObjVol.DeviceID = strNewDrive

Là, je n'ai plus d'erreur.
Ma variable objVol.DeviceID vaut bien P:
Mon PC tente bien de faire qqch (allumage de la LED de la disquette par exemple), mais le lecteur F: est toujours F:

Des idées ?

Edit : J'ai un lecteur réseau qui s'appelle F: ça pourrait bloquer ? "normalement", Windows XP ne voit pas les disques réseaux dans son gestionnaire de disque, mais bon, on ne sait jamais ...

**ced600** · 04/03/2008, 19h39

Edit : J'ai un lecteur réseau qui s'appelle F: ça pourrait bloquer ? "normalement", Windows XP ne voit pas les disques réseaux dans son gestionnaire de disque, mais bon, on ne sait jamais ...

LogicalDisk voit les deux, même si une autre classe est conseillé pour travaillé sur les lecteur réseau.

Cela fait plaisirs de voir quelqu'un qui cherche de son coté et n'attends pas un code tout fait.

Bon j'ai l'impression que Win32_LogicalDisk informe sur les lecteur logique mais ne permet pas leur configuration.
Mon code ne fait rien, j'avais mal vérifié.
Si tu fais un msgbox de DeviceID juste après l'avoir modifié tu constate que cela a marché, mais en fait le changement n'est en réalité pas pris en considération.

Vas dans la partie contribution du forum vbs et regarde le sujet sur WMI Code Creator. Télécharge le soft.
Utilise le (le dernier ongle de la fenêtre) pour avoir des renseignement sur Win32_FloppyController.
Le premier onglet t'aidera à faire le code.
Je n'est pas de lecteur de disquette donc je ne peut pas essayer.

Mais pour avoir essayé avec Win32_CDROMDrive (et donc tentyer de modifier la lettre de mon lecteur de cdrom) et ne pas avoir réussi, je suis septique sur la réussite de l'opération avec Win32_FloppyController.

Bon sinon regarde sur ce forum s'il y a des sujets équivalents (utilise recherche du forum) et si j'ai du temps demain je ferais des recherche sur google.
Tente quelque recherche avec : VBScript change letter volume

**lord_kaiser** · 05/03/2008, 08h58

Salut,

En fait j'aurai dû commencer par exposer mon problème en entier.

Je vais rattraper ça.

J'ai un lecteur réseau dont le nom est F: (qui malheureusement est utilisé par un tas d'applis internes) qui n'est pas "vu" par le gestionnaire de disques Windows.

Résultat, tout matériel branché (CDRom, DD externe, clé USB ...) se voit attribuer cette lettre F: ce qui empèche l'accès au périphérique. Cela implique une intervention quasiment à chaque fois sur les postes des utilisateurs qui veulent se servir d'une clé USB.

L'idée de base est donc de leur fournir une icône sur laquelle ils pourraient cliquer qui ferait de la "magie". Cette icône, ça serait un bout de code en VBS bien évidemment (ou un autre langage, je ne suis pas raciste ;-) ).

Il faut donc que je trouve un objet qui ne voit que ce que "Gestion des disques" voit, cad les lecteurs phyisiques -d'où le Win32_DiskDrive du code initial je pense. Ce fameux Win32_DiskDrive ne gère malheuresement pas la propriété (ou méthode, je sais jamais quoi dire) DriveLetter.

Je m'en vais donc chercher des infos comme tu me le suggères.

Merci de ta contrib ced600 (les autres aussi hein

)

Sinon,

Envoyé par ced600

Cela fait plaisirs de voir quelqu'un qui cherche de son coté et n'attends pas un code tout fait.

ça fait aussi plaisir de voir quelqu'un qui croit pas que j'attends le code tout prêt (même si je dois admettre que ça ne me dérangerait pas de tomber sur un bout de code qui fonctionne comme je l'espère

)

A + pour la suite

**ced600** · 05/03/2008, 09h47

hum c'est bizzare cette histoire de lecteur réseau non vu dans par le gestionnaire des taches.
Peut être faudrait il fonctionner à l'inverse et rendre visible ce périphérique par le gestionnaire des taches ?

**lord_kaiser** · 05/03/2008, 12h14

Moi je n'ai aucune préférence ; je veux juste trouver une solution.

D'après ce que j'ai compris, c'est un problème récurrent propre à Windows, et souvent les lettres des lecteurs réseau sont décrémentées depuis Z: pour cette raison.

Je dois dire que c'est très casse ********

Sinon WMI Code Creator est vraiment bien, c'est THE outil. Dans le même genre, y a scriptomatic2 (ui aussi de chez MS) qui est accessible uniquement après validation genuine mon *** (RDV ICI). Il est moins "beau" que Code Creator, mais bon, c'est pas bien grave.
Il permet entre autres d'exporter directement le code dans un fichier et il permet l'exécution de code depuis le réseau en précisant une "WMI Source".

Je n'ai pas trop eu de temps pour essayer tout ça, mais je crois que j'ai de quoi faire.

A+

**lord_kaiser** · 10/03/2008, 16h53

Bonjour,

Ben ouais, je ne m'en sors pas. Je n'arrive pas à différencier les lecteurs réseaux des lecteurs physiques, ou alors, lorsque j'y arrive, il n'y a pas de méthode pour changer la lettre.

Ducoup j'ai un peu arrêté de réfléchir là-dessus.

Ceci dit, si une âme charitable (ou non charitable d'ailleurs) a une idée, je prends quand même.

Il doit bien y avoir un moyen pour que Windows voit les disques réseaux, c'est pas possible !

Erreur d'exécution - script VBS

VBScript

Discussions similaires

Partager

Partager