home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / an210x / netware.bas < prev   
Encoding:
BASIC Source File  |  1995-05-09  |  2.7 KB  |  57 lines
  1. Type ServerInfoType
  2.     serverName As String * 48
  3.     netwareVer As String * 1
  4.     netwareSubVer As String * 1
  5.     maxConnSupported As Long
  6.     connInUse As Long
  7.     maxVolsSupported As Integer
  8.     revisionLevel As String * 1
  9.     sftLevel As String * 1
  10.     ttsLevel As String * 1
  11.     peakConnsUsed As Long
  12.     accountingVer As String * 1
  13.     vapVer As String * 1
  14.     queueingVer As String * 1
  15.     printServVer As String * 1
  16.     virtualConsoleVer As String * 1
  17.     securityRestrictLevel As String * 1
  18.     internetBridgeSupp As String * 1
  19. End Type
  20.  
  21. ' Bindery object type definitions
  22. Global Const OT_WILD = -1               ' Matches any type
  23. Global Const OT_UNKNOWN = 0             ' Unknown object type
  24. Global Const OT_USER = 1                ' The object is a "user"
  25. Global Const OT_USER_GROUP = 2          ' A group of users
  26. Global Const OT_PRINT_QUEUE = 3         ' Services print queues
  27. Global Const OT_FILE_SERVER = 4         ' The object serves files
  28. Global Const OT_JOB_SERVER = 5
  29. Global Const OT_GATEWAY = 6
  30. Global Const OT_PRINT_SERVER = 7
  31. Global Const OT_ARCHIVE_QUEUE = 8
  32. Global Const OT_ARCHIVE_SERVER = 9      ' Services backup jobs
  33. Global Const OT_JOB_QUEUE = 10
  34. Global Const OT_ADMINISTRATION = 11
  35. Global Const OT_REMOTE_BRIDGE_SERVER = 38
  36.  
  37. Global Const MAX_CONNS = 1
  38.  
  39. 'NetWare DLL calls
  40. Declare Function GetDefaultConnectionID Lib "nwwrkstn.dll" () As Long
  41. Declare Sub GetFileServerName Lib "nwserver.dll" (ByVal Conn%, ByVal serverName$)
  42. Declare Function GetDLLVersion Lib "NWCore.DLL" (ByVal DLLName$, MajorVer%, MinorVer%, RevLevel%, BetaLevel%) As Integer
  43. Declare Function GetConnectionID Lib "NWWrkstn.DLL" (ByVal FileServerName$, ConnectionID%) As Integer
  44. Declare Function GetPrimaryConnectionID Lib "NWWrkstn.DLL" () As Integer
  45. Declare Sub SetPreferredConnectionID Lib "NWWrkstn.DLL" (ByVal ConnectID%)
  46. Declare Function GetConnectionNumber Lib "NWConn.DLL" () As Long
  47. Declare Function GetConnectionInformation Lib "NWConn.DLL" (ByVal ConnectNo&, ByVal ObjectName$, ObjectType%, ObjectID&, ByVal LoginTime$) As Integer
  48. Declare Function GetServerInformation Lib "NWServer.DLL" (ByVal structSize%, serverInfo As ServerInfoType) As Integer
  49. Declare Function GetObjectConnectionNumbers Lib "NWConn.DLL" (oName$, ByVal oType%, numConns&, connList As Any, ByVal maxConns&) As Integer
  50. Declare Function SendBroadcastMessage Lib "NWMsg.DLL" (msg$, connList As Any, resultList$, ByVal numConns%) As Integer
  51.  
  52. Declare Function ScanBinderyObject Lib "NWBind.DLL" (ByVal SearchObjName$, ByVal SearchObjectType%, ObjectID&, ByVal ObjectName$, ObjectType%, HasProperties%, ObjectFlag%, ObjectSec%) As Integer
  53.  
  54. Global connList(5) As Long
  55. Global resultList As String * 5
  56.  
  57.