Windows 7 Migrate User Profiles - windows

Question

We are trying to create a script to migrate every users profile over in Windows 7 in the case of replacing the PC due to faults etc.
We have been using the following:
Dim fso
Dim oFolder1, objFolder, oFolder
Dim path
Dim colFolders
Dim sDocsAndSettings
Dim strDirectory
Set fso = createobject("Scripting.FileSystemObject")
'===========================================================
'CHANGE SDESTINATION FOLDER PATH HERE
sPath = "C:\Backup"
'===========================================================
Set proFolder = fso.GetFolder(sPath)
'COPY FILES FROM USER PROFILES
sDocsAndSettings = "C:\Users\"
Set colFolders = fso.GetFolder(sDocsAndSettings)
For Each oFolder In colFolders.SubFolders
Select Case LCase(oFolder.Name)
Case "admin", "administrator", "newuser", "all users", "default user", "default user.original", "localservice", "networkservice"
'LEAVE THE DEFAULT PROFILES ON THE MACHINE
Case Else
'MsgBox oFolder.Name
If fso.FolderExists(proFolder) Then
strDirectory = proFolder & "\" & oFolder.Name
If fso.FolderExists(strDirectory) Then
Else
Set objFolder = fso.CreateFolder(strDirectory)
End If
'COPY USER PROFILE FOLDERS to Destination Folder
fso.CopyFolder sDocsAndSettings & oFolder.Name & "\Favorites" , objFolder & "\", True
fso.CopyFolder sDocsAndSettings & oFolder.Name & "\Documents" , objFolder & "\", True
fso.CopyFolder sDocsAndSettings & oFolder.Name & "\Desktop" , objFolder & "\", True
End If
End Select
Next
MsgBox "Backup has been completed successfully!"
Set fso = Nothing
We seem to have hit an issue that aapears to be with the Junction Points (e.g My Documents) in each profile, which is stopping the script with permission errors, as taking the My Documents line out, the script works. Any ideas, or is there a simpler script to migrate profiles over (we need to be able to migrate specific sub-folders).

Answer 1

is the source folder suppose to be "\My Documents" ? it might be looking for a file whihc doesn't exists.
fso.CopyFolder sDocsAndSettings & oFolder.Name & "\Documents" , objFolder & "\", True
I don't know if this makes a differnce but you can alternatively use the object.Copy( destination[, overwrite] ); if you set the overwrite to TRUE, this may make sure that ALL files and folders will be overwritten. Can you also explain the permission issues as "is stopping the script with permission error" is a bit vague.