Executer une commande DOs dans un fichier VBS

Salut @ tous.

Je souhaiterais executer une commande DOS de type NET SEND dans un fichier .VBS.
J'arrive à executer un fichier comme ceci :

 Jackass For Life and Jerk Forever !!!

Utilise plutôt ceci:

        Dim Message
        Set Message = CreateObject("WsCript.Shell")
        Message.run "net send ..."

Set fso = CreateObject("Scripting.FileSystemObject")
set shl = createobject("wscript.shell")
shl.run "command  /c ipconfig /all > c:\ip.txt",0,true



Il execute la commande IPCONFIG et envoie les resultats dans un fichier ip.txt sous c:\ que tu peux lire
Si tu veux les avoir à l ecran tu remplaces" command  /c " par "command  /k "
Si tu veux ouvrir l explorer de Windows
shl.run "explorer"

Petite question à ce sujet. Je veux lancer netsh dans un script vbs mais si je met le nom de l'interface entre guillemets ("Connexion au réseau local") sa me plante le prog.
Comment inserer un texte entre "" dans une commande Dos integée au Vbs???
Merci

avec des double double quote ?? peut etre MashkaN
""Connexion au réseau local""

A+
juvamine

    bonjour,
je suis pas vraiment pro avec shell mais il me faut l'apprendre aujourd'hui
est ce que qlq'un peut m'aider
utiliser : ipconfig/all dans un projet VB6 ou Delphi.

j'ai juste bésoin des Mac adresses de qlq client

Tu peux integrer ces lignes de VBS dans VB6



' Declaration des variables
'dim  BtnCode, paroles, domaine, addrip, rep, nuser, ordi
' Declaration des objets

set ntw = CreateObject("WScript.Network")
set shl = createobject("wscript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set env = shl.Environment("SYSTEM")
' Verification de l environnement
var = env("os")

nuser = ntw.username
ordi = ntw.computername
domaine=ntw.userdomain



fic_tempo="c:\"
 if var = "Windows_NT" then
        commande = "cmd"
    param =9
    position=50
    position1=55
 else
        commande="command"
    param=2
    position=43
    position1=48
 end if
shl.run commande &" /c ipconfig /all > "&fic_tempo&"ip.txt",0,true
set var_ip = fso.opentextfile(fic_tempo&"ip.txt",1,-2)
while not var_ip.atendofstream
    ligne = var_ip.readline
    cpt =instr(1,ligne,"Adresse IP",1)
    cpt1 =instr(1,ligne,"Adresse physique",1)
        if cpt = param then
               trouve = right(ligne,position)
                'paroles = shl.popup ("- Utilisateur                :  "&nuser&vbcrlf&"- Nom de l ordinateur : "&ordi&vbcrlf&"---------------------------------------------------"&vbcrlf&vbcrlf&vbcrlf&trouve,, "       Votre connection    ©CMI34 L.R. ",0+64)
    end if
     if cpt1 = param then

        trouve1 = right(ligne,position1)
                'paroles = shl.popup ("- Utilisateur                :  "&nuser&vbcrlf&"- Nom de l ordinateur : "&ordi&vbcrlf&"---------------------------------------------------"&vbcrlf&vbcrlf&vbcrlf&trouve,, "       Votre connection    ©CMI34 L.R. ",0+64)paroles = shl.popup ("- Utilisateur                :  "&nuser&vbcrlf&"- Nom de l ordinateur : "&ordi&vbcrlf&"---------------------------------------------------"&vbcrlf&vbcrlf&vbcrlf&trouve,, "       Votre connection    ©CMI34 L.R. ",0+64)
   
    end if
wend

 paroles = shl.popup ("- Utilisateur                :  "&nuser&vbcrlf&vbcrlf&"- Station  n°               : "&ordi&vbcrlf&"---------------------------------------------------"&vbcrlf&vbcrlf&trouve1&vbcrlf&trouve,, "       Votre connection     © CMI34 R.L. ",0+64)
var_ip.close
fso.deletefile(fic_tempo&"ip.txt")