0

2つのことで私を助けてください。

I. このスクリプトを実行すると、たとえば「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

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

ありがとう！

4

1 に答える 1

0 
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
于 2012-04-18T00:51:23.960 に答える