LDAP script - hvorfor virker det ikke ?

Tags:    visual-basic

User
Bruger #386 @ 16.01.06 15:20
Hejsa,

følgende script burde virke - men gør det ikke. strMember returnerer ikke andet end intet ;)

Nogen der kan hjælpe mig med hvorfor ?

'==========================================================================
'
' NAME: Testscript
'
' AUTHOR: Jacob
' DATE : 16-01-2006
'
' COMMENT: Køres med syntaksen checkdenne("cn=gruppenavn,ou=ounavn,dc=foerste,dc=anden,dc=net")
'
'==========================================================================

Function checkdenne (ldapstring)

On Error Resume Next

Set objGroup = GetObject("LDAP://" & ldapstring)

objGroup.GetInfo

arrMemberOf = objGroup.GetEx("member")

For Each strMember in arrMemberOf
strMember = strMember & VBCrLf
Next

Wscript.Echo (strMember)

End Function



3 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma
Sorter efter stemmer Sorter efter dato
Hej

En årsag til at det ikke virker, er at du bruger samme variabel strMember, som den du vil have hvert eneste member gemt i, og samtidig prøver du at lave en liste over alle members med samme navn. Prøv:

Fold kodeboks ind/udKode 


Om resten så virker korrekt, skal jeg ikke lige kunne sige.

---
Hilsen Anders

[Redigeret d. 16/01-06 19:54:16 af Anders (r0x3r)]



Det er logisk!

Fold kodeboks ind/udKode 




Indlæg senest redigeret d. 12.07.2006 13:09 af Bruger #1927
User
Bruger #386 @ 17.01.06 13:17
Hej

En årsag til at det ikke virker, er at du bruger samme variabel strMember, som den du vil have hvert eneste member gemt i, og samtidig prøver du at lave en liste over alle members med samme navn.


Nu spørger jeg måske fjollet... men det giver helt fuldstændig logisk mening for mig at sætte en variabel til sig selv, plus sig selv efter en iteration, plus sig selv efter en iteration... og så fremdeles.

Anyway, jeg afprøver din variation senere idag :)

Jacob



t