Príklad 23 - Práca s triedou _PinBoard

Nasledujúce príklady popisujú prácu s triedou _PinBoard. Použitá syntax zodpovedá prostrediu Windows Script.

Príklad odloží odkaz na inštanciu OLE objektu.

set mG3=WScript.CreateObject("AbraOLE.Application")
  
  'Agenda faktúr 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)

Príklad vyzdvihne odkaz na inštanciu OLE objektu.

set mPinB = WScript.CreateObject("AbraOLE.NxPinBoard")
  
  'ID je odovzdaný ako argument skriptu
  mPinID = WScript.Arguments.Item(0)
  set mG3 = mPinB.UnpinObject(mPinID)
  
  'Agenda faktúr vydaných
  set mAgenda = mG3.GetAgenda("{742550AC-D307-11D2-9915-00E0ED0111A9}")
  mAgenda.Show("QueryAll")