Atalho para criação de ponto de restauração - WinXP

É altamente recomendável criar um ponto de restauração sempre que instalar um novo software, pois em caso de problema, basta restaurar as configurações e o Windows volta exatamente do jeito que estava antes da instalação.
Segue uma forma de se criar um atalho muito prático.
Copie o texto abaixo no Notepad, altere o texto em vermelho para algum nome de sua preferência (este será o nome do ponto de restauração) e salve com extensão VBS.
Depois é só dar um duplo clique no arquivo que o ponto de restauração será criado.


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 _
("kazu", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)