?
Solved

VB Script to remove shortcut from desktop

Posted on 2013-01-15
6
Medium Priority
?
755 Views
Last Modified: 2013-01-21
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
0
Comment
Question by:TriCountyIT
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
  • 2
6 Comments
 
LVL 20

Expert Comment

by:ltlbearand3
ID: 38781127
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
 
LVL 14

Accepted Solution

by:
Rob Miners earned 2000 total points
ID: 38781300
' 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
 

Author Closing Comment

by:TriCountyIT
ID: 38801159
This worked perfect.  THanks
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 20

Expert Comment

by:ltlbearand3
ID: 38802425
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
 

Author Comment

by:TriCountyIT
ID: 38802477
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
 
LVL 14

Expert Comment

by:Rob Miners
ID: 38803004
Your welcome :)
0

Featured Post

Prepare for your VMware VCP6-DCV exam.

Josh Coen and Jason Langer have prepared the latest edition of VCP study guide. Both authors have been working in the IT field for more than a decade, and both hold VMware certifications. This 163-page guide covers all 10 of the exam blueprint sections.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
Michael from AdRem Software explains how to view the most utilized and worst performing nodes in your network, by accessing the Top Charts view in NetCrunch network monitor (https://www.adremsoft.com/). Top Charts is a view in which you can set seve…
How to fix incompatible JVM issue while installing Eclipse While installing Eclipse in windows, got one error like above and unable to proceed with the installation. This video describes how to successfully install Eclipse. How to solve incompa…
Suggested Courses

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question