Pseudo Code...

 Code:
$NetDriveToRemove="R:"
for each $shortcut in dirplus("%userprofile%\desktop","/f lnk")
  if left(GetShortcutProperties($Shortcut,"Path"),2)=$NetDriveToRemove
    ;del $shortcut
    ;and Recreate the Shortcut using WSHShortcut() with new perms
  endif
next


DirPlus() - http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=82153#Post82153
GetShortcutProperties() - http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=182375#Post182375
WSHShortcut() - http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=84115#Post84115

How to use UDFs -
http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=81943#Post81943

The rest of the UDFs are here -
http://www.kixtart.org/forums/ubbthreads.php?ubb=postlist&Board=7&page=1
_________________________
(... better days ahead)