code:

---

$desktop=readvalue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Desktop")
$file=dir($desktop+"\*.lnk")
while @error=0
shell '%comspec% /c type $desktop'+'\$file |find "\\server\share" >nul'
if not @error
? "this file: $file" ? "points to the place where it shouldn't!"
del $desktop+"\$file"
endif
$file=dir()
loop

---