Este erro acontece porque está tentando adicionar ao dicionário um grupo que ele já possui. O objeto dicionário não permite chaves repetidas, então tem duas opções.
1) Testar se a chave existe (estou usando o nome do grupo como chave) e se não existir então adiciona mais uma chave
2) Usar o ON ERROR RESUME NEXT para desconsiderar os erros.
Eu usei a segunda opção, além dos wscript.echo você deve ter retirado essa linha também.
Alterei agora para a primeira opção
'On Error Resume Next
'Cria Dicionário
Set dGrupos = CreateObject("Scripting.Dictionary")
'Le os grupos guardando os dados no dicionario
Set objSysInfo = CreateObject("ADSystemInfo")
strCN = objSysInfo.UserName
wscript.echo strCN
Set objUser=GetObject("LDAP://" & strCN)
Set colGroups = objUser.Groups
For Each objGroup in colGroups
Wscript.Echo objGroup.CN
if not dGrupos.Exists(objGroup.CN) then dGrupos.Add objGroup.CN, objGroup.CN
GetNested(objGroup)
Next
'fim do carregamento do dicionario
'Ler dicionario
wscript.echo "Lendo dicionarios __________================="
colKeys = dGrupos.Keys
For Each strKey in colKeys
Select Case dGrupos.Item(strKey)
Case "GrupoA"
wshshell.run ("Arquivo1.bat" ), 0, true
Case "GrupoX"
wshshell.run ("Arquivo2.bat"), 0, true
end select
Next
'Fim do script
'Subs e Functions
Sub GetNested(objGroup)
On Error Resume Next
colMembers = objGroup.GetEx("memberOf")
For Each strMember in colMembers
strPath = "LDAP://" & strMember
Set objNestedGroup = _
GetObject(strPath)
WScript.Echo objNestedGroup.CN
if not dGrupos.Exists(objNestedGroup.CN) then dGrupos.Add objNestedGroup.CN, objNestedGroup.CN
GetNested(objNestedGroup)
Next
End Sub
Ref.: Exists Method (Script Runtime)
http://msdn.microsoft.com/en-us/library/57hdf10z(v=vs.84).aspx
Fábio de Paula Junior
