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

LVL 9
mystics7Asked:
Who is Participating?
 
Shift-3Connect With a Mentor Commented:
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
All Courses

From novice to tech pro — start learning today.