compactar base de datos access w10 localhost

<%
  base_antigua = Server.MapPath("basedatos1.mdb")
  base_nueva = Server.MapPath("basedatos2.mdb")
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& base_antigua
  strConnBak = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & base_nueva
Set objJRO = Server.CreateObject("JRO.JetEngine")
   objJRO.CompactDatabase strConn, strConnBak
  Set objJRO = Nothing
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  If objFSO.FileExists(base_nueva) And objFSO.FileExists(base_antigua) Then
   objFSO.DeleteFile(base_antigua)
   objFSO.MoveFile base_nueva, base_antigua
   Response.Write "<font size=""2"" color=""verdana"">La base de datos ha sido compactada.</font>"
  Else
   Response.Write "<font size=""2"" color=""verdana"">Ha ocurrido un problema.</font>"
  End If
Set objFSO = Nothing
  %
  

o algo parecido ya no funciona con w10, al parecer se trata de un componente 32 bits ¿alguien conoce un metodo con asp clasico para compactar las bases en modo local y w10 ?