Asi se lo hace sin usar WMI, el código es de Syntax_err
Código (vb) [Seleccionar]
Private Const BEGIN_SYSTEM_CHANGE = 100
Private Const END_SYSTEM_CHANGE = 101
Private Const APPLICATION_INSTALL = 0
Private Const MAX_DESC = 64
Private Type PRESTOREPOINTINFOA
dwEventType As Long
dwRestorePtType As Long
llSequenceNumber As Long
szDescription As String * MAX_DESC
End Type
Private Type PSTATEMGRSTATUS
nStatus As Long
llSequenceNumber As Long
End Type
Private Declare Function SRSetRestorePointA Lib "srclient" (ByRef pRestorePtSpec As PRESTOREPOINTINFOA, ByRef pSMgrStatus As PSTATEMGRSTATUS) As Boolean
Declare Function lstrcpyA Lib "kernel32" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Sub main()
Dim RestPtInfo As PRESTOREPOINTINFOA
Dim SMGRSTATUS As PSTATEMGRSTATUS
'// Inicializa la estructura RESTOREPOINTINFO
RestPtInfo.dwEventType = BEGIN_SYSTEM_CHANGE
'// Notifica al sistema los cambios que se hacen.
'// una instalacion esta en proceso.
RestPtInfo.dwRestorePtType = APPLICATION_INSTALL
'// setea RestPtInfo.llSequenceNumber.
RestPtInfo.llSequenceNumber = 0
'// Nombre que se le dara al punto de restauración.
RestPtInfo.szDescription = String(4, Chr(0)) & "Elhacker Restore Point" & Chr(0)
If Not SRSetRestorePointA(RestPtInfo, SMGRSTATUS) Then
Debug.Print "Couldn't set the beginning of the restore point."
End If
'// la aplicacion lleva a cabo algunos procesos aqui
FileCopy "c:\windows\notepad.exe", "c:\1.txt"
'// re-inicializa la estructura RESTOREPOINTINFO para notificar al sistema que la operacion termino
RestPtInfo.dwEventType = END_SYSTEM_CHANGE
'// los cambios en el sistema terminan al recibir el resultado de la llamada a SRSetRestorePoint.
RestPtInfo.llSequenceNumber = SMGRSTATUS.llSequenceNumber
'// Notifica al sistema que la creación del punto de restauracion ha sido exitosa
If Not SRSetRestorePointA(RestPtInfo, SMGRSTATUS) Then Debug.Print "Couldn't set the end of the restore point."
End Sub
