Quelques scripts.

[alain51]

Quelques scripts que j'utilise régulièrement.

D'abord, ouvrir le bloc-notes.
Sélectionner le script qui vous interesse et collez le dedans.
Dans Fichier/Enregistrer sous, en face de type choississez "Tous les fichiers"
et en face de "Nom du fichier" mettez un nom avec l'extension .vbs

Il ne vous restera plus qu'à cliquer sur ce fichier pour l'exécuter.

Créer un point de restauration

CONST DEVICE_DRIVER_INSTALL = 10
CONST BEGIN_SYSTEM_CHANGE = 100

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default")

Set objItem = objWMIService.Get("SystemRestore")
errResults = objItem.CreateRestorePoint _
("Scripted restore", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)

Ouvrir l'invite de commande dans un dossier choisi
(Dans l'explorateur, clic droit sur un dossier, sélectionner Dos)

Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\Folder\Shell\MenuText\Command\", _
"cmd.exe /k cd " & chr(34) & "%1" & chr(34)
objShell.RegWrite "HKCR\Folder\Shell\MenuText\", "Dos"

Faire un Ping dans une boîte de dialogue
(Mettre l'adresse sans le htpp://)

DIM objShell
url=InputBox("Entrez l'url ")
Set objShell = CreateObject("Wscript.Shell")
ireturn = objShell.Run("cmd /k ping.exe "& url & "", 1, TRUE )