74 lines
4.2 KiB
Plaintext
74 lines
4.2 KiB
Plaintext
Compile Function IFX_LDAP_GROUPS_FOR_USER(inUser, inDomain)
|
|
|
|
$Insert REVDOTNETEQUATES
|
|
|
|
Declare subroutine Set_Property.Net
|
|
Declare Function Active_Directory_Services, Unassigned, RetStack, GetNetworkUsername
|
|
|
|
Ans = ''
|
|
If Not(Unassigned(inUser)) Then
|
|
If Unassigned(inUser) Then inUser = ''
|
|
If inUser = '' Then inUser = GetNetworkUsername()
|
|
If Unassigned(inDomain) Then inDomain = ''
|
|
If inDomain Eq '' Then inDomain = Active_Directory_Services('GetComputerDomain')
|
|
Domain = inDomain
|
|
Username = inUser
|
|
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: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
|
|
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
|
|
Locate CurrPrinName in ADGroups using @FM setting fPos else
|
|
ADGroups<-1> = CurrPrinName
|
|
end
|
|
end
|
|
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
|
|
Free_Class.Net()
|
|
Ans = ADGroups
|
|
End
|
|
|
|
Swap @FM With @VM In Ans
|
|
|
|
Return Ans
|