Hi Shell,
I tried to create a sample test using TestComplete's means (i.e. using its services provided for WebServices testing but not preparing request manually via PrepareRequest()), but failed to execute it because of the authentication error.
I tried the same using SoapUI, but it also failed with the same 'peer not authenticated' error.
Anyway, these lines of your code are not clear to me:
Set obj1 = TypeFactory.LeadDataType
Set obj = CreateXMLObj("C:\Leads\FordLead.xml")
Set obj1.Any = obj
Set LeadEntity.LeadData = obj1
a) Neither TestComplete, nor SoapUI indicated that LeadDataType object is required for the AddOEMNewLead() method call. Lead.LeadType is of string type.
b) Even if you need to assign the value to the obj1.Any you should not assign obj object to it because obj is a COM object, while obj1.Any is a serialized text representation. So I think that instead of Set obj1.Any = obj something like obj1.any = obj.xml should be used (but I would like to check this in debugger).