Windows 7 迁移用户配置文件

Question

我们正在尝试创建一个脚本来迁移 Windows 7 中的每个用户配置文件，以防因故障等原因更换 PC。

我们一直在使用以下：

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

我们似乎遇到了与每个配置文件中的连接点（例如我的文档）有关的问题，这会因权限错误而停止脚本，因为取出我的文档行，脚本可以工作。任何想法，或者是否有更简单的脚本来迁移配置文件（我们需要能够迁移特定的子文件夹）。

Answer 1

源文件夹是否应该是 "\My Documents" ？它可能正在寻找一个不存在的文件。

 fso.CopyFolder sDocsAndSettings & oFolder.Name & "\Documents" , objFolder & "\", True

我不知道这是否会有所不同，但如果您将覆盖设置为 TRUE，您也可以使用 object.Copy( destination[, overwrite] );，这可以确保所有文件和文件夹都将被覆盖。您能否将权限问题解释为“正在以权限错误停止脚本”有点含糊。