0

私は今途方に暮れています。このスクリプトをいくつかの方法で試しましたが、エラーが発生し続けますThere is no such object on the server at character 20,2。

この行は

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

ユーザーの隣に変更OUすると、別のエラーが発生します。CN

望ましい最終結果は、すべての変数を HTML フォームから取得し、スクリプトを実行してドメインに新しいユーザーを作成することです。

この障害を乗り越えることができないため、ユーザーをグループに追加することさえまだできていません。

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
4

3 に答える 3

1

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

通常、「ユーザー」はコンテナであり、OU ではありません。

試す：

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

于 2012-12-29T18:31:57.507 に答える
0

example.comを実際のドメインに置き換えてみましたか。

GetObject("LDAP://example.com/OU=Users,DC=asp,DC=rippe,DC=com")
于 2012-12-28T19:18:06.347 に答える