[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 805
  • Last Modified:

Delete shortcut from a network location

I have a script that will create a shortcut for me and delete one that is local to a users profile. The problem i'm having is this is in a citrix enviorment that. The uses desktop is redirect to a network share. so the shortcut is located at

\\server\users$\user\desktop.

what i would like to do is replace the first part of the code to delete the lnk from
\\server\users$\%username%\desktop\

i'm really not sure how to do this since i'm really not a scripting guy. any help will be greatfully appricated.
On Error Resume Next
SET fso = Wscript.CreateObject("Scripting.FileSystemObject")
SET WshShell = WScript.CreateObject("WScript.Shell")
strFavs = WshShell.SpecialFolders("Desktop")
Set oFiles = fso.GetFolder(strFavs)
For Each oFile In oFiles.Files
    If lcase(oFile.Name) = "Microsoft Office Outlook 2003.lnk" Then
        oFile.Delete True
    End If
Next
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop _
  & "\Microsoft Outlook 2007.lnk")
oShellLink.TargetPath = _
  "N:\Program Files\Microsoft Office\OFFICE12\outlook.EXE"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = _
  "N:\Program Files\Microsoft Office\OFFICE12\outloo.EXE, 0"
oShellLink.Description = "Outlook 2007 Shortcut"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save

Open in new window

0
mystics7
Asked:
mystics7
1 Solution
 
Shift-3Commented:
This should do it.


strUserName = WshShell.ExpandEnvironmentStrings("%username%")
 
strFile = "\\server\users$\" & strUserName & "\desktop\Microsoft Office Outlook 2003.lnk"
 
If fso.FileExists(strFile) Then
    fso.DeleteFile strFile, True
End If

Open in new window

0
 
mystics7Author Commented:
Thank you very much that is exactly what I need!!!!!!!
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now