EXECUTER UNE commande msdos

Question

bonjour.je souhaite executer une commande msdos.
j'arrive en effet a ouvrir par exemple notepad en faisant:

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /c notepad"
Set objExecObject = objShell.Exec(strCommand)


mais lorsque je veux executer une commmande plus complexe contenant plusieurs parametres comme ci apres:

strCommand = "cmd /c netsh interface ip set "LAN" static 10.1.8.245 255.0.0.0 10.1.20.254 2"


cela ne fonctionne pas.
peut etre que je dois d&#233;sp&#233;cialis&#233;  le parametre lan (qui est entre guillemet) ou alors je dois mettre un  &  entre chaque parametre??
avez vous un exemple de commande msdos executant une commande complexe (avec au moins deux parametres??)
merci beaucoup!!!

Gobillot · Answer

"d&#233;coup&#233;" serait peut &#234;tre plus adapt&#233;

sinon tu peux doubler les guillemets:



strCommand = "cmd /c netsh interface ip set ""LAN"" static 10.1.8.245 255.0.0.0 10.1.20.254 2"

Daniel

crenaud76 · Answer

ERt une remarque en passant. Notepad etant un exe, tu n'as pas besoin de mettre un "cmd /c" devant pour le lancer. strCommand = "Notepad.exe" suffira

&#160;Christophe R

bigboss200000 · Answer

bonjour, cela ne fonctionne toujours pas
j'ai essay&#233; avec une commande moins complexe et j'ai fait:
Shell("ping" & "" & "10.1.8.244")
ou encore
Set objShell = CreateObject("WScript.Shell")
strCommand = "cmd /c " & "ping" & "10.1.8.24"
Set objExecObject = objShell.Exec(strCommand)

cela ne marche pas!!!!
help me
donnez moi un exemple concret de l'execution d'une commande msdos svp.merci beaucoup!!!

Gobillot · Answer

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long



Private Sub Command1_Click()

    Dim Host As String

    Dim Fnom As String

    Dim Buff As String

    

    Host = "10.1.8.244"

    Fnom = "C:\Test.txt"



    Shell ("cmd /c ping -n 3 " & Host & " > " & Fnom)

    

' boucle d'attente pour le lancement

    While FindWindow(vbNullString, "C:\WINDOWS\system32\cmd.exe") = 0

          DoEvents

          Wend

'boucle d'attente pour la fin

    While FindWindow(vbNullString, "C:\WINDOWS\system32\cmd.exe") > 0

          DoEvents

          Wend

    

'r&#233;cup&#233;ration du r&#233;sultat

    Open Fnom For Binary As #1

         Buff = Space$(LOF(1))

         Get #1, , Buff

         Close #1

    MsgBox Buff

'&#233;ventuellement suppression du fichier

     Kill Fnom   



End Sub


Daniel

bigboss200000 · Answer

merci bien

EXECUTER UNE commande msdos

5 réponses

Discussions similaires