model

Beim Auswählen einer Schaltfläche soll ein helpLine Personenobjekt erstellt und der Dialog geöffnet werden:

Dim hlcontact

Set hlcontact = model.CreateObject("Contact")

model.Open hlcontact

Workflowname: Name der Workflowdefinition

Workflow-Parameter: Parameter des Workflows als Objekte; müssen über die Methode „CreateWorkflowParameters“ ermittelt werden.

Die Parameter des Workflows „IncidentManagement“ sollen ermittelt werden und mit diesen Parametern soll derselbe Workflow gestartet werden:

Dim parameters

Set parameters = model.CreateWorkflowParameters("IncidentManagement")

Die Parameter des Workflows „IncidentManagement“ sollen ermittelt werden und mit diesen Parametern soll derselbe Workflow gestartet werden:

Dim parameters

Set parameters = model.CreateWorkflowParameters("IncidentManagement")

Workflowname: Name der Workflowdefinition

Workflow-Parameter: Parameter des Workflows als Objekte; müssen über die Methode „CreateWorkflowParameters“ ermittelt werden

Die Parameter des Workflows „IncidentManagement“ sollen ermittelt werden und mit diesen Parametern soll derselbe Workflow gestartet werden, ohne dass der Vorgangsdialog geöffnet wird:

Dim parameters

Set parameters = model.CreateWorkflowParameters("IncidentManagement")

Ganze Zahl

Ist kein Anfrager definiert, ist der Rückgabewert „-1“.

Die Anzahl der offenen Vorgänge des Anfragers soll in einem Nachrichtenfenster ausgegegeben werden:

Dim callercases

Callercases = model.GetActiveCasesByCaller

Ganze Zahl

Ist kein Anfrager definiert, ist der Rückgabewert „-1“.

Die Anzahl der offenen Vorgänge der als Anfrager gesetzten Organisationseinheit soll in einem Nachrichtenfenster ausgegegeben werden:

Dim callerorgunitcases

Callercases = model.GetActiveCasesByOrgUnit

MsgBox callerorgunitcases

Ganze Zahl

Ist kein Anfrager definiert, ist der Rückgabewert „-1“.

Die Anzahl der offenen Vorgänge des als CI eingetragenen Produkts soll in einem Nachrichtenfenster ausgegeben werden:

Dim productcases

Callercases = model.GetActiveCasesByProduct

MsgBox productcases

Der Name des angemeldeten Agenten soll in einem Nachrichtenfenster ausgegegeben werden:

Dim person

Set person = model.GetPersonForAgent(hlsession.GetAgentId)

MsgBox person.GetValue("PersonGeneral.Name", 0,0,0,0)

objectDefinitions: Definitionsnamen der Objektdefinitionen, in denen gesucht werden soll

searchCondition: Suchbedingung als Zeichenkette

objectDefinitions: Definitionsnamen der Objektdefinitionen, in denen gesucht werden soll

attributeKeys: Pfade der Attribute, deren Werte zurückgegeben werden sollen

sortColumn: Nummer der Spalte, nach der die Ergebnisse sortiert werden sollen. Die Spaltennummern sind 0-basiert, d. h. die erste Spalte hat die Nummer 0, die zweite die Nummer 1 usw.

maximumNumberOfRows: maximale Anzahl an Ergebnissen, die zurückgegeben werden sollen

Werte der angegebenen Attribute (attributeKeys) der gefundenen Objekte als Array

Die ersten beiden Spalten des Rückgabewerts sind immer Objekt-ID und Definitions-ID des Objekt, erst danach folgen die gesuchten Attributwerte. Im Parameter „sortColumn“ werden die beiden IDs jedoch nicht berücksichtigt.

Bei der Eigabe der Inventarnummer eines Computers in eine TextBox soll geprüft werden, ob ein Computer mit dieser Inventarnummer bereits im System existiert. Ist dies der Fall, soll eine entsprechende Meldung ausgegeben werden. Dazu wird für das Event “OnDataChange” der TextBox folgendes Skript eingegeben:

Dim objDefs(0)
Dim attributes(0)
Dim searchResult
Rem Dim searchResultCount

