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