1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| Option Explicit
Function CMD_DOS(StrCmd,Console)
Dim ws,MyCmd,Resultat
Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
If Console = 0 Then
MyCmd = "CMD /C " & StrCmd & " "
Resultat = ws.run(MyCmd,Console,True)
End If
'La valeur 1 pour montrer la console MS-DOS
If Console = 1 Then
MyCmd = "CMD /K " & StrCmd & " "
Resultat = ws.run(MyCmd,Console,True)
End If
CMD_DOS = Resultat
End Function
'Exemples d'utilisations :
Dim Titre
Titre = "Exemples d'utilisations de la Fonction CMD_DOS"
'Msgbox "Démarrer la calculatrice en cachant la console",64,"Démarrer la calculatrice en cachant la console"
'Call CMD_DOS("Start Calc.exe",0) 'Démarrer la calculatrice en cachant la console
'Msgbox "Démarrer la calculatrice en montrant la console",64,"Démarrer la calculatrice en montrant la console"
'Call CMD_DOS("Start Calc.exe",1) 'Démarrer la calculatrice en montrant la console
'Faire un ping sur une URL et rediriger le résultat vers un fichier puis ouvrir ce dernier tout en cachant la console
'Msgbox "Faire un ping sur une URL et rediriger le résultat vers un fichier puis ouvrir ce dernier tout en cachant la console",64,Titre
'Call CMD_DOS("ping.exe www.google.com > c:\LogPing.txt & Start c:\LogPing.txt",0)
'Faire un Traceroute sur une URL et rediriger le résultat vers un fichier puis ouvrir ce dernier tout en montrant la console
'Msgbox "Faire un ping sur une URL et rediriger le résultat vers un fichier puis ouvrir ce dernier tout en montrant la console",64,Titre
'Call CMD_DOS("Tracert.exe www.google.com >> c:\LogTracert.txt & Start c:\LogTracert.txt",1)
'Call CMD_DOS("ftp /? > FTPtempHelp.txt 2>&1 & CMD /U /C TYPE FTPtempHelp.txt > FTPHelp.txt & Start FTPHelp.txt",0)
Call CMD_DOS("attrib /? > AttribtempHelp.txt & CMD /U /C TYPE AttribtempHelp.txt > AttribHelp.txt & Start AttribHelp.txt",0) |
Partager