Lancer un Batch en fenêtre reduite ds la barre des tâches (problème de code)

Version imprimable

23/05/2007, 02h22
arnofly

Lancer un Batch en fenêtre reduite ds la barre des tâches (problème de code)
Slt tout le monde,

J'ai fais des recherches avec Google mais les exemples sont toujours pratiquement les mêmes et sans inclure la commande intWindowsStyle

Code complet de mon fichier VBS :
Code:

1 2 3 Set WshShell = WScript.CreateObject("WScript.Shell") object.Run (strCommand, [intWindowStyle], [bWaitOnReturn]) WshShell.Run ("C:\File.cmd", 0, True)
Lorsque je lance mon fichier.vbs, Windows indique le message d'erreur suivant et le code ne fonctionne pas :

Citation:

--------------------------------------------------------------
Ligne: 2
Caract.: 60
Erreur: L'appel d'une fonction Sub n'admet pas de parenthèse.
--------------------------------------------------------------

Si quelqun pouvais corriger, ça serait sympa car je n'y arrive pas, même apres plusieurs essaies.
23/05/2007, 11h30
abertaud

La solution est dans le message d'erreur : Run est une fonction de type SUB. Son appel se fait donc comme suit :

Code:

WshShell.Run "C:\File.cmd", 0, True

ou bien

Code:

Call WshShell.Run ("C:\File.cmd", 0, True)

Par contre, tu devrais supprimer la ligne

Code:

object.Run (strCommand, [intWindowStyle], [bWaitOnReturn])

qui n'est que la définition de la signature de la méthode Run
23/05/2007, 12h25
arnofly

Excellent !

J'allais te répondre que j'avais déjà essayé sans les parenthèses, justement suite au message d'erreur et que ça n'avais pas fonctionné mais j'a qd m fait un copié/collé de ta ligne de code ds mon vbs avant et là oh miracle ça marche !

Par contre, qd je regarde ds les processus, mon fichier s'appelle "cmd.exe". En fait il n'a pas de titre. Comment lui en donner un stp ?
23/05/2007, 14h15
abertaud

la commande Run permet d'exécuter une commande. Son traitement est identique à celui qui serait fait dans l'invite de commande windows "cmd.exe", en saisissant

Code:

C:\File.cmd

Voila pourquoi les espaces foutent le bordel s'il y en a dans le chemin d'accès à ton fichier, et voila pourquoi il apparait comme cmd.exe dans le gestionnaire des tâches.

Pour ce qui est de son renommage, je n'ai pas de solution à te donner malheureusement...
23/05/2007, 17h52
arnofly

Tant pis c pas bien grave, j'ai plus important à gérer en ce moment. Merci qd m.

Par contre, je n'ai pas d'espace ds le nom de mes fichiers. J'ai pris l'habitude avec MS-DOS qui est encore plus chiant puisqu'il faut se limiter à 8 caractères. A moins que "_" soit pris pour un espace.

Cela dit, ce VBS execute un Batch qui dans son code (celui du Batch) execute un autre VBS contenant une extansion, donc un espace.
24/05/2007, 09h22
abertaud

La commande run à le même comportement que si tu utilisais MS-DOS. Donc les caractères UNDERSCORE dans les chemins ne posent aucun problème.

Par contre, je te conseille quand même de toujours rajouter Chr(34) en début et fin de chaine. Ca correspond au caractere guillemet et ca te protegera au cas où un espace apparait un jour dans un chemin d'accès à un exécutable.

Code:

WshShell.Run Chr(34) & fichierAExecuter & Chr(34), 0, True
25/05/2007, 00h09
arnofly

merci pour l'astuce.

Aller, j'ai la flème de jouer du Google, mais je me demande à l'instant quels sont les comandes pour ajouter/supprimer une clé de registre et Copier/coller des fichiers stp ? Si c trop long à expliquer, je comprendrais.

PS : je début en VB.NET et c le prepier language que j'apprends. J'ai mais 10 jours à faire un truc simple et encore, Aspic, un membre de ce forum m'a filé un bon coup de main. Alors recommencer toutes mes recherches pour le VBS... j'ai pas le courrage pour le moment.

a+

pour copier tes fichiers, jette un oeil dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 '<<<<<<< LECTURE d'un fichier >>>>>>>>>>>>
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'on instance le fichier texte 
Set Ftxt = FSO.OpenTextFile("Monchemin")
 
'on parcours chaque ligne du fichier texte
Do While Not Ftxt.AtEndOfStream
      MaVariable = Ftxt.Readline
      '....... <- votre code ici pour traiter chaque ligne
Loop
 
Ftxt.Close
 
 
'<<<<<<< ECRITURE dans un fichier >>>>>>>>>>>>
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt =  FSO.createTextFile("Monchemin",true) 'true=ecrase
 
'On ecrit ce que l'on veut dans le fichier 
Ftxt.writeline ("Mon texte à écrire ou ma Variable texte")
 
Ftxt.Close
 
'<<<<<<<<<  DEPLACER un fichier >>>>>>>>>>>>>>>
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'Déplacement du fichier
Set Ftxt = fso.GetFile("moncheminsource")   'Fichier origine
Ftxt.move("monchemindestination") 'emplacement destination
 
'<<<<<<<<<  COPIER un fichier >>>>>>>>>>>>>>>
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'Copie du fichier
Set Ftxt = fso.GetFile("moncheminsource")   'Fichier origine
Ftxt.copy("monchemindestination") 'emplacement destination
 
'<<<<<<<<<  SUPPRIMER un fichier >>>>>>>>>>>>>>>
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'Suppression du fichier
Set Ftxt = fso.GetFile("moncheminsource")   'Fichier origine
Ftxt.delete

ca traite la création la lecture et l'écriture, mais aussi la copie et la suppression. Pour un déplacement, fais exactement comme pour la copie en utilisant la commande Move au lieu de Copy.

Pourquoi veux-tu toucher au registre ?

25/05/2007, 12h13
arnofly

pour personaliser windows. J'ai 2 partitions de mon DD.

C: = OS + Programmes + profil utilisateur (incomplet)
D: = Documents de Allusers, Mes documents, mes favoris, dossier Bureau, messages d'Outlook Express, image Ghost...

Si je restaure mon PC suite à un virus ou autre, je n'ai meme pas besoin de faire de sauvegarde avant. pratique ! :king:

Je le fais deja avec un Batch mais avec un VBS, je pourrais rajouter un MsgBox du genre " Attention, modification du compte toto" ou des messages ds le genre. Et puis ça fait plus propre qu'avec CMD.

Voila, tu sais tout ;)
25/05/2007, 12h14
arnofly

move, copy... on croirait du DOS.

Ne me dit pas que pour le regsitre, c REG ADD, REG DELTE... ça serait trop beau :D
25/05/2007, 12h26
abertaud

Je ne sais pas encore pour le registre.

Mais mon projet arrive à son terme et quand j'en aurai fini avec toute sa doc, qui a pris un peu de retard, je serai amené à forcer une exécution quotidienne de mes vbs.

Donc je serai peut-être amené à me pencher sur le sujet qui t'intéresse à ce moment là.
25/05/2007, 12h30
arnofly

Bonne continuation alors, merci pour les infos, et à bientot.