Re-direct favourites to home drive

From EduGeek.Net -> Wiki

Creator: FN-GM

Script Language: VBS

Type: Logon

Forum topic Link: http://www.edugeek.net/forums/wiki-announcements/19522-re-direct-favourites-home-drive.html#post193397

This script will allow users to carry favourites in a folder in there home directory. So if you don’t use roaming profiles users will retain there favourites. You may need to change the drive letter of the home drive, in our case the home drive is “H:”

'Create Favorites Folder
 
 
If Not fso.FolderExists("T:\Favorites") Then 
   call noFavorites
End If
 
sub noFavorites
	filesys.CreateFolder "H:\Favorites"
END sub
 
'Re-Direct Favorites
 
' Variable Initilisations
Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
strUserName = objNetwork.UserName
strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites"
strRedirectionPath = "H:\Favorites"
 
' Write the new Favorites path
objShell.RegWrite strRegKey, strRedirectionPath
 
' Variable Destruction
Set objShell = Nothing
Set objNetwork = Nothing