Asi se lo hace sin usar WMI, el código es de Syntax_err

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
 

no mi amigo no lo tomes por ese lado, la verdad es que si me ha tocado duro estos dias. y gracias por preguntar.

saludos

la verdad no he tenido tiempo por cuestiones laborales de depurar el code, aver si este fin de semana me dedico a ello y para el lunes ya lo tengo listo. aunque me gustaria primero antes que nada que MadAntrax lo utilizara en el Cactus Joiner.

Che, esta genial tu siempre con tus excelentes aportes, gracias por compartirlo 

Si lo liberare en un par de dias, depuro un poco mas el code, los estructuro y listo para ver la luz.

saludos 

Muchas Gracias MadAntrax, mi problema esta solucionado, no conocia el comando netsh, mil y mil gracias

Realize un programa en VB para eliminar al antivirus kaspersky 2009, funciona perfecto, quite el hook a las apis, luego termine el proceso y por ultimo elimine el driver KLIF.sys y las entradas del registro. pero tengo un problema klim5.sys es el filtro NDIS, y como elimino su entrada en el registro no puedo conectarme a internet desde la maquina en la cual elimine al kaspersky. me toca ir a propiedades del adaptador de red y deshabilitar el Kaspersky Anti-Virus NDIS Filter, y se vuelve a habilitar la conexion. mi pregunta es como puedo hacer esto desde mi codigo en VB?




Gracias de Antemano 

si quieres ejecutar ciertas rutinas de tu aplicación si se hace con un timer

por ejemplo si tienes una función llamada main y quieres ejecutarla cada  minuto puedes hacerlo así

Private Sub Timer1_Timer()
    Call main
    ' rutina2
    ' rutina3
    '.......
End Sub

seteando la propiedad interval del timer a 60000 (milisegundos)

así se hace el criterio de busqueda, es nada más que se lo asignes a la propiedad filter del recorset

Criteria = "Select * From tabla where fecha BETWEEN " & "#" & _
    textbox1.text & "#" & " AND " & "#" & textbox2.text & "#"

saludos

Si, sebaneo tienes toda la razón y como copie el code me equivoque y no era la función que habia modificado, ese es el code del cual saque la declaración del api, y la identacion si estaba mal echa, ya lo corregi, muchas gracias