Mit der Systemwiederherstellung arbeiten - Windows for Professionals

Mit der Systemwiederherstellung arbeiten

Unter den neuen Windows Versionen ist es möglich, Systemwiederherstellugspunkte zu erstellen. Mit dem "WbemScripting"-Objekt lassen sich solche bspw. auflisten, mit dem WMI-Service sogar auch erstellen.

Mit dem nachfolgenden Script listen Sie alle erstellten Systemwiederherstellungspunkte auf und geben diese in einer For Each-Schleife jeweils in einem Dialog aus.

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")

strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "
ootdefault")
Set colItems = objWMIService.ExecQuery("Select * from SystemRestore")

If colItems.Count = 0 Then

WScript.Echo "Kein Systemwiederherstellungspunkt gefunden!"

Else
For Each objItem in colItems

Wscript.Echo "Name: " & objItem.Description
Wscript.Echo "Nummer: " & objItem.SequenceNumber

Select Case objItem.RestorePointType

Case 0 strRestoreType = "Software wurde installiert."
Case 1 strRestoreType = "Software wurde deinstalliert."
Case 6 strRestoreType = "Wiederherstellung"
Case 7 strRestoreType = "Checkpoint"
Case 10 strRestoreType = "Treiber Installation"
Case 11 strRestoreType = "Erste Ausführung"
Case 12 strRestoreType = "Geänderte Einstellungen"
Case 13 strRestoreType = "Abgebrochene Operation"
Case 14 strRestoreType = "Backup recovery"
Case Else strRestoreType = "ohne Angabe"
End Select

Wscript.Echo "Typ: " & strRestoreType

dtmConvertedDate.Value = objItem.CreationTime
dtmCreationTime = dtmConvertedDate.GetVarDate
Wscript.Echo "Datum: " & dtmCreationTime

Next
End If

Mit dem WMI-Service hingegen lassen sich Systemwiederherstellungspunkte erstellen. Das nachfolgende Script demonstriert dies an Hand einer Treiber-Installation. Mehr zur Verwendung dieser Methode finden Sie auf msdn.com (Englisch).

CONST DEVICE_DRIVER_INSTALL = 10
CONST BEGIN_SYSTEM_CHANGE = 100
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "
ootdefault")
Set objItem = objWMIService.Get("SystemRestore")
objItem.CreateRestorePoint _
("Erstellt durch ein Script", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)

Autor: Dominik Berger