Lancer une commande console "SYSTEMINFO" sous VB ??
3 réponses
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
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.
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")
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
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 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.
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
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.
Ca marche impeccable !
Merci beaucoup.
Ted
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
uWfMjTGZGHA.3848@TK2MSFTNGP05.phx.gbl...
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")
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")