Here you go - it take quite a bit longer to run (on my machine at least) so you might want to limit the scope a bit more:

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

Dim $sTargets

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

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

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

        $asDirEntries=DirList($sPath+"\*.lnk", 2+4)


        For Each $sLink in $asDirEntries
                "Getting path from: "+$sLink+@CRLF
                $udfGetTargets=$udfGetTargets+@CRLF+GetShortCutProperties($sLink,'Path')
        Next
        $udfGetTargets=SubStr($udfGetTargets,3)
EndFunction


This code gives me a much larger list which I can't post here as it has sensitive information