Hope the below help to get some idea.
make sure the icon you are looking available in your personal desktop folder more than common user folder. if its not so means just copy and paste it in your desktop folder.
Code:
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.GetFolder(DesktopPath)
Set files = fol.Files
For each fil In files
filname=Mid(fil.name,1,instr(1,fil.name,".")-1)
' replace Adobe Reader 8 with the icon name you looking for
reqapp=(Strcomp(filname,"Adobe Reader 8"))
If reqapp then
Else
' write you code for activate it
End If
Nextmake sure the icon you are looking available in your personal desktop folder more than common user folder. if its not so means just copy and paste it in your desktop folder.