Vb6 从Infopath表单在Active Directory中创建用户

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

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

我选择使用VisualBasic，因为我相信这是一种很好的使用AD编写脚本的语言

我已成功运行此代码：

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

当我单击infopath按钮时，它会在VB对话框中返回：“输出：”。但是，当我尝试时：

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中的一条错误消息：

发生以下错误：

ActiveX组件无法创建对象： “GetObject”文件：script.vbs行：14

---

当我将相同的代码放入记事本，另存为vbs文件，然后执行时运行良好，并在active directory中创建用户，我不明白的是为什么我运行相同的代码时它不起作用。

我建议您查看Richard Mueller的网站-他有大量的VBScript代码来做各种广告

这是一个如何创建用户的演示-是帮助吗？？我不是一个VBScript程序员，但我知道Richard的东西通常都很好，很有用

---

这是他的全部，你可以去翻一翻

我现在发现了问题所在。我需要将表单设置为“完全信任”工具>表单选项>安全和信任。我还必须用我的证书在表格上签字

---

现在，我可以从该按钮运行代码。

如果您发布代码或XML，请在文本编辑器中突出显示这些行，然后单击编辑器工具栏上的“代码”按钮（101 010），以精确地格式化和语法突出显示它！好的，我没看到，谢谢！多亏了这一点，他的网站看起来相当不错，一旦我发现为什么这段代码在Infopath中不起作用，但在我桌面上的独立vbs脚本中运行良好，我就可以使用他的代码了。彼得