Here is the code to do it, don't forget to include the GetShortCutProperties udf.

Break ON
$=SetOption("Explicit","ON")

Dim $sTargets

$sTargets=udfGetTargets(%ALLUSERSPROFILE%+"\Desktop")+@CRLF+udfGetTargets(%USERPROFILE%+"\Desktop")

If Not InStr($sTargets,"xlicons")
        "No XLICONS present - will install..."+@CRLF
EndIf

Function udfGetTargets($sPath)
        Dim $asDirEntries
        Dim $sLink

        $sLink=Dir($sPath+"\*.lnk")
        While $sLink
                $udfGetTargets=$udfGetTargets+@CRLF+GetShortCutProperties($sPath+"\"+$sLink,'Path')
                $sLink=Dir()
        Loop
        $udfGetTargets=SubStr($udfGetTargets,3)
EndFunction