VB Script to remove shortcut from desktop

Hello, I have found a new way to deploy desktop shortcuts on our client PC's.  The issue is that I currently have VB scripts running to do the same thing via log on script.  I have attached the code I use to create those icons.  What could I add or change in this script to look for the icon and remove it.  Basically I want to reverse what I have been doing.


'FORCE EXPLICIT VARIABLE DECLARATION
option explicit

'STEP OVER ERRORS FOR CUSTOM ERROR REPORTING
on error resume next

'DECLARE VARIABLES
dim shell, desktopPath, link, sys32Path

'INSTANTIATE THE WINDOWS SCRIPT HOST SHELL OBJECT
Set shell = WScript.CreateObject("WScript.shell")

'SET THE PATH TO THE WINDOWS DESKTOP FOLDER & MY DOCUMENTS FOLDER
desktopPath = shell.SpecialFolders("Desktop")
sys32Path = "http://epic1ctx/Citrix/TriCounty/auth/login.aspx"

'CREATE A SHORTCUT ON THE USER'S DESKTOP
Set link = shell.CreateShortcut(desktopPath & "\TriCounty Citrix.lnk")

'SET THE PROPERTIES FOR THE SHORTCUT
link.Description = "My Shortcut"
link.TargetPath = sys32Path
link.WindowStyle = 0
link.WorkingDirectory = desktopPath
link.IconLocation = "\\tch16\IT\ShortcutIcons\epic.ico"
link.Save

'CLEANUP OBJECTS
set shell = nothing
TriCountyITAsked:
Who is Participating?
 
Rob MinersConnect With a Mentor Commented:
' http://www.petri.co.il/forums/showthread.php?t=46267

set WshShell = WScript.CreateObject("WScript.Shell" )
strDesktop = WshShell.SpecialFolders("Desktop" )
' delete this shortcut
strShortcut = strDesktop & "\notepad.lnk"

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(strShortcut) Then fso.DeleteFile(strShortcut)
0
 
ltlbearand3Commented:
You can just use the file system object to delete the file created by the link.  You can add something like this to your code to do the trick.
Dim strRemoveFile, objFSO
strRemoveFile = desktopPath & "\TriCounty Citrix.lnk"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strRemoveFile) then
	objFSO.DeleteFile strRemoveFile
End IF

Set objFSO = nothing

Open in new window

0
 
TriCountyITAuthor Commented:
This worked perfect.  THanks
0
Cloud Class® Course: CompTIA Cloud+

The CompTIA Cloud+ Basic training course will teach you about cloud concepts and models, data storage, networking, and network infrastructure.

 
ltlbearand3Commented:
Can you please explain why my solution was not picked as it essentially the same thing and was posted first.  I am curious.

-Bear
0
 
TriCountyITAuthor Commented:
Of course.  I tried your script and it didnt work.  For whatever reason it would not remove the icon.  So, instead of messaging you to troubleshoot I tried the other script and it worked so I just accepted the other one.  I am sure someone with a little more VB background could have seen what the issue was and it would have worked just fine, but I am for sure not that guy.  The script I posted I got from an expert on this site a couple years ago.  I appreciate the speedy response though.  Thanks alot.
0
 
Rob MinersCommented:
Your welcome :)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.