Help!

I have a customer whose public web site collects lead registrations and
stores them in vcard files. Then every 30 minutes a CDOEX script runs on the
Exchange server system which reads in the vcard files and puts them into a
contacts-style public folder.

After working for years, this script suddenly stopped working in mid April
and I can't figure out why. I suspect it was because of the install of a
recent Exchange or Windows critical update. I have tried the same script on
2 other Exchange 2003 servers at different customer sites which also have all
current critical updates, and the script fails in the same way. I don't have
access to older Exchange servers for testing, but like I said this script ran
flawlessly since 2004 until just recently.

The script is extremely simple and it fails right at the beginning; I've
enclosed a stripped-down version. It creates a CDO.Person object and then
gets the Vcard stream so it can read a Vcard. The fetch of the Vcard stream
is what is failing. I could understand if a save failed or something because
security is always getting tighter, but this failure happens when we are just
creating an empty person object in memory!

My customer is eager to start processing sales leads again. Can you give me
any tips on how to see why this failing or how to fix it? If you have an
up-to-date Exchange server, it's easy to try this yourself.

Thanks for any help you can give me!

Regards,
Mike Gilbert

Here's the script that fails - save this as vcard.vbs and double click it to
see the error:
'Create New Contact object and fill it in from the vcard.
Dim oContact, vStream
set oContact = CreateObject("CDO.Person")
if err.number 0 then wscript.quit

'the line below fails with 80040201 after latest Exchange/Win 2003 updates
set vStream = oContact.GetvCardStream
'vStream.LoadFromFile(vCardFile.Path)

Here's the example that the script followed:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wss/wss/_cdo_creating_a_contact_from_a_vcard_stream.asp

Archived from group: microsoft>public>exchange2000>misc