Attachment 88999 Details for Bug 35568 – Script - remove quickstarter

Script - remove quickstarter

removeOOLOquickstarter.vbs (text/plain), 1.71 KB, created by Timur on 2013-11-11 08:47:45 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Timur

Created: 2013-11-11 08:47:45 UTC

Size: 1.71 KB

patch

obsolete

>'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
>

Actions: View

Attachments on bug 35568: 88999 | 89000