home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / netz / netapi / nwmisc.pa1 < prev    next >
Encoding:
Text File  |  1994-01-14  |  6.4 KB  |  151 lines
  1. {#Z+}
  2. (*(10U&l12D(s4099T&k2S*)
  3. {***************************************************************************}
  4. {** Program : NWMISC                                                      **}
  5. {***************************************************************************}
  6. {** Version : 1.4             ** Started : 11/11/91  ** Ended :   /  /    **}
  7. {***************************************************************************}
  8. {******************************** Description ******************************}
  9. {***************************************************************************}
  10. {** OOP library for Netware API                                           **}
  11. {**                                                                       **}
  12. {** This unit forms the second level object : NWMISC                      **}
  13. {** This object is a descandent of          : NETWARE                     **}
  14. {**                                                                       **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {***************************************************************************}
  19. {******************************** Information ******************************}
  20. {***************************************************************************}
  21. {** Misc functions                                                        **}
  22. {**                                                                       **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {** This code is (c) 1991 - 1994 Antonio Covelli. ALL RIGHTS RESERVED.    **}
  26. {** Portions (c) Novell Inc,                                              **}
  27. {**                                                                       **}
  28. {**                                                                       **}
  29. {***************************************************************************}
  30.  
  31. {$I NETWARE.INC}
  32. {#Z-}
  33.  
  34. UNIT NWMISC;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   nwvar,
  41.   netware,
  42.   nwbindry,
  43.   nwconn,
  44.   nwfsyst,
  45.   nwwrkstn,
  46.   objects;
  47.  
  48. TYPE
  49.  
  50.   TTime      = (AMPM, H24);
  51.   TAcctModes = (ReadR, WriteR);
  52.   TLDateTime = RECORD
  53.  
  54.                     Year,
  55.                     Mth,
  56.                     Day,
  57.                     Hour,
  58.                     Min,
  59.                     Sec  : WORD;
  60.  
  61.                   END;
  62.  
  63.   PMiscFuncOBJ = ^MiscFuncOBJ;
  64.   MiscFuncOBJ  = OBJECT (NetwareOBJ)
  65.  
  66.     CONSTRUCTOR Init (iDynamicAllocation : boolean);
  67.  
  68.     FUNCTION    AccountRestrictions           (ObjectName : TObjectName; ObjectType : OT_BinderyType;
  69.                                                VAR AcctRest : TAccountRestrictions; Mode : TAcctModes) : WORD;
  70.  
  71.     FUNCTION    AutoLogin                     (ObjectName : TObjectName; ObjectType : OT_BinderyType;
  72.                                                Password : TPassword; ServerName : TObjectName;
  73.                                                VAR SlotNumber : WORD; VAR LoggedInName : TObjectName;
  74.                                                ForceLogin : BOOLEAN) : WORD;
  75.  
  76.     FUNCTION    DeleteDriveMapping            (Drive : CHAR) : WORD;
  77.  
  78. {*} FUNCTION    ExpandNetwareDateAndTime      (DateTimeInfo : TByte7Array; TimeType : TTime) : STRING;
  79. {NOT YET IMPLEMENTED}
  80. {*} FUNCTION    ExpandNetwareFileDate         (DateInfo : LONGINT) : STRING;
  81. {NOT YET IMPLEMENTED}
  82.  
  83.     FUNCTION    ExpandNetwareFileTime         (TimeInfo : LONGINT) : STRING;
  84.  
  85.     FUNCTION    ExpandNetwareLoginDateAndTime (DateInfo : TByte6Array) : STRING;
  86.  
  87.     FUNCTION    FileServerExists              (ServerName : TObjectName) : BOOLEAN;
  88.  
  89.     PROCEDURE   GetAllFileServersOnInternet;
  90.  
  91.     PROCEDURE   GetAllObjects                 (SearchName : TObjectName; ObjectType : OT_BinderyType;
  92.                                                VAR ObjectList : PStringCollection; VAR NoOfObjects : WORD);
  93.  
  94.     PROCEDURE   GetAllShellTables;
  95.  
  96.     PROCEDURE   GetDefaultFileServerAddress   (VAR ServerAddress : TServerAddress);
  97.  
  98.     FUNCTION    GetDefaultFileServerName : TObjectName;
  99.  
  100.     FUNCTION    GetObjectFullName             (ServerName : TObjectName; VAR ObjectFullName : TFullName;
  101.                                                VAR ObjectType : OT_BinderyType) : WORD;
  102.  
  103.     FUNCTION    GetObjectNameID               (ServerName : TObjectName; VAR ObjectName : TObjectName;
  104.                                                VAR ObjectType : OT_BinderyType;
  105.                                                VAR ObjectID : OT_BinderyID) : WORD;
  106.  
  107.     FUNCTION    GetPrintQueueDirectoryID      (ServerName, PrintQueueName : TObjectName;
  108.                                                PrintQueueID : OT_BinderyID;
  109.                                                VAR DirectoryPath : TPathName;
  110.                                                VAR QueueID : OT_BinderyID) : WORD;
  111.  
  112.     FUNCTION    GetStationNumber              (ServerName : TObjectName) : WORD;
  113.  
  114.     PROCEDURE   LogoutAndDetachFromFileServer (ServerName : TObjectName; ConnectionID : WORD);
  115.  
  116.     FUNCTION    MakeSupervisor                (ObjectName : TObjectName; ObjectType : OT_BinderyType) : WORD;
  117.  
  118.     FUNCTION    MiscMapDrive                  (Drive : CHAR; PathName : TPathName; ServerName : TObjectName;
  119.                                                VAR DirectoryHandle : BYTE; DriveType : BYTE; MapRoot : boolean) : WORD;
  120.  
  121.     FUNCTION    NetWareLoaded                 (VAR LoggedIn : BOOLEAN) : BOOLEAN;
  122.  
  123.     FUNCTION    RevokeSupervisor              (ObjectName : TObjectName; ObjectType : OT_BinderyType) : WORD;
  124.  
  125.     FUNCTION    SearchAllObjects              (SearchName : TObjectName; ObjectList : PStringCollection) : word;
  126.  
  127.     procedure   SetNWCaptureFlags             (VAR CaptureFlags : Capture_Flags);
  128.  
  129.     FUNCTION    Supervisor : BOOLEAN;
  130.  
  131.     FUNCTION    SupervisorEquivalent : BOOLEAN;
  132.  
  133.     FUNCTION    UserMemberOfGroup             (ObjectName, MemberName : TObjectName) : WORD;
  134.  
  135.     DESTRUCTOR  Done; VIRTUAL;
  136.  
  137.     PRIVATE
  138.  
  139.       nwMiscBindery     : BinderyOBJ;
  140.       nwMiscConnection  : ConnectionOBJ;
  141.       nwMiscFileSystem  : FileSystemOBJ;
  142.       nwMiscWorkStation : WorkStationOBJ;
  143.  
  144.   END;
  145.  
  146. VAR
  147.  
  148.   FileServersOnInternet     : PStringCollection;
  149.   NoOfFileServersOnInternet : WORD;
  150.  
  151.