Das neue Word 2007 hat eine integrierte Literaturverwaltung. Sie ersetzt keine professionelle Quellenverwaltung, wie man sie für Haus- und Diplomarbeiten benötigt - erleichtert aber für wirklich in der Arbeit verwendete Quelle die Formatierung und Erstellung des Literaturverzeichnisses.

Die Quellenverwaltung von Word 2007 ist über das Menü Verweise > Zitate und Literaturverzeichnis > Quellen verwalten erreichbar. In diesem Fenster gibt es zwei Listen. Zum einen die Masterliste, die alle Quellen enthält, und zum anderen eine Aktuelle Liste, die alle Quellen des gerade zu bearbeitenden Dokumentes enthält.
Zitate lassen sich über Verweise > Zitate und Literaturverzeichnis > Zitat einfügen in das Dokument einfügen.
Ein Literaturverzeichnis kann über Verweise > Zitate und Literaturverzeichnis > Literaturverzeichnis in das Dokument eingefügt werden.

Standardmäßig werden von Microsoft bereits verschiedene “Formatvorlagen” für Zitate und Quellenangaben mitgeliefert. Leider entspricht keine dieser Vorlagen den Forderungen der HFH, doch zum Glück lassen sich die vorhandenen Vorlagen anpassen bzw. eigene Vorlagen erstellen.

Einbinden der neuen Formatvorlage

Da die mit Word 2007 mitgelieferten Formatvorlagen relativ komplex sind und viele Teile enthalten, die nicht gebraucht werden, habe ich eine neue Vorlage erstellt. Um die von mir erstellte Vorlage benutzen zu können, muss

• diese Datei HFH.xsl runtergeladen werden und
• unter [Office-Installationsverzeichnis]\Office12\Bibliography\Style gespeichert werden.

Anschließend kann unter Verweise > Formatvorlage der Eintrag “HFH” gewählt werden.

Was kann die neue Formatvorlage

Bei der Erstellung der Vorlage habe ich versucht mich an den Studienbrief “Wissenschaftliches Arbeiten. Studienbrief 2:  Recherchieren, Zitieren, Gestalten - Ein praktische Hilfe zur Erstellung von Haus- und Diplomarbeiten” zu halten. Da der gesamte Studienbrief relativ umfangreich ist, hab ich erstmal die für mich wichtigen Teile in die Vorlage übernommen. Ein Anpassen der Vorlage ist jederzeit möglich.

Für Zitate bietet die neue Vorlage die folgenden Funktionen:

• sämtliche Typen von Quellen sind möglich,
• Format für alle Quellen identisch,
• beliebig Anzahl von Autoren möglich
• Seitenangaben möglich (werden über die Eigenschaften des Zitates eingestellt)
• Indirektes Zitat möglich (der Text “vgl.” wird mit angezeigt) - um diese Funktion zu aktivieren, muss in den Eigenschaften des Zitats der Haken “Titel” aktiviert werden. Dieser Umweg ist nötig, da Word 2007 keine Unterscheidung zwischen direktem und indirektem Zitat macht.

Für das Literaturverzeichnis werden die folgenden Quellentypen und Felder unterstützt:

• Buch (Book)
• Buchabschnitt (BookSection)
• Zeitschriftenaufsätze und Artikel in Magazinen (ArticleInAPeriodical)
• Zeitungsartikel (JournalArticle)
• Webseite/Artikel von einer Webseite (InternetSite/DocumentFromInternetSite)

Alle von dieser Vorlage unterstützten Felder werden in der Quellenverwaltung von Word als “empfohlene Felder” angezeigt.

Bei Fragen zur Verwendung/Bedienung einfach melden.

public static void RemoveAssemblyResource(
   string pAssemblyDisplayName,
   string pApplicationName,
   string pServerName,
   string pMgmtDatabase)
{
   Microsoft.BizTalk.ApplicationDeployment.Group lDepGroup =
      new Microsoft.BizTalk.ApplicationDeployment.Group();

   try
   {
      lDepGroup.DBName = pMgmtDatabase;
      lDepGroup.DBServer = pServerName;

      Microsoft.BizTalk.ApplicationDeployment.Application lApp =
         lDepGroup.Applications[pApplicationName];

      if (lApp.IsSystem)
         throw new Exception(”System applications can not be changed!”);

      lApp.ResourceCollection.Remove(string.Empty, pAssemblyDisplayName);
   }
   catch
   {
      lDepGroup.Abort();
      throw;
   }
   finally
   {
      lDepGroup.Dispose();
   }
}

