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