CAE1 Absent Member.
Absent Member.
834 views

Two or more Admin Defined Fields cause our program to crash

Hello,

with GroupWise 18 two or more Admin Defined Fields cause our programs to crash, when accessing the fields in an AddressBookEntry.

This error can be reproduced as follows:

1. Create two or more admin defined fields, e.g. 'givenname' and 'sn', in the GroupWise Administration
2. Synchronize one or all users
3. Execute the following VBScript:

[INDENT]Dim gwappl
Dim gwacc
Dim gwAddressBooks
Dim gwAddressBook
Dim gwAddressBookEntries
Dim gwAddressBookEntry
Dim gwFields
Dim gwField

Set gwappl = CreateObject("Novellgroupwaresession")
Set objShell = CreateObject("Wscript.Shell")

Set gwacc = gwappl.Login
Set gwAddressBook = gwacc.AddressBooks(1)
Set gwAddressBookEntries = gwAddressBook.AddressBookEntries
msgText = ""
for k = 1 To gwAddressBookEntries.Count
Set gwAddressBookEntry = gwAddressBookEntries(k)
entryText = ""
Set gwFields = gwAddressBookEntry.Fields
for j = 1 to gwFields.Count
Set gwField = gwFields(j)
if gwField.FieldID = 0 then
if entryText = "" then
entryText = CStr(k) & ". address book entry: '" & gwAddressBookEntry.DisplayName & "'" & vbcrlf
end if
entryText = entryText & gwField.Name & " (" & CStr(gwField.FieldID) & ") = " & gwField.Value & vbcrlf
end if
next
if entryText <> "" then
msgText = msgText & entryText
end if
next
if msgText = "" then
msgText = "No problems in " & CStr(gwAddressBookEntries.Count) & " entries found"
else
msgText = msgText
end if

objShell.Popup msgText, infinite, "Field Tester for '" & gwAddressBook.Name & "'"
Set gwacc = Nothing
WScript.Quit 0

[/INDENT]

In the shown dialog the Admin Defined Fields (ID = 0) are displayed, a field "LastModificationDate" is noticeable, which is not defined at all!
After you click OK the script engine crashs with following call stack:

[INDENT]ntdll!NtWaitForMultipleObjects+c
ntdll!WerpWaitForCrashReporting+88
ntdll!RtlReportExceptionHelper+226
ntdll!RtlReportException+61
ntdll!RtlReportCriticalFailure+af
ntdll!RtlpReportHeapFailure+2f
ntdll!RtlpLogHeapFailure+41
ntdll!RtlFreeHeap+4cc04
ucrtbase!_free_base+1b
ucrtbase!free+18
gwenv1!WpmemTestFreeLocked+23
gwenv1!WpeArchiveUpdateOriginalFid+2b1
gwenv1!WpeLogout+328
gwxplt1!XPLOGIN::~XPLOGIN+10e
gwcma1!DllCanUnloadNow+1fba7
gwcma1!DllCanUnloadNow+1f262
gwcma1!XisDOMAttributeList::setAttribute+1d9bf
gwcma1!XisDOMAttributeList::setAttribute+1d7d8
gwcma1!XisDOMAttributeList::setAttribute+1d6d7
gwcma1!XisDOMAttributeList::setAttribute+1d24f
gwcma1!XisDOMAttributeList::setAttribute+1d1b6
gwcma1!XisDOMAttributeList::setAttribute+1d0e3
gwcma1+27c29
gwcma1+28d69
gwcma1!XisDOMAttributeList::setAttribute+1d179
gwcma1!XisDOMAttributeList::setAttribute+1d0e3
gwcma1+23fd1
gwcma1+274a9
gwcma1!XisDOMAttributeList::setAttribute+1d179
gwcma1!XisDOMAttributeList::setAttribute+1d0e3
gwcma1!DllCanUnloadNow+446e9
gwcma1!DllCanUnloadNow+4465b
gwcma1!DllCanUnloadNow+3ca5b
gwcma1!XisDOMAttributeList::setAttribute+1d179
gwcma1!XisDOMAttributeList::setAttribute+1d0e3
gwcma1!DllCanUnloadNow+43338
gwcma1!DllCanUnloadNow+432ab
gwcma1!DllCanUnloadNow+3d75b
gwcma1!XisDOMAttributeList::setAttribute+1ce76
gwcma1+f14e
oleaut32!CStdDisp::Release+27
oleaut32!VariantClear+225
vbscript!VAR::Clear+145
vbscript!NameList::~NameList+12
vbscript!GlobalBinder::Release+2b
vbscript!CSession::Close+f5
vbscript!COleScript::Close+119
cscript!CHost::RunStandardScript+c1
cscript!CHost::Execute+135
cscript!CHost::Main+20a
cscript!main+6b
cscript!_mainCRTStartup+a8
kernel32!BaseThreadInitThunk+24
ntdll!__RtlUserThreadStart+2f
ntdll!_RtlUserThreadStart+1b
[/INDENT]

We ask for quick support, because our customers can no longer use our telephony application with GroupWise 18 if the Admin Defined Fields are to be used at the same time.

With best regards

Jürgen
Labels (1)
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.