|
|
|
| | | | | | | | |  |
| 
| Code source : unité LRJ_WinNetApi | |
| |
| | |
|
Description : contient des déclarations et l'importation dynamique d'un
certain nombre de fonctions de la Network Management API.
Importe les fonctions suivantes :
|
|
NetApiBufferAllocate
NetApiBufferFree
NetApiBufferReallocate
NetApiBufferSize
NetGetDCName
NetGroupEnum
NetLocalGroupAdd
NetLocalGroupAddMembers
NetLocalGroupDel
NetLocalGroupDelMembers
NetLocalGroupEnum
NetLocalGroupGetMembers
NetLocalGroupGetInfo
NetLocalGroupSetInfo
NetLocalGroupSetMembers
NetQueryDisplayInformation
NetShareAdd
NetShareCheck
NetShareDel
NetShareEnum
NetShareGetInfo
NetShareSetInfo
NetUseAdd
NetUseDel
NetUseEnum
NetUserAdd
NetUserChangePassword
NetUserDel
NetUserEnum
NetUserGetGroups
NetUserGetInfo
NetUserGetLocalGroups
NetUserModalsGet
NetUserModalsSet
NetUserSetGroups
NetUserSetInfo
|
Utilise les unités : Windows.
Version : 1.9 du 03.12.2009
Auteur : Laurent Hède
Copyright : LorenJo
Nombre de lignes : 2121
Réalisée sous : Delphi 6
Systèmes compatibles : NT4, 2000, XP, Vista, serveurs
Prix : 422.00 € H.T.
Déclarations publiques de l'unité :
unit LRJ_WinNetApi; // Network Management API
interface
uses
Windows;
type
NET_API_STATUS = DWORD;
function LRJ_TNetAPI_StringToNonNilOleStr(const AString: string): PWideChar;
// Buffer Api
function LRJ_NetApiBufferAllocate(const ByteCount: DWORD; var Buffer: pointer): Boolean;
function LRJ_NetApiBufferFree(const Buffer: pointer): Boolean;
function LRJ_NetApiBufferReallocate(const OldBuffer: pointer; const NewByteCount: DWORD; var NewBuffer : pointer): Boolean;
function LRJ_NetApiBufferSize(const Buffer : pointer): integer;
// NetGetDCName
function LRJ_NetGetDCName (const ServerName, DomaineName : string): string;
// net Share Api
function LRJ_NetShareEnum(const ServerName : string; const Level: DWORD; var BufPtr: Pointer; const PrefMaxLen: integer;
var EntriesRead : DWORD; var TotalEntries: DWORD; var Resume_handle: DWORD): NET_API_STATUS;
function LRJ_NetShareAdd(const ServerName: string; const Level: DWORD; const BufPtr: Pointer; var Parm_err : DWORD) : NET_API_STATUS;
function LRJ_NetShareDel(const NetName: string; const ServerName : string = '') : boolean;
function LRJ_NetShareCheck(const ServerName : string; const DirOrFolderPath: string; var AType: DWORD): NET_API_STATUS;
function LRJ_NetShareGetInfo(const ServerName : string; const NetName: string; const Level: DWORD; var bufptr: Pointer): NET_API_STATUS;
function LRJ_NetShareSetInfo(const ServerName : string; const NetName: string; const Level: DWORD; const bufptr: Pointer;
var parm_err : DWORD): NET_API_STATUS;
//Net Use Api
function LRJ_NetUseDel(const APath: string; const ForceCond: DWORD = 0): NET_API_STATUS;
function LRJ_NetUseEnum(const Level: DWORD; var BufPtr: pointer; const PreferedMaximumSize: integer; var EntriesRead: DWORD;
var TotalEntries: DWORD; var ResumeHandle: DWORD): NET_API_STATUS;
function LRJ_NetUseAdd(const Level: DWORD; const Buf: pointer; var ParmError : DWORD): NET_API_STATUS;
//function LRJ_NetUseGetInfo(UseName: LMSTR; Level: DWORD; Buf: PBYTE): NET_API_STATUS;
// NetQueryDisplayInformation API
function LRJ_NetQueryDisplayInformation(const ServerName: string; const Level, Index, EntriesRequested, PreferredMaximumLength: DWORD;
var ReturnedEntryCount: DWORD; var SortedBuffer: pointer): NET_API_STATUS;
// Net Group API
function LRJ_NetGroupEnum(const ServerName : string; const Level: DWORD; var BufPtr: Pointer; const PrefMaxLen : DWORD;
var EntriesRead : DWORD; var TotalEntries : DWORD; var ResumeHandle: DWORD): NET_API_STATUS;
//NetGroupAdd //NetGroupAddUser //NetGroupDel //NetGroupDelUser //NetGroupGetInfo
//NetGroupGetUsers //NetGroupSetInfo //NetGroupSetUsers
// Net Local Group API
function LRJ_NetLocalGroupEnum(const ServerName : string; const Level: DWORD; var BufPtr: Pointer; const PrefMaxLen : DWORD;
var EntriesRead : DWORD; var TotalEntries : DWORD; var ResumeHandle: DWORD): NET_API_STATUS;
function LRJ_NetLocalGroupAdd(const ServerName, GroupName, Commentaire : string; const Parm_Err: LPDWORD): NET_API_STATUS;
function LRJ_NetLocalGroupDel(const ServerName, GroupName : string): NET_API_STATUS;
function LRJ_NetLocalGroupSetNewName(const ServerName, OldGroupName, NewName : string; const Parm_Err: LPDWORD): NET_API_STATUS;
function LRJ_NetLocalGroupSetNewComment(const ServerName, GroupName, NewComment : string; const Parm_Err: LPDWORD): NET_API_STATUS;
//function LRJ_NetLocalGroupSetNewNameAndComment(const ServerName, OldGroupName, NewName, NewComment : string;
// var Parm_Err: DWORD): NET_API_STATUS;
//la function ci-dessus ne fonctionne pas, il y a un beg , il n'y a que le commentaire qui est
// changé au lieu du nom et commentaire, donc double emploie avec LRJ_NetLocalGroupSetNewComment
function LRJ_NetLocalGroupGetInfo(const ServerName, GroupName : string; var commentaire: string): NET_API_STATUS;
function LRJ_NetLocalGroupGetMembers(const ServerName, LocalGroupName: string;const Level: DWORD; var BufPtr: Pointer;const PrefMaxLen: DWORD;
var EntriesRead, TotalEntries: DWORD; var ResumeHandle: DWORD): NET_API_STATUS;
function LRJ_NetLocalGroupAddMembers(const ServerName, GroupName : string; const Level: DWORD; const BufPtr: Pointer;
const TotalEntries: DWORD): NET_API_STATUS;
function LRJ_NetLocalGroupDelMembers(const ServerName, GroupName : string; const Level: DWORD; const BufPtr: Pointer;
const TotalEntries: DWORD): NET_API_STATUS;
function LRJ_NetLocalGroupSetMembers(const ServerName, GroupName : string; const Level: DWORD; const BufPtr: Pointer;
const TotalEntries: DWORD): NET_API_STATUS;
// Net User API
function LRJ_NetUserAdd(const ServerName: string; const Level: DWORD; const BufPtr: Pointer; const Parm_Err: LPDWORD): NET_API_STATUS;
function LRJ_NetUserChangePassword(const DomainName, UserName, OldPassword, NewPassword: string): NET_API_STATUS;
function LRJ_NetUserDel(const ServerName, UserName: string): NET_API_STATUS;
function LRJ_NetUserEnum(const ServerName : string; const Level, Filter: DWORD; var BufPtr: Pointer; const PrefMaxLen : DWORD;
var EntriesRead : DWORD; var TotalEntries : DWORD; var ResumeHandle: DWORD): NET_API_STATUS;
function LRJ_NetUserGetGroups(const ServerName, UserName: string; Level: DWORD; var BufPtr: pointer;
const PrefMaxLen: DWORD; var EntriesRead, TotalEntries: DWORD): NET_API_STATUS;
function LRJ_NetUserGetLocalGroups(const ServerName, UserName: string; const Level, Flags: DWORD; var BufPtr: pointer;
const PrefMaxLen: DWORD; var EntriesRead, TotalEntries: DWORD): NET_API_STATUS;
function LRJ_NetUserGetInfo(const ServerName, UserName: string; const Level : DWORD; var BufPtr: Pointer): NET_API_STATUS;
function LRJ_NetUserModalsGet(const ServerName : string; const Level : DWORD; var BufPtr: Pointer): NET_API_STATUS;
function LRJ_NetUserModalsSet(const ServerName : string; const Level : DWORD; const BufPtr: Pointer; const Parm_Err: LPDWORD): NET_API_STATUS;
function LRJ_NetUserSetGroups(const ServerName, UserName: string; const Level : DWORD; const BufPtr: Pointer; const Num_Entries: DWORD): NET_API_STATUS;
function LRJ_NetUserSetInfo(const ServerName, UserName : string; const Level : DWORD; const BufPtr: Pointer; const Parm_Err: LPDWORD): NET_API_STATUS;
// lié à la Net User API
function LRJ_UserPrivilegeIntToStr(const APrivilege: DWORD): string;
function LRJ_UserFlagsIntToStr(const AFlags: DWORD): string;
function LRJ_UserAuthFlagsIntToStr(const AAuthFlags: DWORD): string;
function LRJ_UserRoleSeverIntToStr(const ARoleSever: DWORD): string;
type
//------------OBJET----------------------------
LRJ_TNetAPIBase = class(TObject) // Objet de base aux autres objets
private //-----------PRIVATE--------------------------
MOServeurName: string; //''
protected //-----------PROTEGE--------------------------
public//-----------PUBLIC--------------------------
procedure AfterConstruction; override;
//______nouveau ________________________________
property ServeurName: string read MOServeurName write MOServeurName;
end;//-----------FIN--------------------------
|
|
| |
 | |  |
|
|
