Maybe something like this. (untested)

Though you can also create shortcuts on the desktop as well instead of copying if you like.

Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
 
Dim $SourceFolder, $DestinationFolder
$SourceFolder = "\\dc\data"+'$'+"\churi.url"
$DestinationFolder = GetSpecialFolders(25)
Copy $SourceFolder '"' + $DestinationFolder[1] + '"'
'Copy error: ' + @ERROR + ' - ' + @SERROR ?
 
Function GetSpecialFolders($Folder)
  Dim $objFolderItem
  $objFolderItem=CreateObject('Shell.Application').Namespace($Folder).Self
  $GetSpecialFolders=$objFolderItem.Name,$objFolderItem.Path
EndFunction