'---Bezeichnung: Autologin eintragen
'   Klassen: Projektbearbeiter
'   ObjectScript: No
'   ContainerScript: Yes
'   EventType: Kein
'   EventClass:
'   EventMembers:
'   ExtendedRights: No
'---Dieses Script setzt bei allen aktiven Bearbeitern das
'   Autologin. Die Domain muss im Script vorher angepasst
'   werden (im Beispiel MYDOMAIN).
'   Der Name der Bearbeiter muss in der Form "Vorname Nachname"
'   sein (z.B. Christoph Keller).
'---05.07 Vertec AG: erstellt.
option explicit

dim bearblist
dim i
dim b, c

set bearblist = Vertec.Eval("projektbearbeiter" _
    &"->select(aktiv)->reject (name='Administrator')")
for i = 0 to bearblist.Count -1
    set b = bearblist.Objects(i)
    c = Instr(b.member("name"), " ")
    b.member("systemlogin") = ("MYDOMAIN\"_
        & LCase(Mid(b.member("name"), c+1, len(b.member("name"))))) _
        & LCase(Mid(b.member("name"), 1, 3))
next