Pessoal, olha que situação atípica.
Tenho dois domínio configurados com Relação de Confiança em ambos, tudo ok. Autenticação funciona, atribuição em grupos Domain Local, etc...
Tenho um grupo de Escopo Domain Local no domínio "A", e como membros deste grupo usuários do domínio "B". Preciso exportas estes usuários para depois importá-los em um grupo de Escopo Domain Local no domínio "B". Aí que está
o problema, tenho o script abaixo que funciona perfeitamente, mas só me traz os usuários do domínio "A", como posso contornar essa situação?
On Error Resume Next
Diretorio= "C:\Temp\Groups"
grupo= InputBox("Digite o nome do grupo ")
file= grupo & ".txt"
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = oFSO.CreateFolder(Diretorio)
Set Dir=oFSO.GetFolder(Diretorio)
Set arqtxt = Dir.CreateTextFile(file, True)
Set rootDSE = GetObject("LDAP://RootDSE")
domainContainer = rootDSE.Get("defaultNamingContext")
Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADSDSOObject"
conn.Open "ADs Provider"
LDAPStr = "<LDAP://" & DomainContainer & ">;(&(objectclass=group)(objectCategory=group)(samaccountname=" & grupo & "));adspath;subtree"
Set rs = conn.Execute(LDAPStr)
If rs.RecordCount = 1 Then
Set oGroup = GetObject(rs.Fields(0).Value)
End If
for each strMember in oGroup.member
Spmember = Split(strMember, ",")
member= Spmember(0)
arqtxt.WriteLine Mid (member,4)
Next
iGroupCount = 0
For each strMember in oGroup.member
If Len(strMember) = 0 Then
wscript.echo "Grupo sem nenhum membro ou não existente!."
Else
iGroupCount = iGroupCount + 1
End If
Next
arqtxt.WriteLine("Número total de usuarios neste grupo = ") & iGroupCount
arqtxt.Close
WScript.echo "Pronto!!!"
wscript.quit
