Créer et lancer un fichier batch (VBS)
On peut lancer directement en VBS des commandes DOS par l'intermédiaire de WScript.Shell:
Set sh = WScript.CreateObject("WScript.Shell")
sh.Run "ipconfig /All /batch C:\ip1.txt",0,true
Ce script va envoyer le résultat de la commande ipconfig /All dans le fichier texte c:\ip1.txt.
De même, on peut lancer une commande DOS par l'intermédiaire de command.com :
Set sh = WScript.CreateObject("WScript.Shell")
sh.Run "Command.com /c dir c:\mesdoc~1 > c:\rien.txt"
(/c ferme la fenêtre DOS une fois l'opération terminée).
ou bien
sh.Run "%comspec% /c dir c:\mesdoc~1 > c:\rien.txt"
Le script copie dans c:\rien.txt la liste des fichiers et répertoires de c:\mes documents.
Set sh = WScript.CreateObject("WScript.Shell")
sh.Run "%comspec% /c dir rien /s > c:\rien.txt"
va copier dans rien.txt le nom de tous les fichiers nommés "rien" sur C:\ et ses sous-répertoires.
Rien de plus simple que de ping'er le site jacxl :
sh.Run "%comspec% /c ping ""jacxl.free.fr"""
cliquez ici pour tester
(et ici pour voir le texte complet du script).
Ou de faire le ménage des fichiers temporaires, historiques Internet et cookies
(cliquez ici).
Mais on peut également créer un nouveau fichier batch et le lancer par vbs :
Le fichier batch est créé comme un fichier texte, avec l'extension .bat
Les lignes de commande y sont inscrites comme dans un fichier texte classique :
Set fs = CreateObject("Scripting.FileSystemObject")
Set fich = fs.OpenTextFile("C:\dirr.bat", 2, true)
fich.writeLine "cd c:\mesdoc~1.."
fich.writeLine "dir > C:\dir.txt"
fich.close
Le script crée un fichier batch qui se présente comme suit :
C:\>cd c:\mesdoc~1..
C:\Mes Documents> dir > C:\dir.txt
C:\Mes Documents>
(on peut évidemment aussi écrire directement
fich.writeLine "dir c:\mesdoc~1 > c:\dir.txt").
A l'ouverture, le fichier batch crée un fichier texte contenant la liste des fichiers et répertoires de "Mes Documents".
Le lancement du fichier batch peut aussi être réalisé par le script :
sh.Run "C:\dirr.bat",0,false
Enfin, on peut laisser le choix à l'utilisateur du répertoire à examiner et de l'ordre de tri des fichiers, et afficher le résultat dans une nouvelle fenêtre.
Cliquez ici pour accéder au Script "dir.vbs"
Cliquez ici pour accéder au texte du script
Cliquez ici pour accéder au Script zippé