This script was written to delete a list of shortcuts from the “All Users” profile directory on windows.
'This script will delete a list of windows shortcuts that are in
'the "All Users" profile directory on Windows.
'
'Written by Chris Woollard (2009)
Dim objFSO, objWSH
Dim strAllUsersProfile, strAllUsersFolder
Dim strFileList, strFilesToDeleteArray,strFileToDelete
'On Error Resume Next ' this is set because the file(s) may be locked.
strFileList = "Citrix XenApp.lnk,Blackberry Manager.lnk"
strFilesToDeleteArray = split(strFileList,",")
'Declare objects
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objWSH = CreateObject("WScript.Shell")
' Get the "All Users" profile folder path then determine parent folder.
strAllUsersFolder = objWSH.ExpandEnvironmentStrings("%ALLUSERSPROFILE%")
'Look through each user profile folder to determine which file to delete.
For Each strFileToDelete in strFilesToDeleteArray
if objFSO.FileExists(strAllUsersFolder & _
"\Start Menu\Programs\Startup\" & strFileToDelete) THEN
objFSO.DeleteFile(strAllUsersFolder & _
"\Start Menu\Programs\Startup\" & strFileToDelete),TRUE
End If
Next
' Clean up
set objFSO = Nothing
set objWSH = Nothing