en commentaire ce que je n'ai pas pu convertir.
- Code : Tout sélectionner
Option Public
' Domino Upgrade Services (DUS)
' USERREG_DEFS => reg.h
Const DUSMAXFLATNAME = 128
Const fDUSDoMailConversion = &h00000001
Const fDUSGenerateRankPws = &h00000002
Const fDUSAdvancedDlg = &h00000004
Const fDUSUserFullnameProvided = &h00000008
Const fDUSAllowEmptyGroups = &h00000010
Const fDUSMailconversionOnly = &h00000020
Const fDUSAddAdmintoACL = &h00000080
Const fDUSOverwritePasswords = &h00000100
Const fDUSUseFilters = &h00000200 ' Nouveauté V6
' EntryFlags dans DUS_ENTRY
Const fDUSExternalEntry = &h00010000 ' Nouveauté V6
Const fDUSIgnoreEntry = &h00020000 ' Nouveauté V6
Const DUS_GROUP_TYPE_MULTI_PURPOSE = "0"
Const DUS_GROUP_TYPE_MAIL_ONLY = "1"
Const DUS_GROUP_TYPE_ACL_ONLY = "2"
Const DUS_GROUP_TYPE_DENY_LIST_ONLY = "3"
Const DUS_ERROR_LEVEL_INFO = &h0001
Const DUS_ERROR_LEVEL_WARNING = &h0002
Const DUS_ERROR_LEVEL_ERROR = &h0004
Const DUS_ERROR_LEVEL_NO_DISPLAY = &h0008
%REM
typedef void (LNCALLBACKPTR DUSPROGRESSBARPROC)(DWORD Range, DWORD Position, char *MessageText);
typedef STATUS (LNVARARGS * DUSLOGEVENTPROC)(STATUS StringID, HMODULE hModule, STATUS AdditionalErrorCode,...);
STATUS LNCALLBACK DUSGetName( HMODULE hInstance,
char *DUSNameBuf,
WORD DUSNameBufLen,
char *DUSDescriptionBuf,
WORD DUSDescriptionBufLen );
STATUS LNCALLBACK DUSStart( HMODULE hInstance,
HANDLE *pRethContext,
NOTEHANDLE hUserNote,
DWORD *pRetInitFlags,
DUSPROGRESSBARPROC DUSProgressBar,
DUSLOGEVENTPROC DUSLogEvent);
void LNCALLBACK DUSExtendedErrorText( HANDLE hContext,
char * ErrorBuffer,
WORD BufferLen,
WORD *pErrorLevel);
STATUS LNCALLBACK DUSRetrieveUsers( HANDLE hContext,
DWORD StartIndex,
DWORD *pResumeIndex,
DWORD NumUsersRequested,
DWORD *pNumUsersReturned,
HANDLE *pRethExternalUsers,
DWORD *pRetUserEntrySize);
STATUS LNCALLBACK DUSRetrieveGroups( HANDLE hContext,
DWORD StartIndex,
DWORD *pResumeIndex,
DWORD NumGroupsRequested,
DWORD *pNumGroupsReturned,
HANDLE *pRethExternalGroups,
DWORD *pRetGroupEntrySize);
STATUS LNCALLBACK DUSGetUserInformation( HANDLE hContext,
char * UserName,
NOTEHANDLE hUserNote,
DWORD TotalLeftToRead);
STATUS LNCALLBACK DUSGetGroupInformation( HANDLE hContext,
char * GroupName,
NOTEHANDLE hGroupNote);
STATUS LNCALLBACK DUSGetGroupMembers( HANDLE hContext,
char * GroupName,
NOTEHANDLE hGroupNote,
HANDLE *phGroupMembersList,
HANDLE *phUserMembersList);
STATUS LNCALLBACK DUSAdvancedDlg( HANDLE hContext);
STATUS LNCALLBACK DUSRegistrationNotify( HANDLE hContext,
char *UserName,
NOTEHANDLE hUserNote,
BOOL bAfterEvent);
STATUS LNCALLBACK DUSConvertMailFile( HANDLE hContext,
char *UserName,
char *MailFilePath,
NOTEHANDLE hUserNote,
NOTEHANDLE hNewPersonNote,
REGSIGNALPROC SignalStatus);
STATUS LNCALLBACK DUSStop( HANDLE hContext);
STATUS LNCALLBACK DUSTerm( void);
STATUS LNCALLBACK DUSRetrieveUsersEx( HANDLE hContext,
char * Filter,
char * GroupName,
NOTEHANDLE hGroupNote,
DWORD StartIndex,
DWORD *pResumeIndex,
DWORD NumUsersRequested,
DWORD *pNumUsersReturned,
HANDLE *pRethExternalUsers,
DWORD *pRetUserEntrySize);
STATUS LNCALLBACK DUSRetrieveGroupsEx( HANDLE hContext,
char * pFilter,
char * GroupName,
NOTEHANDLE hGroupNote,
DWORD StartIndex,
DWORD *pResumeIndex,
DWORD NumGroupsRequested,
DWORD *pNumGroupsReturned,
HANDLE *pRethExternalGroups,
DWORD *pRetGroupEntrySize);
STATUS LNCALLBACK DUSRetrieveFilters( HANDLE hContext,
HANDLE *phDefaultFilters);
%END REM
Type DUS_ENTRY ' *PDUS_ENTRY
Name(DUSMAXFLATNAME+1) As String
ID As Long
EntryFlags As Long
hParentGroupList As Long
End Type
