Discussion :

[Sprsrini]

Bonjour,

J'ai créé un script VBS qui doit exécuter un diskpart :

Code :

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

1
2
3
4
5
6
7
8
9
Set oShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
strCurrentDir = oShell.CurrentDirectory
strDiskpart = oShell.ExpandEnvironmentStrings("%windir%\system32")
 
strDispartCmdm = strDiskpart & "\diskpart.exe /s " & Chr(34) & strCurrentDir & "\script.ini" & Chr(34) & ">" & Chr(34) & strCurrentDir &  "\output.txt" & Chr(34)
 
oShell.Run strDispartCmdm, 1, True

Ce code supprime le fichier output.txt s'il existe, sinon il exécute la commande diskpart avec en variable le contenu du fichier script.ini, dont voici le contenu, et est censé me renvoyer le résultat dans le fichier output.txt.

Code :

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

1
2
3
diskpart
select volume D
detail disk

Le problème est que ça ne marche pas : il m'affiche rapidement une invite de commande et le ferme immédiatement. Le fichier output.txt n'est qu'en à lui pas créé.

Est-ce que vous auriez une solution ?

Merci

[SfJ5Rpw8]

place toi dans une fenêtre de commande pour lancer ce script et ainsi voir le message d'erreur ...

[omen999]

sans oublier de se placer dans le répertoire où était lancé ton script

[Sprsrini]

Merci pour vos réponses.

Je me suis placé dans le chemin où est mon script et j'ai rentré ça :

Code :

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

C:\Windows\System32\diskpart.exe /s "C:\Users\toto\Mes documents\tutu\Scripts VBS\script.txt">"C:\Users\toto\Mes documents\tutu\Scripts VBS\output.txt"

C'est ce qu'est censé faire le script VBS.

Je n'ai pas d'erreur dans l'invite de commande, mais voici ce que je vois dans le fichier output.txt qu'il me retourne :

Code :

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

1
2
3
4
5
6
7
 
Microsoft DiskPart version 6.1.7600
Copyright (C) 1999-2008 Microsoft Corporation.
Sur l'ordinateur : XXXXXXXXXX
 
DiskPart n'a pas pu ouvrir un lire le fichier script.
V‚rifiez que le fichier que vous avez sp‚cifi‚ existe.

Merci

[SfJ5Rpw8]

rajoute des espaces autour du "redirecteur"
[CODE...]txt " > " C:\U..[/CODE]
pour lancer le script en ligne de commande tu saisie :

Code :

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

monscript.vbs

MonScript.vbs étant le nom de ton fichier script...

[Sprsrini]

Bonjour,

J'ai réessayé la ligne de commande

Code :

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

C:\Windows\System32\diskpart.exe /s "C:\Users\toto\Mes documents\tutu\Scripts VBS\script2.ini" > "C:\Users\toto\Mes documents\tutu\Scripts VBS\output.txt"

et il me retourne bien le fichier output.txt avec le résultat.

Par contre si je le réessaye avec le script vbs (je précise que j'exécute bien le script à partir d'un invite de commande ouvert avec les droits admin sur Win 7), ça ne marche pas. J'ai mis un MsgBox pour voir ce que me retourne la variable strDispartCmdm, et ça correspond bien à ce que je met manuellement dans un invite de commande.

J'ai rajouté un cmd /K dans la variable strDispartCmdm pour forcer l'apparition de la fenêtre. Résultat : la fenêtre s'ouvre, affiche un prompt, et rien.

Je pense qu'il y a un problème lors de l'exécution de la ligne de commande présente dans la variable.

C'est vraiment bizarre

[SfJ5Rpw8]

Bonsoir,
je comprends pas ou tu as rajouter ton cmd /K ..? tu n'en as pas besoin .. ?
si tu lance ton script depuis une fenêtre "ligne de commande" tu n'as pas à ouvrir de fenêtre supplémentaires..

[Sprsrini]

Le cmd /K je l'ai ajouté dans mon script vbs, pas quand je tape la commande à la main.

J'ai ajouté ce paramètre dans le script parce qu'il ouvrait et fermait la fenêtre en un instant, donc je ne voyais pas ce qu'il faisait, et s'il y avait des erreurs.

[SfJ5Rpw8]

c'est bien ce que je dis ... tu n'as pas besoin du cmd /K ... il te suffit de "lancer le script à la main" ... comme tu le fais pour ta commande...

[Sprsrini]

Merci à tous pour votre aide, j'ai réussi à régler le problème.

En fait, il ne fallait pas mettre de "else" dans la condition "if" : si le fichier output.txt existait, il le supprimait mais il ne rentrait pas dans le "else" (logique).

Voila. Je met le poste en résolu .

[SfJ5Rpw8]

Merci à tous pour votre aide, j'ai réussi à régler le problème.

En fait, il ne fallait pas mettre de "else" dans la condition "if" : si le fichier output.txt existait, il le supprimait mais il ne rentrait pas dans le "else" (logique).

Voila. Je met le poste en résolu .

..... il n'y as ni if ni esle dans ton code

[Sprsrini]

Ah oui^^

Voici mon code final:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set oShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
strCurrentDir = oShell.CurrentDirectory
strDiskpart = oShell.ExpandEnvironmentStrings("%windir%\system32")
 
periph_name = strCurrentDir & "\name.txt"
If oFSO.FileExists(periph_name) Then
	oFSO.DeleteFile periph_name,True
End If
 
	strDispartCmdm = "cmd /C" & strDiskpart & "\diskpart.exe /s " & Chr(34) & strCurrentDir & "\periph.ini" & Chr(34) & " > " & Chr(34) & strCurrentDir & "\name.txt" & Chr(34)
 
	oShell.Run strDispartCmdm, 1, True

La seule chose qui change entre le premier script et celui-ci, c'est le "cmd /C" et la condition "if". Sans le "cmd /C" ça ne marche pas.

[SfJ5Rpw8]

Ok mais il ne sert à rien d'effacer le fichier ... la redirection de la sortie standard (le >) l'efface de toute façon