Dit eenvoudige VBScript somt alle systeemherstelpunten op die beschikbaar zijn op uw computer, met de Beschrijving, Creatie. tijd en het volgnummer.
Om het script uit te voeren, kopieert u de volgende regels naar een Kladblok-document en slaat u het op als een bestand. met de extensie .VBS (gebruik dubbele aanhalingstekens) en dubbelklik op het bestand.
' Drukt de lijst met Systeemherstel af. verwijst naar een tekstbestand
2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Laatst bijgewerkt op: 20 aug. 2005
' Formatteert de datum / tijd correct
'
Optie expliciet
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Lijst met systeemherstelpunten gevonden op deze computer"
Stel shell = CreateObject("Wscript. Schelp")
Stel fso = Wscript in. CreateObject("Scripting. BestandssysteemObject")
fNaam = Shell. Speciale mappen ("Bureaublad")
fNaam = fNaam & "\ListSR.txt"
stel b = fso in. CreateTextFile (fName, true)
B. Schrijflijn fLine
b.writeline string (52,"-")
b.schrijfblanklines 1
strComputer="."
Stel dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDatumTijd")
Stel objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Stel objOS = objWMI.ExecQuery( _
"Selecteer * van Win32_OperatingSystem")
Stel objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systeemherstel")
Voor elk clsPoint in objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Volgnummer= " & clsPoint.volgnummer
b.schrijfblanklines 1
Volgende
functie getmytime (wmitime)
dtmInstallDate. Waarde = wmitime
getmytime = dtmInstallDate. GetVarDate
einde functie
b.sluiten
Schelp. Voer "notepad.exe" & fName, 1,True uit
Stel fso = Niets in
set shell = Niets