Re-direct favourites to home drive

From Wiki

Jump to:navigation, search

Creator: FN-GM

Script Language: VBS

Type: Logon

Forum topic Link:

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</vb>