Histórico da Página

user function teste()
  Local aSlots := {}
  Local aObjs := {}
  Local nI := 0
  Local cPass := ""
  
  if HSMInitialize() <= 0
    conout( "HSM not initialized" )
    return
  endif
  
  aSlots := HSMSlotList()
  
  cPass := "1234"
  
  for nI := 1 to Len( aSlots )
    if aSlots[nI][4] == .T.
      ASize( aObjs, 0 )
      aObjs := HSMObjList( aSlots[nI][1], cPass )
      varinfo( "aObjs", aObjs )
    endif
  next nI
return