[R] Lister Favoris dans Internet Explorer et Firefox

[jcaspar]

Bonjour à tous !

Je souhaiterais pouvoir sauvegarder les favoris de mes utilisateurs de manière centralisée

POur IE les favoris se trouvent à l'endroit suivant

%USERPROFILE%\Favorites

Pour Firefox ils se trouvent à l'endroit suivant

%appdata%\Mozilla\Firefox\Profiles

Quel serait à votre avis le meilleur moyen de lister les favoris ?


En vous remerciant pour vos conseils

Jean-Marc

[orax]

POur IE les favoris se trouvent à l'endroit suivant

%USERPROFILE%\Favorites

En principe oui, mais ça peut être changé.

Ceci à tester :

► Afficher le texte

Code : Tout sélectionner

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>
#include <Debug.au3>

_DebugSetup(Default, True, 2)


; IE

_DebugReportVar("@FavoritesDir", @FavoritesDir)
If Not DirCopy(@FavoritesDir, "c:\temp\favorisIE\" & @ComputerName & "." & @UserName, $FC_OVERWRITE) Then
    MsgBox($MB_ICONERROR, Default, @FavoritesDir & " n'a pas été sauvegardé.")
EndIf

; Firefox

$firefoxProfilesDir = @AppDataDir & "\Mozilla\Firefox\Profiles"
_DebugReportVar("$firefoxProfilesDir", $firefoxProfilesDir)
$firefoxProfiles = _FileListToArrayRec($firefoxProfilesDir, "*", $FLTAR_FOLDERS)
_DebugReportVar("$profilesFirefox", $firefoxProfiles)

For $i = 1 To $firefoxProfiles[0]
    ; places.sqlite = historique de navigation et marque-pages
    $placesSqlite = $firefoxProfilesDir & "\" & $firefoxProfiles[$i] & "\places.sqlite"
    $placesSqliteBak = "c:\temp\favorisFirefox\" & @ComputerName & "." & @UserName & "\" & $firefoxProfiles[$i] & "\places.sqlite.temp"

    _DebugOut($placesSqlite)

    If Not FileExists($placesSqlite) Then
        MsgBox($MB_ICONERROR, Default, $placesSqlite & " n'a pas été trouvé.")
        ContinueLoop
    EndIf

    If Not FileCopy($placesSqlite, $placesSqliteBak, BitOR($FC_OVERWRITE, $FC_CREATEPATH)) Then
        MsgBox($MB_ICONERROR, Default, $placesSqlite & " n'a pas été sauvegardé.")
    EndIf
Next

[orax]

Je viens de voir qu'il y a un répertoire bookmarkbackups donc j'ai modifié la partie Firefox. L'ancienne version devrait marcher aussi donc je ne l'ai pas supprimée, mais celle-ci me semble plus correcte. Par contre, c'est très basique. Il faudrait remplacer les anciennes sauvegardes, ne pas recopier les fichiers s'il n'y a pas besoin, etc. Un truc comme "Robocopy /MIR" à la place de DirCopy() pourrait être mieux, à moins de vouloir tout gérer avec AutoIt sans programme externe.

► Afficher le texte

Code : Tout sélectionner

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>
#include <Debug.au3>

_DebugSetup(Default, True, 2)


; IE

_DebugReportVar("@FavoritesDir", @FavoritesDir)
If Not DirCopy(@FavoritesDir, "c:\temp\favorisIE\" & @ComputerName & "." & @UserName, $FC_OVERWRITE) Then
    MsgBox($MB_ICONERROR, Default, @FavoritesDir & " n'a pas été sauvegardé.")
EndIf

; Firefox

$firefoxProfilesDir = @AppDataDir & "\Mozilla\Firefox\Profiles"
_DebugReportVar("$firefoxProfilesDir", $firefoxProfilesDir)
$firefoxProfiles = _FileListToArrayRec($firefoxProfilesDir, "*", $FLTAR_FOLDERS)
_DebugReportVar("$profilesFirefox", $firefoxProfiles)

For $i = 1 To $firefoxProfiles[0]
    $bookmarkbackupsDir = $firefoxProfilesDir & "\" & $firefoxProfiles[$i] & "\bookmarkbackups"
    $bookmarkbackupsDirBak = "c:\temp\favorisFirefox\" & @ComputerName & "." & @UserName & "\" & $firefoxProfiles[$i]

    _DebugOut($bookmarkbackupsDir)
    _DebugOut($bookmarkbackupsDirBak)

    If Not DirCopy($bookmarkbackupsDir, $bookmarkbackupsDirBak & "\" & @ComputerName & "." & @UserName, $FC_OVERWRITE) Then
        MsgBox($MB_ICONERROR, Default, @FavoritesDir & " n'a pas été sauvegardé.")
    EndIf
Next

[jguinch]

Pour le répertoire bookmarkbackups, je ne sais pas trop comment l'utiliser pour une restauration automatique.
places.sqlite contiendra tout ce qu'il faut (même un peuy trop) et sera facile à importer, puisqu'il suffit de recopier le fichier.
Si on veut n'exporter que les marque-pages, on pourra faire une petite requête SQL ( select * from moz_bookmarks)

[jcaspar]

M erci beaucoup pour les scripts j'ai testé rapidement cela fonctionne ... il ya juste un erreur qui apparait dans la console ... mais à priori cela n'est pas gênant...