Vbscript 使用VB脚本筛选字符串并设置权限

请帮我做两件事

一,。 执行此脚本时，文件夹的创建方式如下：“CN=Astra，OU=aaa，OU=bbb，OU=ccc，DC=ddd，DC=com” 但我只需要用Astra（CN）创建文件夹

代码：

On Error Resume Next
Dim objFSO, objFolder

Set objGroup = GetObject _
("LDAP://cn=UserCreation,ou=aaa,ou=bbb,ou=ccc,dc=ddd,dc=com")
objGroup.GetInfo

arrMemberOf = objGroup.GetEx("member")


For Each strMember in arrMemberOf

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.CreateFolder(strMember)

Next

二,。请帮助我设置相应文件夹的用户权限。 用户从广告组中获得信息

---

谢谢

嗨，内森，谢谢你的帮助。。我得到o/p:Astra，OU=aaa，OU=bbb，OU=ccc，DC=ddd，DC=com当我执行脚本时，是否可能为sFilterStringI设置动态？我不理解你的问题。如果您需要更多帮助，请发布更多代码。很高兴听到。大多数人通过接受答案来表示感谢。

sFilterString = "CN=Astra,OU=aaa,OU=bbb,OU=ccc,DC=ddd,DC=com"

'here we break the string into an array of values:
'  aJustCN(0) = "CN=Astra"
'  aJustCN(1) = "OU=aaa"
'  aJustCN(2) = "OU=bbb"
'  ...
'  aJustCN(5) = "OU=com"
aJustCN = Split(sFilterString)


'Here we just truncate the CN= from the string
sJustCN = Replace(aJustCN(0),"CN=","")

'This will return "Astra"
Wscript.Echo sJustCN