So bin wach. Lese nicht mehr nur Worte und es "works as designed" bedanke mich. Einzige was mich kurz aufgehalten hat, war die "mixedgroup" da reicht ja die einfach Angabe, dass es eine Gruppe sein soll. vorher hatte ich das server und personen Attribut gleichzeitig auf True gesetzt. Ich bedanke mich für die Hilfe
Hier noch kurz der Code :
SelectCase Cstr(doc.GetItemValue("kind")(0))
Case "0"
' Unspecified
entry.IsPerson = False
entry.IsServer = False
entry.IsGroup = False
Case "1"
'Person
entry.IsPerson = True
Case "2"
'Server
entry.IsServer = True
Case "3"
'Persongroup
entry.IsPerson = True
entry.IsGroup = True
Case "4"
'Servergroup
entry.IsServer = True
entry.IsGroup = True
Case "5"
'MixedGroup
entry.IsGroup = True