Error message from VB Script

[Hasse]

Hi,

When trying to collect information from our Active Directory some users gets
these messages.
Internet Explorer:
An Active X control on this page might be unsafe to interact with other
parts of the page. Do you want to allow this action?
Microsoft Office InfoPath:
A run-time error has occured.
Do you want to debug?
The following error occurred:
ActiveX component can't create object: 'GetObject'
File:script.vbs
Line:36

This is my code:
"Sub XDocument_OnLoad(eventObj)
Set sysinfo = CreateObject("ADSystemInfo")
Set oUser = GetObject("LDAP://" & sysinfo.UserName & "")
On Error Resume Next
End Sub"

Any ideas on how to solve this?

Regards,
Hans

 

[Kalyan Reddy]

Hi Hasse,

Try with the DeleteAll method. This collects all the Errors and delete all
them.
XDocument.Errors.DeleteAll();