Die Anrufliste wird direkt von der Fritz!Box geladen und angezeigt.

Funktionen:

• regelmäßige Aktualisierung der Anrufliste
• die sechs aktuellsten Anrufe werden dauerhaft in der Sidebar angezeigt
• detailierte Liste mit allen gespeicherten Anrufen als Flyout
• Tooltip mit detailierten Informationen zum jeweiligen Anruf
• Fritz!Box IP, Fritz!Box Password und Aktualisierungsintervall konfigurierbar

Das Gadget in der Sidebar:

In einem Flyout werden alle Anrufe in einer detailierten Liste angezeigt:

Das Gadget hab ich mit meiner 7270 getestet - sollte aber auch mit verschiedenen anderen Boxen funktionieren.

Downloaded a total of 674 times

Damit die Daten verschlüsselt werden können, ist i.d.R. ein zusätzliches Tool nötig. Eines dieser Tools ist Truecrypt.

Ziel/Problemstellung

Ich möchte an dieser Stelle kein Tutorial für Truecrypt schreiben.
Es geht lediglich darum, wie man mit Truecrypt verschlüsselte Daten auf dem USB-Stick möglichst komfortabel unter Windows einbinden kann - ohne sich jedesmal durch die GUI von Truecrypt oder die Kommandozeilen-Parameter zu kämpfen.

Ziel soll sein, dass

• die verschlüsselten Daten automatisch oder über einen Klick eingebunden werden,
• das Verschlüsselungstool (in diesem Fall Truecrypt) nicht zwangsweise auf dem Rechner, an dem der USB-Stick angeschlossen wird, installiert sein muss,
• das Verschlüsselungs-Tool auf dem Stick mittransportiert werden kann,
• nicht der komplette USB-Stick verschlüsselt ist,
• der Laufwerks-Buchstabe, unter dem der Stick eingebunden wird, nicht relevant ist
• und auf dem USB-Stick noch Platz ist, um unverschlüsselte Daten zu speichern/transportieren, falls es dann mal doch nicht mit Truecrypt klappt.

Was ist Truecrypt?

Mit diesem Tool (hier kostenlos erhältlich) lassen sich komplette Festplatten-Partitionen verschlüsseln und mit einem Passwort sichern, aber auch einfach nur eine einzelne Truecrypt-Container-Datei erstellen.

Eine Truecrypt-Container-Datei

• läßt sich als ganz normales Laufwerk in Windows einbinden,
• die darin enthaltenen Daten sind verschlüsselt und mit Passwort gesichert,
• läßt sich auf einem USB-Stick leicht von PC zu PC transportieren
• und ist auf verschiedensten Systemen (Windows, Linux, Mac OS) verwendbar.

Installation von Truecrypt

Truecrypt muss nicht auf jedem Rechner installiert sein, an dem die verschlüsselten Daten verwendet werden sollen. Da wir jedoch Truecrypt auf dem USB-Stick mitnehmen wollen, muss es zumindest auf einem Rechner installiert sein, um an die ausführbaren Dateien zu kommen.

Erstellen der Truecrypt-Container-Datei

Als nächstes muß eine Truecrypt-Container-Datei erzeugt werden.
Dazu gibt es in Truecrypt einen Wizard, der die Erstellung von verschlüsselten Datenträger erleichtert.
An dieser Stelle wird nicht der komplette Wizard beschrieben, sondern lediglich die relevanten Einstellungen.

Der Wizard kann in Truecrypt über den Button Create Volume gestartet werden:

• Volume Type: “Standard Truecrypt Volume”
• Volume Location:
  • wo der Container erstellt wird ist egal, da die Datei anschließend auf dem USB-Stick kopiert wird
  • der Dateiname sollte DataSafe.tc sein, damit die verwendeten Scripte einfach übernommen werden können
• Volume Size:
  • Abhängig von der Größe des USB-Sticks und wieviel unverschlüsselter Speicherplatz noch frei sein soll
  • da Truecrypt auch auf dem Stick transportiert werden muss, ca. 4 MB freien Speicher dafür berücksichtigen
  • Beispiel: 4GB USB-Stick
    - 3GB für Truecrypt-Container (einzutragende Volume Size)
    - 1GB freier, unverschlüsselter Speicher auf dem USB-Stick (abzüglich ca. 4MB für Truecrypt)