objDefs(0) = "Computer"
attributes(0) = "AssetGeneral.Name"
Rem If you don't need the actual items, use GetSearchItemCount instead (better performance)
Rem searchResultCount = model.GetSearchItemCount(objDefs, "AssetGeneral.InventoryNumber = """ & TextBoxInventoryNumber.Text & """")

searchResult = model.GetSearchItems(objDefs, "AssetGeneral.InventoryNumber = """ & TextBoxInventoryNumber.Text & """", attributes, 0, 10)

If UBound(searchResult) >= 0 Then
   LabelBoxInventoryNumberError.Text = "Inventary number already exists. " & vbCrLf & "(" & searchResult(0)(2) & ")"
else
   LabelBoxInventoryNumberError.Text = ""
End If

attributeKey: kompletter Name des Baumattributs, z. B. „Keywords.Keyword“

valueID: Value-ID des Baumattributs; kann über „hlobj.getvalue("Keywords.Keyword", 0,0,0,1)“ ermittelt werden.

Der Attributpfad des gesetzten Schlagworts soll in einem Nachrichtenfenster ausgegeben werden:

MsgBox model.GetTreePath("Keywords.Keyword", hlobj.getvalue("Keywords.Keyword", 0,0,0,1))

Boolean:

„true“ = Bei dem helpLine Objekt handelt es sich um einen Agenten.

„false“ = Bei dem helpLine Objekt handelt es sich nicht um einen Agenten.

Es soll geprüft werden, ob es sich bei dem helpLine Objekt, für das der Dialog erstellt wurde, um einen Agenten handelt:

If model.IsAgent(hlobj) = False then

MsgBox "Kein Agent"

End if

Boolean:

„true“ = Der Timer läuft.

„false“ = Der Time läuft nicht.

Es soll geprüft werden, ob für die erste SU des Vorgangs der Timer gestartet wurde:

If model.IsTimerEnabled(1) = True then

MsgBox "Timer läuft."

End if

defId: Definitions-ID des Objekts, das geladen werden soll, als ganze Zahl

objId: Objekt-ID des Objekts, das geladen werden soll, als ganze Zahl

Es soll geprüft werden, ob für die erste SU des Vorgangs der Timer gestartet wurde:

If model.IsTimerEnabled(1) = True then

MsgBox "Timer läuft."

End if

Die Anzahl der offenen Vorgänge des Anfragers soll in einem Nachrichtenfenster ausgegeben werden:

Dim callercases

Callercases = model.GetActiveCasesByCaller

MsgBox callercases

Durch die Methode „CreateObject“ soll ein neues Personenobjekt erstellt und dessen Dialog direkt geöffnet werden:

Dim hlcontact

Set hlcontact = model.CreateObject(Contact)

model.Open hlcontact

Boolean1 (Schließen des Dialogs):

„true“ = Der Dialog wird geschlossen.

„false“ = Der Dialog wird nicht geschlossen.

Boolean2 (Freigeben des Dialogs):

„true“ = Der Vorgang wird freigegeben.

„false“ = Der Vorgang wird nicht freigegeben.

Basisobjekttyp: Basisobjekttyp des Objekts, das als Anfrager gesetzt werden soll, als Zeichenkette. Verfügbare Werte sind die Werte der Eigenschaft „SymbolName“.

helpLine Objekt: helpLine Objekt, das als Anfrager gesetzt werden soll, als Objekt

Der Fokus soll via Skript auf das Beschreibungsfeld im Incident Record gesetzt werden:

model.SetFocusToControl "CaseDescription.Description.RAWTEXT"

Die Übersetzung der angegebenen Ressource soll in einem Nachrichtenfenster ausgegeben werden:

model.Translate("#ERR_ASCFLD_001")

helpLine object: Das Personenobjekt, für das die Übersetzung zurückgegeben werden soll. Wenn nichts übergeben wird, für die Person keine Sprache definiert ist oder die Sprache nicht ermittelt werden kann, dann wird die helpLine Standardsprache verwendet (siehe Processes Designer - in Startkonfigurationen ist die Standardsprache English).

resourceKey: Übersetzungsschlüssel der Ressource; siehe Processes Designer: „Extras“ >> „Ressourcen…“ >> Registerkarte „Allgemeines“ >> Spalte „Übersetzungsschlüssel“

Übersetze den Bodytext der E-Mail in die Sprache des Anfragers.

model.Translate(hlCaller, "DefaultMailBody")