ActiveX组件不能创建对象：“GetObject的” InfoPath中

Question

我试图在ActiveDirectory中创建一个新的用户用下面的代码：

Sub CTRL1_12_OnClick(eventObj) 
Set objOU = GetObject("LDAP://OU=Users,dc=mfcvt,dc=local") 
Set objUser = objOU.Create("User", "cn=MyerKen") 
objUser.Put "sAMAccountName", "myerken" 
objUser.SetInfo 
End Sub 

该代码被设置为从InfoPath中运行，当我点击按钮CTRL1_12。但是当我做运行它我得到的是这样的错误：

Infopath cannot complete this action, because of an error in the form's code.  
The following error occurred: 

     ActiveX component can't create object: 'GetObject' 
     File:script.vbs 
     Line:20 

感谢您寻找

彼得

Answer 1

的答案

见 Create a user in Active Directory from an Infopath form