• …

Erstellen der Verzeichnis/Datei-Struktur auf dem USB-Stick

Damit das Einbinden der verschlüsselten Daten möglichst komfortabel ist, müssen eine paar Scripte erstellt werden.
Keine Angst, in dieser Anleitung vorhanden und Anpassungen sind i.d.R. nicht nötig!
Damit die Script ohne Anpassung funktionieren, ist es jedoch wichtig, dass die Verzeichnis-Struktur auf dem
USB-Stick entsprechend dieser Anleitung erstellt wird und die Container-Datei “DataSafe.tc” genannt wurde.

Zu erstellende Verzeichnis-Struktur auf dem USB-Stick:

• [USB-Stick-Laufwerk]
  • DataSafe
  • Truecrypt
    • Executable

Die Struktur sollte dann wie auf diesem Screenshot aussehen (USB-Stick ist im Bild das Laufwerk H:):

In das Verzeichnis DataSafe muss der erstellte Truecrypt-Container (DataSafe.tc) kopiert werden.

In das Verzeichnis Truecrypt\Executeable müssen die ausführbaren Dateien von Truecrypt kopiert werden. Dazu alle Dateien aus dem Verzeichnis, das bei der Installation von Truecrypt ausgewählt wurde, kopieren.

Erstellen der Scripte

Die folgenden Scripte/Dateien müssen alle auf dem USB-Stick abgelegt werden.

Dateiname: AUTORUN.INF
Speicherort: direkt auf dem USB-Stick im obersten Verzeichnis (nicht in einem Unterverzeichnis des Sticks)

Inhalt der Datei:

[AutoRun]
action=Mount DataSafe
OPEN=DataSafe\mount_safe.cmd
ICON=Truecrypt\Executable\TrueCrypt.exe

Shell=0
Shell\0=Unmount DataSafe
Shell\0\command=DataSafe\unmount_safe.cmd

Shell=1
Shell\1=Mount DataSafe
Shell\1\command=DataSafe\mount_safe.cmd

Dateiname: mount_safe.cmd
Speicherort: im Unterverzeichnis DataSafe des USB-Sticks

Inhalt der Datei:

@ECHO OFF

REM %~d0 stellt das aktuelle Laufwerk (auf dem sich die Batch-Datei befindet) dar

start %~d0\truecrypt\executable\truecrypt.exe /history n /quit background /explore /volume %~d0\DataSafe\DataSafe.tc

Dateiname: unmount_safe.cmd
Speicherort: im Unterverzeichnis DataSafe des USB-Sticks

Inhalt der Datei:

@ECHO OFF

start %~d0\truecrypt\executable\truecrypt.exe /dismount /quit /history n

Und wie kann man das ganze jetzt verwenden?

Unterstützt das System (Windows Vista, Windows XP ServicePack 2) die Autostart-Funktion von USB-Geräten und ist die Autostart-Funktion des Systems aktiviert, sollte die bekannte Box

beim Einstecken des USB-Sticks aufgehen und einen Punkt Mount DataSafe enthalten. Diesen Punkt anklicken und die Passwort-Eingabe von Truecrypt für die Container-Datei sollte erscheinen.

Anschließend wird automatisch ein neues Laufwerk verbunden und der Explorer öffnet sich - angezeigt wird der Inhalt der verschlüsselten Container-Datei.

Sollte die Autostart-Funktion von Windows nicht angezeigt werden, dann im Kontext-Menü - Rechtsklick auf den Laufwerks-Buchstaben des USB-Sticks - Mount DataSafe auswählen.

Um das verschlüsselte Laufwerk wieder zu deaktivieren, einfach im Kontext-Menü des USB-Sticks (Nicht des verschlüsselten Laufwerks!!!) den Punkt Unmount DataSafe auswählen.

Anschließend kann der USB-Stick wieder vom Rechner entfernt werden.

Und das soll funktionieren?

Getestet wurde diese Konfiguration des USB-Sticks bisher auf:

• Windows XP SP 2
• Windows Vista Ultimate 64bit

FAQ

• Truecrypt startet auf bestimmten Rechnern nicht!
  Um Truecrypt verwenden zu können, muss man Administrator-Rechte haben. Sollte das nicht der Fall sein, dann muss Truecrypt durch einen Administrator installiert werden - anschließend können auch “Nicht-Administratoren” die Funktionalität nutzen.

