Executer une commande DOs dans un fichier VBS

WaReZ_CarTmaN
Messages postés
1
Date d'inscription
lundi 5 septembre 2005
Statut
Membre
Dernière intervention
28 octobre 2005
- 28 oct. 2005 à 15:39
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 !!!

6 réponses

poix80
Messages postés
2
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
22 novembre 2006
3
15 nov. 2005 à 22:07
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"
3