VBScript To delete desktop shortcut and Start Menu Shortcut

On Error Resume Next
strComputer = "."
set fso =createobject("scripting.filesystemobject")
set wshshell = createobject("wscript.shell")
Desktop = wshshell.expandenvironmentstrings("%PUBLIC%")
StartMenu = wshshell.expandenvironmentstrings("%ProgramData%")
If fso.FolderExists(StartMenu   & "\Microsoft\Windows\Start Menu\Programs\Beyond Compare 2") Then
   fso.DeleteFile(StartMenu & "\Microsoft\Windows\Start Menu\Programs\Beyond Compare 2\Uninstall Beyond Compare 2.lnk")
   fso.DeleteFile(Desktop & "\Desktop\Beyond Compare 2.lnk")
End if