Hoffe das hilft ein bisschen, die (Daten)Welt sicherer zu machen!

Sollte ich etwas vergessen haben oder unklar sein, einfach melden.

using System.Runtime.Serialization.Formatters.Binary;
 
class ObjectHelper
{
   public static object DeepClone(object Object2Clone)
   {
      BinaryFormatter lSerializer = new BinaryFormatter();
      System.IO.MemoryStream lMS = new System.IO.MemoryStream();
      lSerializer.Serialize(lMS,Object2Clone);
      lMS.Position=0;
      return lSerializer.Deserialize(lMS);
   }
}

Eine andere Möglichkeit wäre das Implementieren des ICloneable-Interfaces. Diese Variante ist jedoch mit deutlich mehr Aufwand verbunden und müßte für jede Klasse separat implementiert werden.

The code is simple an easy customizable.

using System;
using System.Reflection;
using System.Collections;
using System.Management;

namespace BizTalk.Tools.Reset
{
   class CProgram
   {
      [STAThread]
      static int Main(string[ ] args)
      {
         CReset.ResetAction lAction=0;

         if(args.Length!=1) { Usage(); return 0; }
         else if(args[0].ToLower().CompareTo(”start”)==0)
         { lAction=CReset.ResetAction.Start; }
         else if(args[0].ToLower().CompareTo(”stop”)==0)
         { lAction=CReset.ResetAction.Stop; }
         else if(args[0].ToLower().CompareTo(”restart”)==0)
         { lAction=CReset.ResetAction.Restart; }
         else { Usage(); return 0; }

         CReset lReset = new CReset();
         lReset.LogInfo += new CReset.LogInfoHandler(WriteInfo);

         try
         {
            lReset.Reset(string.Empty,lAction);
         }
         catch(Exception ex)
         {
            Console.WriteLine(”\n!!! Error occured: {0} !!!\n”,ex.Message );
            return 1;
         }
         return 0;
      }

      static void Usage()
      {
         Console.WriteLine(
            “\nTool to Stop/Start/Restart BizTalk-HostInstances.”);
         Console.WriteLine(
            “\nusage:\n ” + Assembly.GetExecutingAssembly().GetName().Name +
            ” [START|STOP|RESTART]“);
      }

      static void WriteInfo(string Info)
      {
         Console.WriteLine(Info);
      }
   }

   class CReset
   {
      public delegate void LogInfoHandler(string Info);
      public event LogInfoHandler LogInfo;

      [Flags]
         public enum ResetAction { Start=1, Stop=2, Restart=Start|Stop }
      private enum HostState
      { Stopped=1, StartPending=2, StopPending=3,    Running=4, Unknown=8 }

      public CReset()    {}

      public void Reset(string Server, ResetAction Action )
      {
         OnLogInfo(”Action:” + Action.ToString());
         ManagementScope lMScope;
         if(Server.Length>0)
         {
            lMScope = new ManagementScope(
               “\\\\” + Server +    “\\root\\MicrosoftBizTalkServer”);
         }
         else
         {
            lMScope = new ManagementScope(@”root\MicrosoftBizTalkServer”);
         }

         // HostTypes: In-proc=1 / Isolated=2
         ObjectQuery lQuery = new ObjectQuery(
            “select * from MSBTS_HostInstance where HostType=1″);

         using(ManagementObjectSearcher
            lSearcher = new ManagementObjectSearcher(lMScope,lQuery))
         {
            ManagementObjectCollection ReturnCollection = lSearcher.Get();
            foreach (ManagementObject lHostInstance in ReturnCollection)
            {
               // States: Stopped=1 / Start pending=2 /
               // Stop pending=3 / Running=4 / Unknown=8
               HostState State=HostState.Unknown;
               switch ((uint)lHostInstance["ServiceState"])
               {
                  case 1: State=HostState.Stopped; break;
                  case 2:    State=HostState.StartPending; break;
                  case 3: State=HostState.StopPending; break;
                  case 4: State=HostState.Running;
                     break; default: State=HostState.Unknown; break;
               }

               OnLogInfo(
                  String.Format(”HostInstance <{0}> on Server <{1}> -> {2}”,
                  lHostInstance.Properties["HostName"].Value,
                  lHostInstance.Properties["RunningServer"].Value,State));

               if(State!=HostState.Stopped &&
                  (Action & ResetAction.Stop)!=0)
               {
                  OnLogInfo(” Stopping…”);
                  lHostInstance.InvokeMethod(”Stop”,null);
                  OnLogInfo(” Stopped.”);
                  State=HostState.Stopped;
               }

               if(State!=HostState.Running &&
                  (Action & ResetAction.Start)!=0)
               {
                  OnLogInfo(” Starting…”);
                  lHostInstance.InvokeMethod(”Start”,null);
                  OnLogInfo(” Started.”);
               }
            }
         }
      }

