This is a VBscript function that fails trying to insert a new Lead record :-

Public Function RunCreate()

  Dim bRet
  Dim sobj(0)

  bRet = TRUE

  Set sobj(0) = p_sfdc.CreateObject("Lead")

  sobj(0).Item("FirstName") = "Garry" <<<<<<<< Failure point, see error below

  sobj(0).Item("LastName") = "Lindsay"
  'sobj.Create
  p_sfdc.Create sobj, False
  'RunQuery
    
     On Error Resume Next
    
  If Err.Number = 0 Then
   Response.Write "Created"
  Else
   Response.Write "failed" & " - " & p_sfdc.ErrorMessage
  End If

    
     RunCreate = bRet
    
 End Function

Here is the error :-

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'sobj(...).item'

/appsynthesis/appmanager/includes/classes/sForce/clssForceHelper.asp, line 321

Any help??

Cheers

Garry

Is it possible to use this Office COM object from WIndows Script Host via VBScript???

It appears there are some basic data types that VB script does not support that are need to call the COM API's?

Cheers

Garry

Hi Garry,

You "should" be able to do this.  This object can be used in javascript, so it should be available for vbscript.

Object browser tells me that "FirstName" needs to be of type System.Object

public abstract new SForceOfficeToolkitLib.Field Item ( System.Object key )

Member of SForceOfficeToolkitLib.ISObject

But it appears this error :-

Set sobj(0) = p_sfdc.CreateObject("Lead")

sobj(0).Item("FirstName") = "Garry" <<<<<<<<<< Error

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'sobj(...).item'

I obviously get this error on this code -

Set sobj(0) = p_sfdc.CreateObject(p_strCurrentObjectName)

sobj(0)("FirstName") = "Garry" <<<<<<<<<< Error

 Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method

The VBscript doc tells me this :-

You specified a property or method that does not exist for this automation object. Not all objects support all properties and methods.

To correct this error

• Check the properties and methods to ensure there were no typing errors.
• See the object's documentation for more information.

I am scratching my head!!!!

Cheers

Garry

Hi Garry,

I got this to work:

Set sobj = p_sfdc.CreateObject("Lead")

sobj.Item("FirstName").Value = "Garry"

Late bound languages, like vbscript and javascript, have trouble with identity properties (DISPID_VALUE). This is the magic property index that will map a particular object property as a default. In the toolkit, on SObject, this maps to the Item collection. On the field object it maps to the value property.

So code like this which is fine in early bound VB, making use of this little trick :

Dim s as SObject

Set s = api.CreateObject("contact")

s("lastname") = "test"

will not work in scripts, which access everything via IDispatch interfaces and do not honor DISPID_VALUE.

So, you have to be really specific about how you access everything from scipt languages:

Dim sobject
Dim session

Set session = server.createobject("SForceOfficeToolkit.SForceSession.1")

session.Login "foo@bar.com","123456",False

set sobject = session.CreateObject("contact")

sobject.Item("firstname").value = "Me"
sobject.Item("lastname").value = "Not you"

sobject.Create

sobject.Refresh

Notice the .value, which is all your code needs.

Unfortuanlly I found a bug were I'm not handling vbscript arrays correctly, which results in an exception for all the array methods.

I'll fix it for the 2.0 release this month, for now just use the singleton methods like the example or use javascript.

Awesome, it worked, but I have found one other wierd issue when pulling data out :-

For Each sobj In qrs
 For i = LBound(fieldNames) To UBound(fieldNames)
  strFieldName = TRIM(fieldNames(i))   
  Set fld = sobj.Item(i) <<<<<<<<<<<<<<<<<<<<<< Works
  Set fld = sobj.Item(strFieldName) <<<<<<<<<<<<< Fails
 Next
Next

Here is the error

SForceOfficeToolkit.SObject.1 error '80004001'

Unsupported field index type

and if I run it again, I get this :-

SForceOfficeToolkit.SObject.1 error '80004005'

Invalid field index::14564

It seems I get a random field index error, or the unsupported index type error, but using the index itself Set fld = sobj.Item(i) or actually having the line Set fld = sobj.Item("FirstName") works, but Set fld = sobj.Item(strFieldName) fails? strFieldName can be set to "FirstName" and it still fails?

Am I making another bad scripting coding mistake?

Cheers

Garry

Do you support listening all the fields in an sForce object i.e. all the Lead field in the Lead object e.g. like using the .NET describeSObject function call. Is there any way in VBscript to replicate this call :-

// Invoke describeSObject and save results in DescribeSObjectResult
   DescribeSObjectResult dsr = binding.describeSObject("Lead");

Cheers

Garry