Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Option Explicit
Dim fso, b, objWMI, clsPoint, strComputer, shell, fLine
fLine = "List of System Restore points found in this computer"
Set shell = CreateObject("Wscript.Shell")
Set fso = Wscript.CreateObject("Scripting.FilesystemObject")
set b = fso.CreateTextFile ("C:\ListSR.txt",true)
b.Writeline fLine
b.writeline string(52,"-")
b.writeblanklines 1
strComputer="."
Set objWMI = getobject("winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemrestore")
For Each clsPoint In objWMI
b.writeline "Creation Time= " & clsPoint.creationtime
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
Next
b.close
Shell.Run "notepad C:\ListSR.txt", 1,True
Set fso = Nothing
set shell = Nothing
Geplaatst door patrickt
Het kan ook makkelijker.
Dubbelklik op deze computer, en rechtsklik C:, en kies eigenschappen.
Klik nu op schijfopruiming>tabblad "meer opties"
Klik nu bij systeemherstel op opruimen.
Nu worden alle herstelpunten verwijderd, met uitzondering van de laatste.
Mvg Patrick
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.