      private void OnLogInfo(string Info)
      {
         if(LogInfo!=null)
            LogInfo(Info);
      }
   }
}

Option Explicit

Const SState_ReadyToRun = 1
Const SState_Active = 2
Const SState_SuspendedResumable = 4
Const SState_Dehydrated = 8
Const SState_Completed = 16
Const SState_SuspendedNotResumable = 32
Const SState_InBreakpoint = 64

EnumInstances

Sub EnumInstances()

   Dim objArgs: Set objArgs = WScript.Arguments
   Dim StdIn : Set StdIn = WScript.StdIn

   on error resume next

   Dim strOrchName : strOrchName = ""
   Dim strChangeStatus : strChangeStatus = "no"

   If Err <> 0 Then
      PrintWMIErrorThenExit Err.Description, Err.Number, false
   End If

   If (objArgs.Count > 0) Then
      strOrchName = ” where AssemblyName like “”" & objArgs(0) & “”"”
   If (objArgs.Count > 1) Then
      strChangeStatus = objArgs(1)
   End If
   Else
      PrintUsage()
      wscript.quit 1
   End If

   Dim strQuery, InstSet, Inst

   strQuery = “SELECT * FROM MSBTS_ServiceInstance ” & strOrchName
   set InstSet = GetObject(”Winmgmts:!root\MicrosoftBizTalkServer”).ExecQuery(strQuery)
   wscript.echo strQuery
   wscript.echo
   wscript.echo “…Please wait, this could take a while…”

   ‘Check for error condition before continuing.
   If Err <> 0 Then
      PrintWMIErrorThenExit Err.Description, Err.Number, false
   End If

   ‘Report on number of instances…
   Dim strCommand
   wscript.echo InstSet.Count & ” Instances were found.”
   wscript.echo
   If InstSet.Count > 0 Then
      For Each Inst In InstSet
         wscript.echo ” Instance-ID: ” & Inst.InstanceID
         wscript.echo ”    ServiceName: ” & Inst.ServiceName
         wscript.echo ”    Assembly: ” & Inst.AssemblyName & ” (” & Inst.AssemblyVersion & “)”
         wscript.echo ”    Status: ” & PrintStatus(Inst.ServiceStatus)

      If(strChangeStatus = “yes”) Then
         wscript.echo
         wscript.echo “Action: [r]esume | [s]uspend | [t]erminate”
         strCommand = StdIn.ReadLine
         If ( strCommand = “r” ) Then
            Inst.Resume
         Elseif ( strCommand = “t” ) Then
            Inst.Terminate
         Elseif ( strCommand = “s” ) Then
            Inst.Suspend
         Else
            wscript.echo “!!!Nothing done!!!”
         End If
         If Err <> 0 Then
            PrintWMIErrorThenExit Err.Description, Err.Number, true
         End If
      End If
      wscript.echo
      next
   End If

End Sub

Function PrintStatus(ServiceStatus)
   Select case ServiceStatus
   Case SState_ReadyToRun
         PrintStatus = “ReadyToRun”
   Case SState_Active
      PrintStatus = “Active”
   Case SState_SuspendedResumable
      PrintStatus = “SuspendedResumable”
   Case SState_Dehydrated
      PrintStatus = “Dehydrated”
   Case SState_Completed
      PrintStatus = “Completed”
   Case SState_SuspendedNotResumable
      PrintStatus = “SuspendedNotResumable”
   Case SState_InBreakpoint
      PrintStatus = “InBreakpoint”
   Case Else
      PrintStatus = “Unknown”
   End Select
End Function

