Beschreibung:

Es wird per Prozess-ID auf eine laufende combit cRM-Instanz zugegriffen.

VBScript:

Dim nProcessID : nProcessID = 3984 ' Dieser Wert ist für jede combit CRM-Instanz verschieden

Dim ocRM : Set ocRM = GetObject(, "cRM.Application")

Set ocRM = ocRM.GetcRMByProcessID(nProcessID)

If (Not ocRM Is Nothing) Then

    Dim oProject : Set oProject = ocRM.Login("", "", "")

Call ocRM.DialogMessageBox("Das aktuell geladene Projekt hat folgenden Namen: " & oProject.Name, "cRM.GetcRMByProcessID", vbOkOnly)

    Set oProject = Nothing

End If

Set ocRM = Nothing