home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / NW41BAS.ZIP / NW4XBIND.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-04-15  |  6.7 KB  |  92 lines
  1. 'NW4XBIND.BAS - Visual Basic Interface File for Netware 4.X SDK
  2. '   Contains Function defination and type declarations for Bindery Access
  3. 'Created by Joseph A. DiVito - Seton Hall University
  4. 'Requirments - NONE
  5. 'Corresponds to NWBINDRY.H in the Netware SDK
  6.  
  7. 'Bindery object types
  8. Global Const OT_WILD = -1                   ' Matches any type
  9. Global Const OT_UNKNOWN = 0                 ' Unknown object type
  10. Global Const OT_USER = &H100                ' The object is a "user"
  11. Global Const OT_USER_GROUP = &H200          ' A group of users
  12. Global Const OT_PRINT_QUEUE = &H300         ' Services print queues
  13. Global Const OT_FILE_SERVER = &H400     ' The object serves files
  14. Global Const OT_JOB_SERVER = &H500
  15. Global Const OT_GATEWAY = &H600
  16. Global Const OT_PRINT_SERVER = &H700
  17. Global Const OT_ARCHIVE_QUEUE = &H800
  18. Global Const OT_ARCHIVE_SERVER = &H900      ' Services backup jobs
  19. Global Const OT_JOB_QUEUE = &HA00
  20. Global Const OT_ADMINISTRATION = &HB00
  21. Global Const OT_NAS_SNA_GATEWAY = &H2100
  22. Global Const OT_NACS = &H2300
  23. Global Const OT_REMOTE_BRIDGE_SERVER = &H2600
  24. Global Const OT_TCPIP_GATEWAY = &H2700
  25. Global Const OT_GATE = &H2900
  26. Global Const OT_TIME_SYNCHRONIZATION_SERVER = &H2D00
  27. Global Const OT_ARCHIVE_SRV = &H2E00
  28. Global Const OT_ADVERTISING_PRINT_SERVER = &H4700
  29. Global Const OT_BTRIEVE_VAP_NLM_5XX = &H4B00
  30. Global Const OT_SQL_VAP_NLM = &H4C00
  31. Global Const OT_XTREE_NETWORK = &H4D00
  32. Global Const OT_BTRIEVE_VAP_NLM_4XX = &H5000
  33. Global Const OT_PRINT_QUEUE_USER = &H5300
  34. Global Const OT_X25_GATEWAY = &H5800
  35. Global Const OT_WAN_COPY = &H7200
  36. Global Const OT_TES_NETWARE_VMS = &H7A00
  37. Global Const OT_NETWARE_ACCESS_SERVER = &H9800
  38. Global Const OT_PORTABLE_NETWARE = &H9E00
  39. Global Const OT_COMPAQ_IDA_STATUS_MONITOR = &HAC00
  40.  
  41. ' Bindery security definitions
  42. Global Const BS_ANY_READ = &H0       ' Readable by anyone
  43. Global Const BS_LOGGED_READ = &H1    ' Must be logged in to read
  44. Global Const BS_OBJECT_READ = &H2    ' Readable by same object or super
  45. Global Const BS_SUPER_READ = &H3     ' Readable by supervisor only
  46. Global Const BS_BINDERY_READ = &H4   ' Readable only by the bindery
  47. Global Const BS_ANY_WRITE = &H0      ' Writeable by anyone
  48. Global Const BS_LOGGED_WRITE = &H10  ' Must be logged in to write
  49. Global Const BS_OBJECT_WRITE = &H20  ' Writeable by same object or super
  50. Global Const BS_SUPER_WRITE = &H30   ' Writeable only by the supervisor
  51. Global Const BS_BINDERY_WRITE = &H40 ' Writeable by the bindery only
  52.  
  53. ' Attributes of objects and properties in the bindery
  54. Global Const BF_STATIC = &H0
  55. Global Const BF_DYNAMIC = &H1
  56. Global Const BF_ITEM = &H0
  57. Global Const BF_SET = &H2
  58.  
  59. Type Property_Value
  60.     PropertyValue As String * 127
  61.     'PropertyValue(32) As Long
  62. End Type
  63.  
  64. Declare Function NWAddObjectToSet Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal propertyName$, ByVal memberName$, ByVal memberType%) As Integer
  65. Declare Function NWChangeObjectPassword Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal oldPassword$, ByVal newPassword$) As Integer
  66. Declare Function NWChangeObjectSecurity Lib "NWCALLS.DLL" (ByVal CoOnnID%, ByVal objectName$, ByVal objectType%, ByVal newObjectSecurity%) As Integer
  67. Declare Function NWChangePropertySecurity Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal propertyName$, ByVal newPropertySecurity%) As Integer
  68. Declare Function NWCloseBindery Lib "NWCALLS.DLL" (ByVal ConnID%) As Integer
  69. Declare Function NWCreateObject Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal objectFlag%, ByVal objectSecurity%) As Integer
  70. Declare Function NWCreateProperty Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal propertyName$, ByVal propertyFlags%, ByVal propertySecurity%) As Integer
  71. Declare Function NWDeleteObject Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%) As Integer
  72. Declare Function NWDeleteObjectFromSet Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal propertyName$, ByVal memberName$, ByVal memberType%) As Integer
  73. Declare Function NWDeleteProperty Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal propertyName$) As Integer
  74. Declare Function NWGetBinderyAccessLevel Lib "NWCALLS.DLL" (ByVal ConnID%, securityAccessLevel%, objectID&) As Integer
  75. Declare Function NWGetObjectDiskSpaceLeft Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal binderyObjectID%, systemElapsedTime&, unusedDiskBlocks&, restrictionEnforced%) As Integer
  76. Declare Function NWGetObjectID Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, objectID&) As Integer
  77. Declare Function NWGetObjectName Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectID&, ByVal objectName$, objectType%) As Integer
  78. Declare Function NWIsObjectInSet Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal propertyName$, ByVal memberName$, ByVal memberType%) As Integer
  79. Declare Function NWOpenBindery Lib "NWCALLS.DLL" (ByVal ConnID%) As Integer
  80. 'propertyValue is a 128-byte array
  81. Declare Function NWReadPropertyValue Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal propertyName$, ByVal segmentNumber%, PropertyValue As Property_Value, moreSegments%, propertyFlags%) As Integer
  82. Declare Function NWRenameObject Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal newObjectName$, ByVal objectType%) As Integer
  83. Declare Function NWScanObject Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal searchObjectName$, ByVal searchObjectType%, objectID&, ByVal objectName$, objectType%, objectHasProperties%, objectFlag%, objectSecurity%) As Integer
  84. Declare Function NWScanObjectTrusteePaths Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectID&, ByVal volumeNumber%, sequenceNumber%, trusteeAccessMask%, ByVal trusteePathName$) As Integer
  85. Declare Function NWScanProperty Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal searchPropertyName$, sequenceNumber&, ByVal propertyName$, propertyFlags%, propertySecurity%, propertyHasValue%, moreProperties) As Integer
  86. Declare Function NWVerifyObjectPassword Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal password$) As Integer
  87. 'propertyValue is a 128-byte array
  88. Declare Function NWWritePropertyValue Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal propertyName$, ByVal segmentNumber%, PropertyValue As Property_Value, ByVal moreSegments%) As Integer
  89. Declare Function NWDisallowObjectPassword Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectName$, ByVal objectType%, ByVal disallowedPassword$) As Integer
  90. Declare Function NWGetObjectEffectiveRights Lib "NWCALLS.DLL" (ByVal ConnID%, ByVal objectID&, ByVal dirHandle%, ByVal path$, rightsMask%) As Integer
  91.  
  92.