Executer une commande DOs dans un fichier VBS

Messages postés
1
Date d'inscription
lundi 5 septembre 2005
Statut
Membre
Dernière intervention
28 octobre 2005
- - Dernière réponse : poix80
Messages postés
2
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
22 novembre 2006
- 22 nov. 2006 à 23:22
Salut @ tous.



Je souhaiterais executer une commande DOS de type NET SEND dans un fichier .VBS.

J'arrive à 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 !!!
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
2
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
22 novembre 2006
1
1
Merci
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"

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 201 internautes nous ont dit merci ce mois-ci

Messages postés
60
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
17 avril 2006
0
Merci
Utilise plutôt ceci:



<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="Generator" content="Kate, the KDE Advanced Text Editor">

Dim Message
Set Message = CreateObject("WsCript.Shell")
Message.run "net send ..."
Messages postés
8
Date d'inscription
mardi 7 mars 2006
Statut
Membre
Dernière intervention
17 mars 2006
0
Merci
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
Messages postés
468
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
30 août 2007
2
0
Merci
avec des double double quote ?? peut etre MashkaN
""Connexion au réseau local""

A+
juvamine
Messages postés
1
Date d'inscription
lundi 1 août 2005
Statut
Membre
Dernière intervention
22 novembre 2006
0
Merci
    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
Messages postés
2
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
22 novembre 2006
1
0
Merci
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")