Como criar automaticamente um ponto de restauração do sistema na primeira inicialização do dia?
Introdução
Usando a Instrumentação de gerenciamento do Windows, você pode gerenciar a Restauração do sistema. utilidade efetivamente. Este artigo explicará como criar um arquivo automaticamente. Ponto de restauração do sistema na primeira inicialização do dia.
Crie um ponto de restauração diariamente usando este script
O script fornecido a seguir verificará se há algum ponto de restauração do sistema. já criado para o dia atual. Se nenhum ponto de restauração do sistema existir para o. dia atual, o script cria um ponto de restauração do sistema.
Para criar um ponto de restauração durante a primeira inicialização do dia, copie as seguintes linhas para um documento do Bloco de notas e salve como um arquivo. com extensão .VBS (CreateRP.VBS). Então, coloque. o script para o Comece pasta para que seja executado durante o logon.
'Cria um ponto SR durante a primeira inicialização do dia
'18 de dezembro de 2005
'Para Windows XP
'2005 Ramesh Srinivasan
' Local na rede Internet: https://www.winhelponline.com/xp
Opção Explícita
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
DMatch = 0
Defina SRP = getobject ("winmgmts: \\. \ Root \ default: Systemrestore")
Defina dtmInstallDate = CreateObject ("WbemScripting. SWbemDateTime ")
Definir objWMI = getobject (_
"winmgmts: \\. \ root \ default"). InstancesOf ("systemrestore")
Para Cada clsPoint In objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Mês (RPDate) & "/" & Dia (RPDate) & "/" & Ano (RPDate)
D2 = Mês (Data) & "/" & Dia (data) e "/" e ano (data)
Se D1 = D2 Então DMatch = 1
Próximo
Função getmytime (wmitime)
dtmInstallDate. Value = wmitime
getmytime = dtmInstallDate. GetVarDate
função final
Se DMatch = 0 então
CSRP = SRP.createrestorepoint ("Ponto de Restauração Diário", 0, 100)
Fim se