Question

我在脚本中使用GetObject()和LDAP:// ADsPath将用户添加到群组。

但是，如果某个组的名称中有空格，例如＆＃34;学生组＆＃34;，则GetObject()无法找到它。

我已经在没有空格的情况下对另一组进行了测试，它运行正常，但我似乎无法弄清楚如何解决这个问题。

groupPath = "LDAP://cn=EY2014,ou=Student Groups,ou=Groups,dc=Domain,dc=com"
Set group = GetObject(groupPath)

错误：服务器上没有这样的对象，代码80072030，source（null）

整个代码：

dim groupPath
dim userPath
dim member

'groups the script with join the user to 
groupPath = "LDAP://cn=EY2014,ou=Student Groups,ou=Groups,cn=B**r Sc***l,dc=B****r,dc=surrey,dc=sch,dc=uk"

'links to the name box at start of script 
userPath = "LDAP://cn=" & strUserName & ",cn=users,dc=B*r,dc=s***y,dc=sch,dc=uk"

addToGroup userPath,groupPath

sub addToGroup(userPath, groupPath)
    dim objGroup
    set objGroup = getobject(groupPath)

    for each member in objGroup.members
        if lcase(member.adspath) = lcase(userPath) then
            exit sub
        end if
    next
    objGroup.Add(userPath)

end sub

OU中的ADsPath和空格

0 个答案: