You only need a single script to do the whole thing.

Copy the UDF's mentioned by Mart and paste them into your favorite script editor.

One you have them...
 Code:
$List = DirList("c:\documents and settings\username\desktop")
For each $lnk in $list
  $Path = GetShortCutProperties($lnk,"Path")
  If Instr($path,"word.exe") or Instr{$path,"excel.exe") or Instr($path,"powerpoint.exe")
  ;do nothing
  Else
  ;copy file
  EndIf
Next


Note this is not tested / working code, just enough to get you the idea of where to go....
_________________________
Today is the tomorrow you worried about yesterday.