Inhalt

Dieses Script entfernt für eine Benutzergruppe einen Root-Ordner aus der Ansicht. Wenn Mitglieder dieser Benutzergruppe sich einloggen, erscheint der Ordner nicht mehr in der Aufstellung der Ordner.

Wenn Sie statt dessen einen Ordner zur Ansicht freigeben wollen, benutzen Sie das Script Ordner einer Benutzergruppe zur Ansicht anfuegen

Version

Ab Vertec Version 5.0 (verwendet die Variablen vertec und argobject).

Ausführen

Auf der Benutzergruppe, der der Ordner zur Ansicht entzogen werden soll.

Script

dim gruppe
dim ordnerlist
dim ord

set gruppe = Vertec.ArgObject
if gruppe.isOfType("BenutzerGruppe") then
    ordname = _
        InputBox("Geben Sie den Namen für den Ordner an")
    set ordnerlist = _
        Vertec.Eval("ordner->select(bezeichnung='"_
        & ordname & "')")
    if ordnerlist.count <> 1 then
        msgbox "Es wurden entweder keine oder mehrere "_
            &"Ordner mit der angegebenen Bezeichnung "_
            &"gefunden. Der Vorgang wird abgebrochen."
    else
        set ord = ordnerlist.objects(0)
        gruppe.member("persrooteintraege").remove ord
    end if
else
    msgbox "Dieses Script muss auf einer "_
        &"Benutzergruppe ausgeführt werden."
end if