Příklad 23 - Práce s třídou _PinBoard

Následující příklady popisují práci s třídou _PinBoard. Použitá syntaxe odpovídá prostředí Windows Script.

Příklad odloží odkaz na instanci OLE objektu.

set mG3=WScript.CreateObject("AbraOLE.Application")
  
  'Agenda faktur vydaných
  set mAgenda = mG3.GetAgenda("{742550AC-D307-11D2-9915-00E0ED0111A9}")
  mAgenda.Show("QueryAll")
  set mPinB = WScript.CreateObject("AbraOLE.NxPinBoard")
  mPinID = mPinB.PinObject(mG3)
  WScript.Echo("g3 pinned - " + mPinID)

Příklad vyzvedne odkaz na instanci OLE objektu.

set mPinB = WScript.CreateObject("AbraOLE.NxPinBoard")
  
  'ID je předán jako argument skriptu
  mPinID = WScript.Arguments.Item(0)
  set mG3 = mPinB.UnpinObject(mPinID)
  
  'Agenda faktur vydaných
  set mAgenda = mG3.GetAgenda("{742550AC-D307-11D2-9915-00E0ED0111A9}")
  mAgenda.Show("QueryAll")