shell - 7では機能するがXPでは機能しないショートカットを変更するvbsスクリプト

Question

WinXP および Win7 (32 および 64 ビット) でデスクトップ ショートカットを更新するスクリプトを作成しようとしています。XP ではショートカットのターゲット パスが変更されず、XP と 7 の両方でショートカットの「開始」部分が変更されないという 2 つの問題があります。ここで何が問題で、どうすれば修正できますか?

If InStr(GetWindowsVer(), "XP") > 0 then
    IterateFolder("C:\Documents and Settings\")
Elseif InStr(GetWindowsVer(), "7") > 0 then
    IterateFolder("C:\Users\")
End if

Sub IterateFolder(folderPath)
    Dim strFolderToSearch, objFSO, objRootFolder, objFolder, colSubfolders, strOutput, subFolder
    strFolderToSearch = folderPath

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objRootFolder = objFSO.GetFolder(strFolderToSearch)
    Set colSubfolders = objRootFolder.SubFolders

    For Each objFolder in colSubfolders

            subFolder = objFolder.Path & "\Desktop"

            Set objFSO1 = CreateObject("Scripting.FileSystemObject")
            Set objFolder1 = objFSO.GetFolder(subFolder)

            Set colFiles = objFolder1.Files
            For Each objFile in colFiles
            If strcomp(right(objFile.name,4),".lnk",vbTexctCompare) = 0 then                

                Set Shell = CreateObject("WScript.Shell")
                Set Link = Shell.CreateShortcut(objFile.Path)

                if instr(Link.TargetPath, "Office") > 0 then
                    strOutput = objFile.Path
                    strOutput = strOutput & vbCr & vbLf & Link.TargetPath
                    strOutput = strOutput & vbCr & vbLf & Link.WorkingDirectory
                    MsgBox strOutput     'This line returns expected data'

                    Link.TargetPath = Replace(Link.TargetPath, "Office11", "Office14"

                    if GetBits = "64" Then
                        Link.TargetPath = Replace(Link.TargetPath, "Program Files\", "Program Files (x86)\")
                    End if

                    Link.WorkingDirectory = Replace(Link.WorkingDirectory, "Office11", "Office14")
                    Link.Save

                End if
            End if
        Next
    Next
End Sub