Sub PrintWMIErrorThenExit(strErrDesc, ErrNum, ContinueOnError)
   On Error Resume Next
   Dim objWMIError : Set objWMIError =   CreateObject(”WbemScripting.SwbemLastError”)

   If ( TypeName(objWMIError) = “Empty” ) Then
      wscript.echo strErrDesc & ” (HRESULT: ” & Hex(ErrNum) & “).”
   Else
      wscript.echo objWMIError.Description & “(HRESULT: ” & Hex(ErrNum) & “).”
      Set objWMIError = nothing
   End If

   If(ContinueOnError=false) Then
      wscript.quit 0
   End If
End Sub

Sub PrintUsage()
   WScript.Echo “Usage:” + Chr(10) + Chr(10) + _
   “cscript ManageActiveOrchestrations.vbs  [yes|no]” + _
   Chr(10) + Chr(10) + ” Where: ” + Chr(10) + _
   ”   = The Name of the Assembly.” + Chr(10) + _
   ”  [yes|no] = Show dialog to terminate/suspend/resume instances.” + Chr(10)
End Sub

Therefore I have written a small command-line tool to overcome this issue.

You can

• list the references of an application
• list all applications referencing a certain application
• delete references
• and add references to applications

using this tool.

using System;
using System.Collections.Generic;
using System.Data.SqlClient;
using System.Management;
using System.Reflection;
using System.Text;

using ExplorerOM = Microsoft.BizTalk.ExplorerOM;

namespace ManageAppReferences
{
    class Program
    {
        static int Main(string\[] args)
        {
            string lApplication = string.Empty;
            string lRefApplication = string.Empty;
            CManageAppReferences.RefOperation lOperation =
               CManageAppReferences.RefOperation.Unknown;

            if(!ParseArguments(
                  args,
                  ref lApplication,
                  ref lRefApplication,
                  ref lOperation))
            {
                Usage(false);
                return 1;
            }

            try
            {
                Usage(true);
                CManageAppReferences lMAR = new CManageAppReferences(lApplication);
                lMAR.LogInfo += delegate(string Info) { Console.WriteLine(Info); };

                Console.WriteLine();

                switch(lOperation)
                {
                    case CManageAppReferences.RefOperation.List:
                        lMAR.List();
                        break;
                    case CManageAppReferences.RefOperation.ListBack:
                        lMAR.ListBack();
                        break;
                    case CManageAppReferences.RefOperation.Add:
                        lMAR.Add(lRefApplication);
                        break;
                    case CManageAppReferences.RefOperation.Remove:
                        lMAR.Remove(lRefApplication);
                        break;
                    default:
                        lMAR.List();
                        break;
                }
            }
            catch(Exception ex)
            {
                ConsoleColor oldColor = Console.ForegroundColor;
                Console.ForegroundColor = ConsoleColor.Red;
                Console.WriteLine(”Error: ” + ex.Message);
                Console.ForegroundColor = oldColor;
                Console.WriteLine(”\nCommand failed.”);
                return 1;
            }

            return 0;
        }

        static bool ParseArguments(
                     string\[] Arguments,
                     ref string Application,
                     ref string RefApplication,
                     ref CManageAppReferences.RefOperation Operation)

        {
            if (Arguments == null ||
                    Arguments.Length == 0 ||
                    Arguments[0].StartsWith(”/?”) ||
                    Arguments[0].StartsWith(”-help”))
                return false;

            Application = Arguments[0].Trim();

            if (Arguments.Length > 1)
            {
                int lColon = Arguments[1].IndexOf(”:”);
                string lAction =
                     (lColon > -1) ?
                     Arguments[1].Substring(0, lColon).ToLower() :
                     Arguments[1].ToLower();

                switch (lAction)
                {
                    case “listback”:
                        Operation = CManageAppReferences.RefOperation.ListBack;
                        break;
                    case “list”:
                        Operation = CManageAppReferences.RefOperation.List;
                        break;
                    case “add”:
                        Operation = CManageAppReferences.RefOperation.Add;
                        RefApplication =
                        (lColon > -1) ?
                        Arguments[1].Substring(lColon + 1) :
                        string.Empty;
                        break;
                    case “remove”:
                        Operation = CManageAppReferences.RefOperation.Remove;
                        RefApplication =
                        (lColon > -1) ?
                        Arguments[1].Substring(lColon + 1) :
                        string.Empty;
                        break;
                    default:
                        Operation = CManageAppReferences.RefOperation.List;
                        break;
                }

                if(string.IsNullOrEmpty(RefApplication) &&
                    (Operation == CManageAppReferences.RefOperation.Add ||
                    Operation == CManageAppReferences.RefOperation.Remove)
                    )
                    return false;
            }

            return true;
        }

