关于vb6：从Infopath表单在Active Directory中创建用户

Create a user in Active Directory from an Infopath form

我已经在网上搜索了一段时间，但似乎仍然找不到关于此主题的任何有用信息。

我要创建的是Infopath表单中的一个按钮，该按钮将在Active Directory中创建一个用户帐户。该代码将需要提取存储在Infopath表单的字段中的信息。

我选择使用Visual Basic，因为我认为这是使用AD的良好语言脚本。

我已成功运行以下代码：

1
2
3

Sub CTRL1_12_OnClick(eventObj)
MsgBox"Output:"
End Sub

当我单击我的信息路径按钮时，在VB对话框中返回：'输出：'。但是，当我尝试时：

1
2
3
4

Set objOU=GetObject("LDAP://OU=People,OU=contoso,DC=contoso,DC=com")
Set objUser=objOU.Create("user","CN=Linda Mitchell")
objUser.Put"sAMAccountName","linda.mitchell"
objUser.SetInfo()

我得到的只是Infopath中的一条错误消息：

The following error occurred:

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

当我将相同的代码放入记事本中时，另存为vbs文件，然后执行可以正常运行并在活动目录中创建用户，我不明白的是为什么当我运行相同的代码时却没有工作。