$PathToFind="\\server\share"
for each $drive in enumnetworkdrives()
  $letter=split($drive,",")[0]
  $path=split($drive,",")[1]
  if $path=$PathToFind
    for each $shortcut in dirplus("%userprofile%\desktop","/f lnk")
      if left(GetShortcutProperties($Shortcut,"Path"),2)=$letter
      ;getshortcutproperties
      ;del $shortcut
      ;and Recreate the Shortcut using WSHShortcut() with new params
      endif
    next
  endif
next