phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

testing SRP Git for OI 10

Browse Source
This commit is contained in:
Infineon\StieberD
2024-03-25 14:13:13 -07:00
parent b3f7ea1da8
commit ebaaaf3c27
5 changed files with 5197 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

141
LSL2/STPROC/ACTIVE_DIRECTORY_SERVICES.txt Normal file
View File

@ -0,0 +1,141 @@
Compile function Active_Directory_Services(@Service, @Params)
/***********************************************************************************************************************
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
permission from SRP Computer Solutions, Inc.
Name : Active_Directory_Services
Description : Handler program for all module related services.
Notes : The generic parameters should contain all the necessary information to process the services. Often
this will be information like the data Record and Key ID.
Parameters :
Service [in] -- Name of the service being requested
Param1-10 [in/out] -- Additional request parameter holders
Response [out] -- Response to be sent back to the Controller (MCP) or requesting procedure
History : (Date, Initials, Notes)
02/17/23 djs Original programmer.
***********************************************************************************************************************/
#pragma precomp SRP_PreCompiler
$Insert SERVICE_SETUP
$Insert APP_INSERTS
$Insert REVDOTNETEQUATES
Declare subroutine Set_Property.Net
GoToService
Return Response or ""
//-----------------------------------------------------------------------------
// SERVICES
//-----------------------------------------------------------------------------
Service AuthenticateUser(Username, Password, Domain)
Authenticated = False$
DotNetHandle = StartDotNet("","4.0")
DotNetDir = CheckDotNet('4.0'):'\'
AccountMgmtDllPath = DotNetDir:'System.DirectoryServices.AccountManagement.dll'
Set_Property.Net(DotNetHandle, "AssemblyName", AccountMgmtDllPath)
If Not(Get_Status(errCode)) then
Params = 'Domain':@FM:Domain
ParamTypes = 'System.DirectoryServices.AccountManagement.ContextType':@FM:'System.String'
objPC = Create_Class.Net(DotNetHandle, "System.DirectoryServices.AccountManagement.PrincipalContext", 0, Params, ParamTypes)
If Not(Get_Status(errCode)) then
Params = Username:@FM:Password
ParamTypes = 'System.String':@FM:'System.String'
Authenticated = Send_Message.Net(objPC, 'ValidateCredentials', Params, ParamTypes, 0)
Swap 'True' with True$ in Authenticated
Swap 'False' with False$ in Authenticated
Free_Class.Net(objPC)
end
end
Response = Authenticated
end service
Service GetADGroups(Username, Domain)
ADGroups = ''
DotNetHandle = StartDotNet("","4.0")
DotNetDir = CheckDotNet('4.0'):'\'
AccountMgmtDllPath = DotNetDir:'System.DirectoryServices.AccountManagement.dll'
Set_Property.Net(DotNetHandle, "AssemblyName", AccountMgmtDllPath)
If Not(Get_Status(errCode)) then
Params = 'Domain':@FM:'Infineon'
ParamTypes = 'System.DirectoryServices.AccountManagement.ContextType':@FM:'System.String'
objPC = Create_Class.Net(DotNetHandle, "System.DirectoryServices.AccountManagement.PrincipalContext", 0, Params, ParamTypes)
If Not(Get_Status(errCode)) then
objUserPrincipal = Create_Class.Net(DotNetHandle, "System.DirectoryServices.AccountManagement.UserPrincipal", 0, objPC, 'RevDotNet')
If Not(Get_Status(errCode)) then
Set_Property.Net(objUserPrincipal, 'Name', Username)
objPrinSearcher = Create_Class.Net(DotNetHandle, "System.DirectoryServices.AccountManagement.PrincipalSearcher", 0, objUserPrincipal, 'RevDotNet')
If Not(Get_Status(errCode)) then
objPrin = Send_Message.Net(objPrinSearcher, 'FindOne', '', '', 1)
If Not(Get_Status(errCode)) then
Name = Get_Property.Net(objPrin, 'Name', 0)
objPrinSearchResult = Send_Message.Net(objPrin, 'GetGroups', '', '', 1)
If Not(Get_Status(errCode)) then
objEnum = Send_Message.Net(objPrinSearchResult, 'GetEnumerator', '', '', 1)
If Not(Get_Status(errCode)) then
Loop
Done = Send_Message.Net(objEnum, 'MoveNext', '', '', 0)
Until Done EQ 'False'
If Not(Get_Status(errCode)) then
objCurrPrin = Get_Property.Net(objEnum, 'Current', 1)
If Not(Get_Status(errCode)) then
CurrPrinName = Get_Property.Net(objCurrPrin, 'Name', 0)
If CurrPrinName NE 'Domain Users' then ADGroups<-1> = CurrPrinName
Free_Class.Net(objCurrPrin)
end
end
Repeat
Free_Class.Net(objEnum)
end
Free_Class.Net(objPrinSearchResult)
end
Free_Class.Net(objPrin)
end
Free_class.Net(objPrinSearcher)
end
Free_Class.Net(objUserPrincipal)
end
Free_Class.Net(objPC)
end
end
Response = ADGroups
End Service
Service GetComputerDomain()
Domain = ''
DotNetHandle = StartDotNet("","4.0")
DotNetDir = CheckDotNet('4.0'):'\'
DirDllPath = DotNetDir:'System.DirectoryServices.dll'
Set_Property.Net(DotNetHandle, "AssemblyName", DirDllPath)
If Not(Get_Status(errCode)) then
objDomain = Create_Class.Net(DotNetHandle, "System.DirectoryServices.ActiveDirectory.Domain", 0, '', '')
If Not(Get_status(errCode)) then
ObjCompDomain = Send_Message.Net(objDomain, 'GetComputerDomain', '', '', True$)
If Not(Get_Status(errCode)) then
Domain = Get_Property.Net(objCompDomAin, 'Name', False$)
Free_class.Net(objCompDomain)
end
Free_Class.Net(objDomain)
end
end
Response = Domain
end service