Este VBScript simples lista todos os pontos de restauração do sistema disponíveis em seu computador, com a descrição, criação. hora e o número da sequência.
Para executar o script, copie as seguintes linhas em um documento do Bloco de notas e salve como um arquivo. com extensão .VBS (use aspas duplas) e clique duas vezes no arquivo.
'Imprime a lista de Restauração do sistema. aponta para um arquivo de texto
'2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
'Última atualização em: 20 de agosto de 2005
'Formata a data / hora corretamente
'
Opção Explícita
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Lista de pontos de restauração do sistema encontrados neste computador"
Defina shell = CreateObject ("Wscript. Concha")
Defina fso = Wscript. CreateObject ("Scripting. FilesystemObject ")
fName = Shell. SpecialFolders ("Desktop")
fName = fName & "\ ListSR.txt"
conjunto b = fso. CreateTextFile (fName, true)
b. Writeline fLine
string b.writeline (52, "-")
b.writeblanklines 1
strComputer = "."
Defina dtmInstallDate = CreateObject (_
"WbemScripting. SWbemDateTime ")
Defina objWMI = GetObject (_
"winmgmts: \\" & strComputer & "\ root \ cimv2")
Defina objOS = objWMI.ExecQuery (_
"Selecione * em Win32_OperatingSystem")
Defina objWMI = getobject (_
"winmgmts: \\" & strComputer & "\ root \ default"). InstancesOf ("systemrestore")
Para Cada clsPoint In objWMI
b.writeline "Creation Time =" & getmytime (clsPoint.creationtime)
b.writeline "Description =" & clsPoint.description
b.writeline "Sequence Number =" & clsPoint.sequencenumber
b.writeblanklines 1
Próximo
função getmytime (wmitime)
dtmInstallDate. Value = wmitime
getmytime = dtmInstallDate. GetVarDate
função final
b.close
Concha. Execute "notepad.exe" & fNome, 1, Verdadeiro
Definir fso = Nada
set shell = Nothing