Exportation du registre sous VB.net via CMD

Bonjour à tous,

J'aimerais pouvoir exporter le registre via mon application VB.net. Après quelques recherches sur Internet, j'ai trouvé que le meilleur moyen de le faire était de passer par cmd. J'ai alors crée le processus, lors de l'ouverture de mon application, cmd s'ouvre, le UAC de regedit s'ouvre, j'accepte, cmd charge, s'éteint (tout est normal) mais le fichier n'est pas crée ! Quel est l'erreur dans mon programme ?

Merci d'avance. PS : Error 1 est géré par le catch ex as exception juste en dessous.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim a = New ProcessStartInfo Dim p = New Process a.FileName = "cmd.exe" MsgBox("/c regedit /E Regeditexportation.reg || regedit /E Regeditexportation.reg") a.Arguments = "/c regedit /E Regeditexportation.reg" a.CreateNoWindow = False p.StartInfo = a a.UseShellExecute = False p.Start() a.StandardOutputEncoding = Encoding.GetEncoding(850) p.WaitForExit(30000) If File.Exists("Regeditexportation.reg") = False Then Error 1 End If

---

Bonjour,

Mais, tu peux obtenir le texte du message d'erreur:

=> Exception c'est une classe avec ses propriétés et ses méthodes
=> Ex, c'est un objet Exception

Code:

---

1 2 3 4 5

try 'opération qui plante ou qui pourrait planter catch ex as exception messagebox.show(ex.message) end try

---

Surtout qu'avec un bloc Try tu n'as absolument pas besoin des antiquités suivantes. Elles sont là juste pour préserver la compatibilité

On Error goto
On Error gosub
On Error Resume
On error resume next

Justement, le seul message d'erreur que je reçois est celui que j'ai moi-même stimulé par Error 1 (Message d'erreur : Erreur défini par l'application ou par l'objet.)
En effet, il n'y a pas d'erreur, cmd s'ouvre normalement, l'UAC s'ouvre avec les informations de regedit, je valide, cmd charge, se ferme, tout est normal mais pas de fichier, que ce soit dans le fichier bin de l'application ou autre part quand je donne un chemin de fichier absolu.
Je pourrais tenter de récupérer la sortie du processus cmd, voire si il me renvoit un succès ou un échec mais quand j'essaye :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim a = New ProcessStartInfo Dim p = New Process a.FileName = "cmd.exe" MsgBox("/c regedit /E " & My.Computer.FileSystem.SpecialDirectories.Desktop & "\Regeditexportation.reg || regedit /E " & My.Computer.FileSystem.SpecialDirectories.Desktop & "\Regeditexportation.reg") a.Arguments = "/c regedit /E " & My.Computer.FileSystem.SpecialDirectories.Desktop & "\Regeditexportation.reg" a.CreateNoWindow = False p.StartInfo = a a.UseShellExecute = False p.Start() a.StandardOutputEncoding = Encoding.GetEncoding(850) p.WaitForExit(30000) MsgBox(p.StandardOutput.ReadToEnd) If File.Exists("Regeditexportation.reg") = False Then Error 1 End If

---

Il me dit : StandardOutput n'a pas été redirigé ou le processus n'a pas commencé., donc je n'arrive pas à en tirer quelque chose.
Je pense que le problème doit venir d'une mauvaise syntaxe de la commande ou du code en lui-même...

UP !

J'ai résolu mon problème en le contournant un petit peu, mais comme le code de l'invite de commandes n'est pas confidentiel, ça ne posait pas de problèmes.
J'ai en faite crée un fichier bat avec les instructions, je l'ouvre, j'attend au plus 30 secondes que le programme se mette en route (le problème freeze, mais vous pouvez utiliser un backgroundworker), puis le fichier bat est supprimé, on vérifie la présence de la sauvegarde regedit pour être sûr que tout s'est bien passé et on retourne True ou False en fonction du succès ou de l'échec. Voici la fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Function save_registry(ByVal filepath As String) Try If File.Exists(Path.GetDirectoryName(filepath) & "\command.bat") = True Then File.Delete(Path.GetDirectoryName(filepath) & "\command.bat") End If File.AppendAllText(Path.GetDirectoryName(filepath) & "\command.bat", "regedit /E " & Chr(34) & filepath & Chr(34)) Dim a = Process.Start(Path.GetDirectoryName(filepath) & "\command.bat") a.WaitForExit(30000) Try File.Delete(Path.GetDirectoryName(filepath) & "\command.bat") Catch ex As Exception   End Try If File.Exists(filepath) = True Then Return True Else Return False End If Catch ex As Exception Return False End Try End Function

---

Que vous pouvez apeller par un chemin d'accès + nom du fichier et extension, exemple :

Code:

---

1 2	MsgBox(save_registry(Application.UserAppDataPath & "\exportation.reg"))

---

PS : Merci à ce fil pour m'avoir indirectement aidé : http://www.developpez.net/forums/d15...l-fichier-bat/:merci::merci:
Le sujet est :resolu: