VBスクリプトを使用した文字列フィルタと権限の設定

Question

2つのことを教えてください。このスクリプトを実行すると

I. 、フォルダはこの例のように作成している： "CN =アストラ、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 

II。それぞれのフォルダにユーザー権限を設定してください。 ユーザーはADグループから取得しています。

ありがとうございます！

Answer 1

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