server is unwilling to process the request

[sparkbyte]

OK, I am at a total loss. I have never seen this error message before and can't track down what is causing it.

I am a Domain Administrator and should not be restricted from running user updates of any kind.

strName = "025john"
strOU = "_transit"
strBank = "025"


Set objRootDSE = GetObject("LDAP://RootDSE")
	strDNSDomain = objRootDSE.Get("DefaultNamingContext")
Set objRoot = GetObject("LDAP://rootDSE")
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objDomain = GetObject("LDAP://" &_
		objRoot.Get("defaultNamingContext"))
Set objOU = GetObject("LDAP://OU=" &_
		strOU & "," & objRootDSE.Get("defaultNamingContext")) 
Set objUser = objOU.Create("User", "cn=" & strName & account)

Const ADS_PROPERTY_APPEND = 3 
 
Set objGroup = GetObject _
		("LDAP://cn=" & StrBank & "," & "cn=users" & "," & strDNSdomain) 
	objGroup.PutEx ADS_PROPERTY_APPEND, "member", _
 	Array("LDAP://cn=" & strName & "," & StrOU & "," & strDNSdomain)


WScript.Echo  ("LDAP://cn=" & StrBank & "," & "cn=users" & "," & strDNSdomain) 

WScript.Echo  ("LDAP://cn=" & strName & "," & "dc=" & StrOU & "," & strDNSdomain)
 
objGroup.SetInfo

Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

LDAP://cn=025,cn=users,DC=corebanks,DC=jackhenry,DC=com
LDAP://cn=025john,dc=_transit,DC=corebanks,DC=jackhenry,DC=com
C:\Documents and Settings\jfuhrman\Application Data\Adersoft\VbsEdit\Temp\GYMURAJI.vbs(28, 1) (null): The server is unwilling to process the request.


***** script completed *****

ANY ideas???

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[tsuji]

[1] The first two line in the box quoting error messages come from the two wscirpt.echo. Although the data so echoed contains some typos like "dc=" instead of I would think "ou=", but there are no harm to the functionality.

[2] The error message that follows comes from the .setInfo. Indeed the line of .putex looks incorrect.

> Set objGroup = GetObject _
("LDAP://cn=" & StrBank & "," & "cn=users" & "," & strDNSdomain)
objGroup.PutEx ADS_PROPERTY_APPEND, "member", _
Array("LDAP://cn=" & strName & "," & StrOU & "," & strDNSdomain)

[2.1] The array() specifying the user to be added to the group should contains the distinguished name, _not_ the adspath, ie, you should spare the LDAP:// prefix.

[2.2] Besides, the dn seems missing something, "ou=" for organizational unit.

[tt]Set objGroup = GetObject _
("LDAP://cn=" & StrBank & "," & "cn=users" & "," & strDNSdomain)
objGroup.PutEx ADS_PROPERTY_APPEND, "member", _
Array[highlight]("[/highlight]cn=" & strName & ",[red]ou=[/red]" & StrOU & "," & strDNSdomain)[/tt]