mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
268 lines
6.7 KiB
268 lines
6.7 KiB
/*++
|
|
|
|
Copyright (c) 1994 Microsoft Corporation
|
|
Copyright (c) 1993 Micro Computer Systems, Inc.
|
|
|
|
Module Name:
|
|
|
|
net\svcdlls\nwsap\client\bindlib.c
|
|
|
|
Abstract:
|
|
|
|
This routine handles the BindLib API for the SAP Agent
|
|
|
|
Author:
|
|
|
|
Brian Walker (MCS) 06-15-1993
|
|
|
|
Revision History:
|
|
|
|
--*/
|
|
|
|
#include "precomp.h"
|
|
#pragma hdrstop
|
|
|
|
|
|
/*++
|
|
*******************************************************************
|
|
S a p G e t O b j e c t N a m e
|
|
|
|
Routine Description:
|
|
|
|
This routine converts an Object ID into an Object Name
|
|
and Type.
|
|
|
|
Arguments:
|
|
ObjectID = Object ID to convert
|
|
ObjectName = Ptr to where to store 48 byte object name
|
|
ObjectType = Ptr to where to store the object type
|
|
ObjectAddr = Ptr to where to store NET_ADDRESS (12 bytes)
|
|
|
|
ObjectName, ObjectType, ObjectAddr can be NULL.
|
|
|
|
Return Value:
|
|
|
|
SAPRETURN_SUCCESS = OK - name and type are filled in
|
|
SAPRETURN_NOTEXIST = Invalid object id.
|
|
*******************************************************************
|
|
--*/
|
|
|
|
INT
|
|
SapGetObjectName(
|
|
IN ULONG ObjectID,
|
|
IN PUCHAR ObjectName,
|
|
IN PUSHORT ObjectType,
|
|
IN PUCHAR ObjectAddr)
|
|
{
|
|
NTSTATUS status;
|
|
NWSAP_REQUEST_MESSAGE request;
|
|
NWSAP_REPLY_MESSAGE reply;
|
|
|
|
/** If not initialized - return error **/
|
|
|
|
if (!SapLibInitialized)
|
|
return SAPRETURN_NOTINIT;
|
|
|
|
/** Build the Get Object Name message **/
|
|
|
|
request.MessageType = NWSAP_LPCMSG_GETOBJECTNAME;
|
|
request.PortMessage.u1.s1.DataLength = (USHORT)(sizeof(request) - sizeof(PORT_MESSAGE));
|
|
request.PortMessage.u1.s1.TotalLength = sizeof(request);
|
|
request.PortMessage.u2.ZeroInit = 0;
|
|
request.PortMessage.MessageId = 0;
|
|
|
|
request.Message.BindLibApi.ObjectID = ObjectID;
|
|
|
|
/** Send it and get a response **/
|
|
|
|
status = NtRequestWaitReplyPort(
|
|
SapXsPortHandle,
|
|
(PPORT_MESSAGE)&request,
|
|
(PPORT_MESSAGE)&reply);
|
|
|
|
if (!NT_SUCCESS(status)) {
|
|
return status;
|
|
}
|
|
|
|
/** If we got a SAP error - return it **/
|
|
|
|
if (reply.Error)
|
|
return reply.Error;
|
|
|
|
/** Return the entry **/
|
|
|
|
if (ObjectType)
|
|
*ObjectType = reply.Message.BindLibApi.ObjectType;
|
|
|
|
if (ObjectName)
|
|
memcpy(ObjectName, reply.Message.BindLibApi.ObjectName, NWSAP_MAXNAME_LENGTH+1);
|
|
|
|
if (ObjectAddr)
|
|
memcpy(ObjectAddr, reply.Message.BindLibApi.ObjectAddr, 12);
|
|
|
|
/** All Done OK **/
|
|
|
|
return SAPRETURN_SUCCESS;
|
|
}
|
|
|
|
|
|
/*++
|
|
*******************************************************************
|
|
S a p G e t O b j e c t I D
|
|
|
|
Routine Description:
|
|
|
|
This routine converts a name and type into an object ID.
|
|
|
|
Arguments:
|
|
ObjectName = Ptr to AsciiZ object name (Must be uppercase)
|
|
ObjectType = Object type to look for
|
|
ObjectID = Ptr to where to store the object ID.
|
|
|
|
Return Value:
|
|
|
|
SAPRETURN_SUCCESS = OK - Object ID is filled in
|
|
SAPRETURN_NOTEXIST = Name/Type not found
|
|
*******************************************************************
|
|
--*/
|
|
|
|
INT
|
|
SapGetObjectID(
|
|
IN PUCHAR ObjectName,
|
|
IN USHORT ObjectType,
|
|
IN PULONG ObjectID)
|
|
{
|
|
NTSTATUS status;
|
|
NWSAP_REQUEST_MESSAGE request;
|
|
NWSAP_REPLY_MESSAGE reply;
|
|
|
|
/** If not initialized - return error **/
|
|
|
|
if (!SapLibInitialized)
|
|
return SAPRETURN_NOTINIT;
|
|
|
|
/** If the name is too long - error **/
|
|
|
|
if (strlen(ObjectName) > NWSAP_MAXNAME_LENGTH)
|
|
return SAPRETURN_INVALIDNAME;
|
|
|
|
/** Build the Get Object Name message **/
|
|
|
|
request.MessageType = NWSAP_LPCMSG_GETOBJECTID;
|
|
request.PortMessage.u1.s1.DataLength = (USHORT)(sizeof(request) - sizeof(PORT_MESSAGE));
|
|
request.PortMessage.u1.s1.TotalLength = sizeof(request);
|
|
request.PortMessage.u2.ZeroInit = 0;
|
|
|
|
memset(request.Message.BindLibApi.ObjectName, 0, NWSAP_MAXNAME_LENGTH+1);
|
|
strcpy(request.Message.BindLibApi.ObjectName, ObjectName);
|
|
request.Message.BindLibApi.ObjectType = ObjectType;
|
|
|
|
/** Send it and get a response **/
|
|
|
|
status = NtRequestWaitReplyPort(
|
|
SapXsPortHandle,
|
|
(PPORT_MESSAGE)&request,
|
|
(PPORT_MESSAGE)&reply);
|
|
|
|
if (!NT_SUCCESS(status)) {
|
|
return status;
|
|
}
|
|
|
|
/** If we got a SAP error - return it **/
|
|
|
|
if (reply.Error)
|
|
return reply.Error;
|
|
|
|
/** Return the entry **/
|
|
|
|
*ObjectID = reply.Message.BindLibApi.ObjectID;
|
|
|
|
/** All Done OK **/
|
|
|
|
return SAPRETURN_SUCCESS;
|
|
}
|
|
|
|
|
|
/*++
|
|
*******************************************************************
|
|
S a p S c a n O b j e c t
|
|
|
|
Routine Description:
|
|
|
|
This routine is used to scan thru the database list.
|
|
|
|
Arguments:
|
|
ObjectID = Ptr to last Object ID we saw. On first call
|
|
this should point to a 0xFFFFFFFF.
|
|
ObjectName = Ptr to where to store 48 byte object name
|
|
ObjectType = Ptr to where to store the object type
|
|
ScanType = Object Type that we are scanning for
|
|
(0xFFFF = All)
|
|
|
|
ObjectName, ObjectType can be NULL.
|
|
|
|
Return Value:
|
|
|
|
SAPRETURN_SUCCESS = OK - name and type are filled in
|
|
ObjectID has the object ID of this entry.
|
|
SAPRETURN_NOTEXIST = Invalid object id.
|
|
*******************************************************************
|
|
--*/
|
|
|
|
INT
|
|
SapScanObject(
|
|
IN PULONG ObjectID,
|
|
IN PUCHAR ObjectName,
|
|
IN PUSHORT ObjectType,
|
|
IN USHORT ScanType)
|
|
{
|
|
NTSTATUS status;
|
|
NWSAP_REQUEST_MESSAGE request;
|
|
NWSAP_REPLY_MESSAGE reply;
|
|
|
|
/** If not initialized - return error **/
|
|
|
|
if (!SapLibInitialized)
|
|
return SAPRETURN_NOTINIT;
|
|
|
|
/** Build the Get Object Name message **/
|
|
|
|
request.MessageType = NWSAP_LPCMSG_SEARCH;
|
|
request.PortMessage.u1.s1.DataLength = (USHORT)(sizeof(request) - sizeof(PORT_MESSAGE));
|
|
request.PortMessage.u1.s1.TotalLength = sizeof(request);
|
|
request.PortMessage.u2.ZeroInit = 0;
|
|
|
|
request.Message.BindLibApi.ObjectID = *ObjectID;
|
|
request.Message.BindLibApi.ScanType = ScanType;
|
|
|
|
/** Send it and get a response **/
|
|
|
|
status = NtRequestWaitReplyPort(
|
|
SapXsPortHandle,
|
|
(PPORT_MESSAGE)&request,
|
|
(PPORT_MESSAGE)&reply);
|
|
|
|
if (!NT_SUCCESS(status)) {
|
|
return status;
|
|
}
|
|
|
|
/** If we got a SAP error - return it **/
|
|
|
|
if (reply.Error)
|
|
return reply.Error;
|
|
|
|
/** Return the entry **/
|
|
|
|
if (ObjectType)
|
|
*ObjectType = reply.Message.BindLibApi.ObjectType;
|
|
|
|
if (ObjectName)
|
|
memcpy(ObjectName, reply.Message.BindLibApi.ObjectName, NWSAP_MAXNAME_LENGTH+1);
|
|
|
|
*ObjectID = reply.Message.BindLibApi.ObjectID;
|
|
|
|
/** All Done OK **/
|
|
|
|
return SAPRETURN_SUCCESS;
|
|
}
|
|
|