' Beispielmakro fuer Office Manager-DMS, Sprache: VBScript ' Datei: http://www.officemanager.de/entwickler/skripte/dms-test.vbs ' (c) Softwarebuero Krekeler 2010 ' Testscript Office Manager COM-Server ' Server-Objekt erzeugen set omapp = CreateObject("om.OfficeManagerApp") ' Text in einer Variable speichern txtProtokoll="Dieser Text wird protokolliert" ' Variablenwert, sofern nicht leer, in das Protokoll schreiben If Len(txtProtokoll) > 0 Then omapp.Archive.WriteJournal 0, 1, true, txtProtokoll , "" end if ' Server-Objekt freigeben set omapp = Nothing