home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / ni_vb / nwacct.bas next >
BASIC Source File  |  1993-05-26  |  1KB  |  25 lines
  1. 'NWACCT.BAS  NetWare Accounting Services Interface for Visual Basic For Windows
  2. 'Version 1.0
  3. 'Novell Systems Research Department, Novell, Inc.
  4. 'Copyright (c) 1993, Novell, Inc.
  5. 'This interface is not supported through Novell's regular
  6. 'support channels.  See README.TXT for more information.
  7.  
  8. Global Const CHARGE_RECORD = 1
  9. Global Const NOTE_RECORD = 2
  10.  
  11. Global Const CONNECT_TIME_CHARGE_NOTE = 1
  12. Global Const DISK_STORAGE_CHARGE_NOTE = 2
  13.  
  14. Global Const LOGIN_NOTE = 3
  15. Global Const LOGOUT_NOTE = 4
  16. Global Const ACCOUNT_LOCKED_NOTE = 5
  17. Global Const SERVER_TIME_MODIFIED_NOTE = 6
  18.  
  19. Declare Function AccountingInstalled Lib "NWNETAPI.DLL" (ByVal connectionID%) As Integer
  20. Declare Function GetAccountStatus Lib "NWNETAPI.DLL" (ByVal binderyObjectType%, ByVal binderyObjectName$, balance&, limit&, holds&) As Integer
  21. Declare Function SubmitAccountCharge Lib "NWNETAPI.DLL" (ByVal binderyObjectType%, ByVal binderyObjectName$, ByVal serviceType%, ByVal chargeAmount&, ByVal cancelHoldAmount&, ByVal commentType%, ByVal comment$) As Integer
  22. Declare Function SubmitAccountHold Lib "NWNETAPI.DLL" (ByVal binderyObjectType%, ByVal binderyObjectName$, ByVal reserveAmount&) As Integer
  23. Declare Function SubmitAccountNote Lib "NWNETAPI.DLL" (ByVal binderyObjectType%, ByVal binderyObjectName$, ByVal serviceType%, ByVal commentType%, ByVal commentLen%, ByVal comment$) As Integer
  24.  
  25.