我现在是处于亏损状态;我试过这个脚本几种不同的方式，但不断收到一个错误，指出还有就是服务器的字符20,2上没有此类对象。

这行读取

 设置objOU传递= GetObject的（LDAP：// OU =用户，DC = ASP，DC = rippe，DC = COM）
 

我得到一个不同的错误，当我修改欧到 CN 旁边的用户。

希望最终的结果是让所有的HTML表单所采取的变量，然后将运行该脚本来创建我们的域名的新用户。

我还没有练到增加用户群组，因为我不能让过去这个路障。

 暗淡strID，StrFName，strLName，strFirm，strPwd，strServer，strLMS，STRSQL，strLMSV

strID = zademo
strFName =演示
strLName =测试仪
strFirm =演示
strPwd = za1234
strServer = rkasp01
strLMS = Y
STRSQL = Y
strLMSV = Y
strDisplay = strLName和放大器; ，＆安培; strFName


思杰创建用户帐户

如果STRSQL = y或strLMSV = y，则

    设置objOU传递= GetObject的（LDAP：// OU =用户，DC = ASP，DC = rippe，DC = COM）

    设置objUser = objOU.Create（用户，CN =＆放大器; strDisplay）
    objUser.PutsAMAccountName赋，strID
    objUser.Put说明，strFirm

    objUser.Put给定名称，strFName
    objUser.PutSN，strLName
    objUser.Put显示名，strDisplay
    objUser.Puthome目录，\\ rkpdc \＆安培; strFirm和放大器; \＆安培; strID
    objUser.Put了ScriptPath，strFirm和放大器; 。蝙蝠
    objUser.SetInfo

结束如果

objUser.SetPassword strPwd
objUser.PutPasswordExpired，CLng函数（1）
objUser.AccountDisabled = FALSE
objUser.SetInfo
 

解决方案   

设置objOU传递= GetObject的（LDAP：// OU =用户，DC = ASP，DC = rippe，DC = COM）

通常用户是一个容器，而不是一个OU。

尝试：

设置objOU传递= GetObject的（LDAP：// CN =用户​​，DC = ASP，DC = rippe，DC = COM）

I'm now at a loss; I've tried this script several different ways but keep getting an error that says There is no such object on the server at character 20,2.

This line reads

Set objOU = GetObject("LDAP://ou=users,dc=asp,dc=rippe,dc=com")

I get a different error when I change OU to CN next to users.

The end result desired is to have all of the variables taken from an HTML form and then the script will run to create a new user on our domain.

I haven't even got to the adding the user to groups yet because I can't get past this road block.

Dim strID,StrFName,strLName,strFirm,strPwd,strServer,strLMS,strSql,strLMSV

strID = zademo
strFName = Demo
strLName = Tester
strFirm = Demo
strPwd = za1234
strServer = rkasp01
strLMS = y
strSql = y
strLMSV = y
strDisplay = strLName & ", " & strFName


'Create Citrix User Account

If strSql = y OR strLMSV = y Then

    Set objOU = GetObject("LDAP://ou=Users,dc=asp,dc=rippe,dc=com")

    Set objUser = objOU.Create("User", "cn=" & strDisplay)
    objUser.Put "sAMAccountName", strID
    objUser.Put "Description", strFirm

    objUser.Put "givenName", strFName
    objUser.Put "sn", strLName
    objUser.Put "displayName", strDisplay
    objUser.Put "homedirectory", "\\rkpdc\" & strFirm & "\" & strID
    objUser.Put "scriptpath", strFirm & ".bat"
    objUser.SetInfo

End If

objUser.SetPassword strPwd
objUser.Put "PasswordExpired", CLng(1)
objUser.AccountDisabled = FALSE
objUser.SetInfo

Set objOU = GetObject("LDAP://ou=Users,dc=asp,dc=rippe,dc=com")

Usually "Users" is a container, not an OU.

Try:

Set objOU = GetObject("LDAP://CN=Users,dc=asp,dc=rippe,dc=com")