Lancer une commande console "SYSTEMINFO" sous VB ??

Le
teddy
Bonjour,

Je lance ceci :

Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run ("SYSTEMINFO > systeminfo.txt")

Ca ne marche pas car "> systeminfo" est pris pour un argument, par contre :
WshShell.Run ("SYSTEMINFO") fonctionne et ouvre une fenêtre DOS avec le
résultat.

Savez-vous comment passer la commande complète avec redirection vers un
fichier texte (pour récupérer les infos) ou bien comment capturer le
résultat de cette commande SYSTEMINFO ?
Merci pour vos idées.

Teddy
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacques93
Le #15337851
Bonjour teddy,
teddy a écrit :
Bonjour,

Je lance ceci :

Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run ("SYSTEMINFO > systeminfo.txt")

Ca ne marche pas car "> systeminfo" est pris pour un argument, par contre :
WshShell.Run ("SYSTEMINFO") fonctionne et ouvre une fenêtre DOS avec le
résultat.

Savez-vous comment passer la commande complète avec redirection vers un
fichier texte (pour récupérer les infos) ou bien comment capturer le
résultat de cette commande SYSTEMINFO ?
Merci pour vos idées.




Essaie :

Dim WshShell As Object

Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run ("cmd /c SYSTEMINFO > systeminfo.txt")


--
Cordialement,

Jacques.
Fred
Le #15337841
teddy a écrit :
Bonjour,



Bonjour,

Je lance ceci :

Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run ("SYSTEMINFO > systeminfo.txt")

Ca ne marche pas car "> systeminfo" est pris pour un argument, par contre :
WshShell.Run ("SYSTEMINFO") fonctionne et ouvre une fenêtre DOS avec le
résultat.



Essaie avec la méthode Exec.


--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
teddy
Le #15337761
Ca marche impeccable !
Merci beaucoup.
Ted

"Jacques93" a écrit dans le message de news:

Bonjour teddy,
teddy a écrit :
Bonjour,

Je lance ceci :

Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run ("SYSTEMINFO > systeminfo.txt")

Ca ne marche pas car "> systeminfo" est pris pour un argument, par
contre :
WshShell.Run ("SYSTEMINFO") fonctionne et ouvre une fenêtre DOS avec le
résultat.

Savez-vous comment passer la commande complète avec redirection vers un
fichier texte (pour récupérer les infos) ou bien comment capturer le
résultat de cette commande SYSTEMINFO ?
Merci pour vos idées.




Essaie :

Dim WshShell As Object

Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run ("cmd /c SYSTEMINFO > systeminfo.txt")


--
Cordialement,

Jacques.


Publicité
Poster une réponse
Anonyme