        static void Usage(bool Small)
        {
            Console.WriteLine(”\nMarcel Tiews - www.tiews.info”);
            Console.WriteLine(Assembly.GetExecutingAssembly().GetName().Name +
            “: Tool to Manage references between BTS-Applications.”);

            if (Small)
                return;
            Console.WriteLine(”\nUsage:\n   ” +
            Assembly.GetExecutingAssembly().GetName().Name +
            ”  “);

            Console.WriteLine(”\n   Commands:”);
            Console.WriteLine(
               ”      List                  - lists referenced applications (default)”);
            Console.WriteLine(
               ”      ListBack              - lists back referenced applications”);
            Console.WriteLine(
               ”      Add:     - adds reference to this application”);
            Console.WriteLine(
               ”      Remove:  - removes reference to this application”);
            Console.WriteLine(”\n”);
        }

        public class CManageAppReferences
        {
            public enum RefOperation { Unknown, List, ListBack, Add, Remove }
            public delegate void LogInfoHandler(string Info);
            public event LogInfoHandler LogInfo;

            private ExplorerOM.Application _Application = null;
            private ExplorerOM.BtsCatalogExplorer _Explorer = null;
            private string _DBConnString = string.Empty;

            public CManageAppReferences(string ApplicationName)
            {
                SetConnectionStringFromWMI();
                _Explorer = new Microsoft.BizTalk.ExplorerOM.BtsCatalogExplorer();
                _Explorer.ConnectionString = _DBConnString;

                _Application = GetApplication(ApplicationName);
            }

            public bool List()
            {
                OnLogInfo(”References of ” + _Application.Name);

                foreach (ExplorerOM.Application lApp in _Application.References)
                {
                    OnLogInfo(”   ” + lApp.Name);
                }
                return true;
            }

            public bool ListBack()
            {
                OnLogInfo(”Back references of ” + _Application.Name);

                foreach (ExplorerOM.Application lApp in _Application.BackReferences)
                {
                    OnLogInfo(”   ” + lApp.Name);
                }
                return true;
            }

            public bool Add(string AddApplication)
            {
                OnLogInfo(”Add reference to ” + AddApplication);
                ExplorerOM.Application lAddApp = GetApplication(AddApplication);
                _Application.AddReference(lAddApp);
                _Explorer.SaveChanges();
                OnLogInfo(”Reference added”);
                return true;
            }

            public bool Remove(string RemoveApplication)
            {
                OnLogInfo(”Remove reference to ” + RemoveApplication);
                ExplorerOM.Application lRemApp = GetApplication(RemoveApplication);
                _Application.RemoveReference(lRemApp);
                _Explorer.SaveChanges();
                OnLogInfo(”Reference removed”);
                return true;
            }

            private ExplorerOM.Application GetApplication(string ApplicationName)
            {
                ExplorerOM.Application lApp = _Explorer.Applications[ApplicationName];
                if (lApp == null)
                    throw new ApplicationException(”Application \”" +
                        ApplicationName + “\” not found.”);
                return lApp;
            }

            private bool SetConnectionStringFromWMI()
            {
                string lServer = string.Empty;
                string lDatabase = string.Empty;
                bool lFound = false;

                using (ManagementObjectSearcher lMOSearcher =
                     new ManagementObjectSearcher())
                {
                    lMOSearcher.Scope =
                     new ManagementScope(@”root\MicrosoftBizTalkServer”);
                    lMOSearcher.Query =
                     new SelectQuery(”select * from MSBTS_GroupSetting”);

                    foreach (ManagementObject lMOGroupSetting in lMOSearcher.Get())
                    {
                        lServer = lMOGroupSetting["MgmtDbServerName"] as string;
                        lDatabase = lMOGroupSetting["MgmtDbName"] as string;
                        lFound = true;
                        break;
                    }
                }

                if (lFound)
                {
                    SqlConnectionStringBuilder lSB = new SqlConnectionStringBuilder();
                    lSB.DataSource = lServer;
                    lSB.InitialCatalog = lDatabase;
                    lSB.IntegratedSecurity = true;
                    _DBConnString = lSB.ToString();
                }

                return lFound;
            }

            private void OnLogInfo(string Info)
            {
                if (LogInfo != null)
                    LogInfo(Info);
            }
        }
    }
}