Windows VB脚本-备份Win7配置文件

我正在尝试创建VBScript，以便在更换PC时备份Windows 7配置文件

目前我有：

Option Explicit

Const SHARENAME = "c:\NHSITTemp"

Dim fldr,subfldr
Dim sUser
Dim shl, fso

Set shl = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FilesystemObject")

'this gets 'Documents and Settings'
Set fldr = fso.GetFolder( _
                Replace(shl.ExpandEnvironmentStrings("%USERPROFILE%"), _
                shl.ExpandEnvironmentStrings("%USERNAME%"), _
                ""))
'for each folder in fldr
For Each subfldr In fldr.SubFolders
  If fso.FolderExists(subfldr.Path & "\Desktop") Then
    sUser = subfldr.Name
    if not fso.FolderExists(SHARENAME & "\" & sUser) Then
      Call fso.CreateFolder(SHARENAME & "\" & sUser)
    End If
    Call fso.CopyFolder(subfldr.Path & "\Desktop", _
                        SHARENAME & "\" & sUser & "\Desktop")
  End If
Next

Set fso = Nothing
Set shl = Nothing
WScript.Quit

---

这在第13行产生了错误，我无法理解，有什么想法吗？

更新

Option Explicit

Const SHARENAME = "c:\NHSITTemp"

Dim fldr,subfldr
Dim sUser
Dim shl, fso

Set shl = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FilesystemObject")

'this gets 'Documents and Settings'
 Set fldr = fso.GetFolder(Replace(Replace(_
            shl.ExpandEnvironmentStrings("%USERPROFILE%"),_
            shl.ExpandEnvironmentStrings("%USERNAME%"),""), "\\", ""))
'for each folder in fldr
For Each subfldr In fldr.SubFolders
  If fso.FolderExists(subfldr.Path & "\Desktop") Then
    sUser = subfldr.Name
    if not fso.FolderExists(SHARENAME & "\" & sUser) Then
           fso.CreateFolder SHARENAME & "\" & sUser
    End If
    fso.CopyFolder subfldr.Path & "\Desktop", SHARENAME & "\" & sUser & "\Desktop"
  End If
Next

Set fso = Nothing
Set shl = Nothing
WScript.Quit

---

在本地运行时，第13行出现Windows脚本主机错误-找不到路径。另外，您发布的修订代码在第24行生成了一个错误-调用Sub时不能使用括号？我已经更新了上面的代码以显示括号的删除，您应该在执行getfolder命令之前尝试激活

msgbox shl.ExpandEnvironmentStrings（“%USERPROFILE%”）

命令。另外，您是否远程运行脚本？不要直接从C:驱动器运行脚本。修改后的代码返回到第13行的原始错误“未找到路径”？确定，因此expandenvironmentstrings返回“FolderName\\”，最后的双反斜杠导致get folder搜索嵌套文件夹，因此失败。如果有机会，请尝试上面修改的代码。谢谢第13行仍然出现运行时错误，未找到路径？？