TheTAZZone - Internet Chaos

back up IE Favorites

ORIGINALLY POSTED BY TALEN FOR THETAZZONE/TAZFORUM HERE

Do not use, republish, in whole or in part, without the consent of the Author. TheTAZZone policy is that Authors retain the rights to the work they submit and/or post…we do not sell, publish, transmit, or have the right to give permission for such…TheTAZZone merely retains the right to use, retain, and publish submitted work within it’s Network

Please refer to the original post as not all the script may be visible here.

We recently had a user who’s hard disk suffered a pretty complete meltdown. They’d had their particular workstation for well over three years, and had a large number of links stored in their Favorites folder. Our policy here is such that we do not back up user workstations, every user has a drive mapped to their own individual share on the file server, which gets backed up nightly. We decided that for high profile staff (read that, executive) we’d begin backing up their Favorites by copying them to their own share on the file server. To do so, I knocked up the following script:

Code: Select all
' Script Name:    backupIEFavorites.VBS
' Created:        04/16/2008
' Author:         Talen
' E-mail:

' ------------------------------------------------------------------------------
' Purpose:
'   This script will backup the contents of the Favorites folder in the profile
'   of the currently logged in user to a specified network share. Tested on
'   Windows 2000, XP and Vista.
' ------------------------------------------------------------------------------

' ==============================================================================
' SCRIPT BODY
' ==============================================================================
Option Explicit

Dim objFSO, objShell
Dim strFavPath, strSource

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("WScript.Shell")

strFavPath = objShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Favorites"

Set strSource = objFSO.GetFolder(strFavPath)

strSource.Copy "X:\Favorites", True
' ==============================================================================
' END OF SCRIPT: backupIEFavorites.VBS
' ==============================================================================

We’re going to run this as a logOFF script, which will back up their Favorites at the end of every session.

Leave a Reply

Your email address will not be published. Required fields are marked *

Advertise

If you'd like to advertise on The Mutt ( aka TheTAZZone.com ) feel free to contact us at: administration[at]thetazzone.com

TheTAZZone is a non-commercial entity. We do not sell any products or services ourselves. Our revenue comes from advertising and donations only.

We appreciate your support! Your advertising revenue ( or donations ) helps us to continue to upgrade, improve, and offset the costs of maintaining this site.

Donations can be made through the page ' Donate '.