'removes quickstarter for a given version of OpenOffice'

option explicit
On Error Resume Next

Dim oShell, objFSO, lnk
Dim strStartup
Dim exitCode, strRemoveQuickstarter1, strRemoveQuickstarter2
                          
Set oShell = CreateObject( "WScript.Shell" )
Set objFSO = CreateObject("Scripting.FileSystemObject")
exitCode = 0


strStartup    = WScript.Arguments.Item(0) ' "$ShellStartup" (za User) i "$allusersstartup" (za Comp)

'''
Wscript.echo "removing quickstarter"
'''
  
  'REMOVE all old shortcuts for OO from Desktopa and from Startup'
  ''''
  strRemoveQuickstarter1 = strStartup & "\OpenOffice.org*.lnk"
  strRemoveQuickstarter2 = strStartup & "\LibreOffice*.lnk"
    
  Wscript.echo "strRemoveQuickstarter: " & strRemoveQuickstarter1
  Err.Number = 0
  objFSO.DeleteFile strRemoveQuickstarter1, true
  If Err.Number <> 0 Then
      Wscript.echo "Error in removing quickstarter" & Err.Description
  End If
  
  Wscript.echo "strRemoveQuickstarter: " & strRemoveQuickstarter2
  Err.Number = 0
  objFSO.DeleteFile strRemoveQuickstarter2, true
  If Err.Number <> 0 Then
      Wscript.echo "Error in removing quickstarter" & Err.Description
  End If
  
Wscript.Quit 0


  if Right(oShell.ExpandEnvironmentStrings("%AllUsersProfile%"), 11) = "ProgramData" then
   ' WIn 7 - C:\Users\Public\Desktop'
    strRemoveQuickstarter = "C:\Users\Public\Desktop" & "\" & strRemoveShortcut & "*.lnk"
  Else 
    'Win XP'
    strRemoveQuickstarter = oShell.ExpandEnvironmentStrings("%AllUsersProfile%") & "\Desktop" & "\" & strRemoveShortcut & "*.lnk"
  End If  
    
  objFSO.DeleteFile strRemoveQuickstarter, true
  If Err.Number <> 0 Then
      Wscript.echo "Error in removing shortcut from Desktop" & Err.Description
  End If
  
Wscript.Quit 0