'---Bezeichnung: Projekte inaktiv stellen ' Klassen: Projekt ' ObjectScript: No ' ContainerScript: Yes ' EventType: Kein ' EventClass: ' EventMembers: ' ExtendedRights: No '---Dieses Script setzt alle Projekte einer Liste (in einem Ordner) ' auf inaktiv. Es gibt keine vorherige Überprüfung. '---17.02.2004, Vertec AG: erstellt. '---20.04.2009, sr: Header eingefügt. '---29.10.2013, sr: msgbox durch vertec.msgbox ersetzt. option explicit dim currOrd dim ordList dim currProj dim i set currOrd = Vertec.argObject if not currOrd.IsOfType("AbstractOrdner") then Vertec.MsgBox "Dieses Script kann nur auf einem Ordner ausgeführt werden" else set ordList = currOrd.Member("eintraege") for i= 0 to ordList.count-1 set currProj = ordList.Objects(i) if currProj.IsOfType("Projekt") then currProj.member("aktiv") = false end if next end if