Executer une commande DOs dans un fichier VBS

Question

Salut @ tous.



Je souhaiterais executer une commande DOS de type NET SEND dans un fichier .VBS.

J'arrive &#224; executer un fichier comme ceci :




Set shell = WScript.CreateObject("Shell.Application")

Shell.Open("C:\Windows\system32\cmd.exe")




Mais je souhaiterai ensuite executer une commande DOS sans utiliser un batch.





 Jackass For Life and Jerk Forever !!!

poix80 · Accepted Answer

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 &#224; l ecran tu remplaces" command  /c " par "command  /k "

Si tu veux ouvrir l explorer de Windows 

shl.run "explorer"

purplespot · Answer

Utilise plutôt ceci: Dim Message Set Message = CreateObject("WsCript.Shell") Message.run "net send ..."

MashkaN · Answer

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

juvamine · Answer

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

cs_soanindrina · Answer

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

poix80 · Answer

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")

Executer une commande DOs dans un fichier VBS

6 réponses

Discussions similaires