Dim objShell, objFSO, sonicPath, fileFolder
Dim userFolder, desktopFolder, custFolder, extension
Dim fullname, shortcut, shortTarget

paragonPath = "C:\Program Files\Paragon93\"

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set fileFolder = objFSO.GetFolder("C:\Documents and Settings")
Set subFileFolder = fileFolder.Subfolders

For Each userFolder in subFileFolder    
	If objFSO.FolderExists(userFolder & "\Desktop") Then        
		Set desktopFolder = objFSO.GetFolder(userFolder & "\Desktop")        
		Set custFolder = desktopFolder.Files        

		For Each custFile in custFolder            
			extension = objFSO.GetExtensionName(LCase(custFile.name))            
			If extension = "lnk" then                
				'Find full path of shortcut                
				fullname = objFSO.GetAbsolutePathName(custFile)                

				'Find full path of target within shortcut                
				'See http://www.devguru.com/Technologies/wsh/quickref/wshshell_CreateShortcut.html                
				'for more information on how this works.                
				Set shortcut = objShell.CreateShortcut(fullname)                
				shortTarget = shortcut.TargetPath                    

				If InStr(shortTarget, paragonPath) then                    
					Dim myFileToDelete                    
					Set myFileToDelete = objFSO.GetFile(fullname)                    
					myFileToDelete.Delete                
				End If            
			End If        
		Next    
	End If
Next

Dim $objShell, $objFSO, $sonicPath, $fileFolder
Dim $userFolder, $desktopFolder, $custFolder, $extension
Dim $fullname, $shortcut, $shortTarget

$paragonPath = "C:\Program Files\Paragon93\"

$objShell = CreateObject("WScript.Shell")
$objFSO = CreateObject("Scripting.FileSystemObject")

$fileFolder = $objFSO.GetFolder("C:\Documents and Settings")
$subFileFolder = $fileFolder.Subfolders

For Each $userFolder in $subFileFolder
  If $objFSO.FolderExists($userFolder + "\Desktop")
    $desktopFolder = $objFSO.GetFolder($userFolder + "\Desktop")
    $custFolder = $desktopFolder.Files
    For Each $custFile in $custFolder
      $extension = $objFSO.GetExtensionName(LCase($custFile.name))
      If $extension = "lnk"
        ;Find full path of shortcut
        $fullname = $objFSO.GetAbsolutePathName($custFile)
        ;Find full path of target within shortcut
        ;See http://www.devguru.com/Technologies/wsh/quickref/wshshell_CreateShortcut.html
        ;for more information on how this works.
        $shortcut = $objShell.CreateShortcut($fullname)
        $shortTarget = $shortcut.TargetPath
        If InStr($shortTarget, $paragonPath)
          Dim $myFileToDelete
          $myFileToDelete = $objFSO.GetFile($fullname)
          $myFileToDelete.Delete
        EndIf
      EndIf
    Next
  EndIf
Next