Here is some vbs that looks for a specific shortcut
Dim fso, msg
Dim filesearch
filesearch = "C:\Program Files\Bonjour\About Bonjour.lnk"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filesearch) Then
msg = filesearch + " exists."
Else
msg = filesearch + " doesn't exist."
End If
wscript.echo msg
Taken essentially from this
M$ article[
^]
If you want to find the Desktop folder for current user try this
Dim oNetW, sUName
Set oNetW = CreateObject("Wscript.Network")
Wscript.echo "User : " & oNetW.UserName
Wscript.echo "Desktop folder : " & "C:\Users\" & oNetW.UserName & "\Desktop"