63 lines
2.3 KiB
Text
Executable file
63 lines
2.3 KiB
Text
Executable file
'*************************************************************************
|
|
'
|
|
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
|
|
'
|
|
' Copyright 2000, 2010 Oracle and/or its affiliates.
|
|
'
|
|
' OpenOffice.org - a multi-platform office productivity suite
|
|
'
|
|
' This file is part of OpenOffice.org.
|
|
'
|
|
' OpenOffice.org is free software: you can redistribute it and/or modify
|
|
' it under the terms of the GNU Lesser General Public License version 3
|
|
' only, as published by the Free Software Foundation.
|
|
'
|
|
' OpenOffice.org is distributed in the hope that it will be useful,
|
|
' but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
' GNU Lesser General Public License version 3 for more details
|
|
' (a copy is included in the LICENSE file that accompanied this code).
|
|
'
|
|
' You should have received a copy of the GNU Lesser General Public License
|
|
' version 3 along with OpenOffice.org. If not, see
|
|
' <http://www.openoffice.org/license.html>
|
|
' for a copy of the LGPLv3 License.
|
|
'
|
|
'*************************************************************************
|
|
|
|
REM ***** BASIC *****
|
|
|
|
Option Explicit
|
|
|
|
Sub ResetRegistration
|
|
' access the global configuration provider
|
|
Dim aConfigProvider As Object
|
|
aConfigProvider = createUnoService( "com.sun.star.configuration.ConfigurationProvider" )
|
|
|
|
' params for creating config access objects
|
|
Dim aParams(0) As new com.sun.star.beans.PropertyValue
|
|
aParams(0).Name = "nodepath"
|
|
|
|
' create an access object for the jobs key
|
|
Dim aRegReq As Object
|
|
aParams(0).Value = "/org.openoffice.Office.Jobs/Jobs/RegistrationRequest"
|
|
aRegReq = aConfigProvider.createInstanceWithArguments( _
|
|
"com.sun.star.configuration.ConfigurationUpdateAccess", _
|
|
aParams() )
|
|
|
|
' reset the user time (which means the job will be executed next time)
|
|
aRegReq.setPropertyToDefault( "UserTime" ) ' = "01.01.2001/00:00:00"
|
|
aRegReq.commitChanges
|
|
|
|
' create an access object for the Registration key
|
|
Dim aRegistrationSettings As Object
|
|
aParams(0).Value = "/org.openoffice.Office.Common/Help/Registration"
|
|
aRegistrationSettings = aConfigProvider.createInstanceWithArguments( _
|
|
"com.sun.star.configuration.ConfigurationUpdateAccess", _
|
|
aParams() )
|
|
|
|
aRegistrationSettings.RequestDialog = 1
|
|
aRegistrationSettings.setPropertyToDefault( "ReminderDate" )
|
|
aRegistrationSettings.commitChanges
|
|
End Sub
|
|
|