Problème exécution diskpart dans un fichier VBS

Version imprimable

Bonjour,

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

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:

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

15/12/2009, 16h11
SfJ5Rpw8

place toi dans une fenêtre de commande pour lancer ce script et ainsi voir le message d'erreur ...
15/12/2009, 16h16
omen999

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

Merci pour vos réponses.

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

Code:

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:

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

15/12/2009, 17h12
SfJ5Rpw8

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

Code:

monscript.vbs

MonScript.vbs étant le nom de ton fichier script...
16/12/2009, 20h29
Sprsrini

Bonjour,

J'ai réessayé la ligne de commande

Code:

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 :pleure:
16/12/2009, 22h40
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..
16/12/2009, 22h45
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.
16/12/2009, 22h47
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...
18/12/2009, 19h04
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 :).
18/12/2009, 19h34
SfJ5Rpw8

Citation:

Envoyé par 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 :).

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

Ah oui^^

Voici mon code final:

Code:

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.

18/12/2009, 19h46
SfJ5Rpw8

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