'Objects
Set fso = CreateObject("Scripting.FileSystemObject")
Set shl = CreateObject("WScript.Shell")

'I would check if the newer version exists first
path="C:\Path to the windows\"    
exists = fso.FolderExists(path)

if (exists) then 
  
set objFso=createObject("scripting.fileSystemObject")
set objWShell=wScript.createObject("WScript.Shell")

usrName=objWShell.expandEnvironmentStrings("%USERNAME%")
strFileToCopy="C:\Path to the shortcut to copy\"
strFolder="C:\Documents and Settings\"&usrName&"\Desktop"
if objFso.folderExists(strFolder) then
objFso.copyFile strFileToCopy,strFolder&"\",true
end if
end if


'check if the older version exists
path="C:\Path to the windows\"
exists = fso.FolderExists(path)

if (exists) then 
  
set objFso=createObject("scripting.fileSystemObject")
set objWShell=wScript.createObject("WScript.Shell")

usrName=objWShell.expandEnvironmentStrings("%USERNAME%")
strFileToCopy="C:\Path to the shortcut to copy\"
strFolder="C:\Documents and Settings\"&usrName&"\Desktop"
if objFso.folderExists(strFolder) then
objFso.copyFile strFileToCopy,strFolder&"\",true
end if
end if