如何在当前过程中枚举AppDomains

这是我在“如何在当前进程中枚举应用程序域”上找到的代码。

原始代码由发布

托马斯·谢德格

将以下内容添加为COM参考-〜\ WINDOWS \ Microsoft.NET \ Framework \ v2.0.50727 \ mscor ee.tlb

 
using mscoree;
using System.Runtime.InteropServices; 
public void GetAllAppDomains()
        { 
            AppDomain one = AppDomain.CreateDomain("One");
            AppDomain two = AppDomain.CreateDomain("Two"); 
           // Creates 2 app domains            
            List<AppDomain> appDomains = new List<AppDomain>(); 
            IntPtr enumHandle = IntPtr.Zero; 
            CorRuntimeHostClass host = new CorRuntimeHostClass();           
            try
            { 
                host.EnumDomains(out enumHandle); 
                object domain = null; 
                AppDomain tempDomain; 
                while (true)
                { 
                    host.NextDomain(enumHandle, out domain); 
                    if (domain == null)
                    {
                        break;
                    } 
                    tempDomain = domain as AppDomain; 
                    appDomains.Add(tempDomain); 
                }                
            } 
            catch (Exception ex)
            {
                Console.WriteLine(ex.ToString());          
            } 
            finally
            {
                host.CloseEnum(enumHandle);
                int rel= Marshal.ReleaseComObject(host);
            } 
            Assembly[] assemblies;
            foreach (AppDomain app in appDomains)
            {
                Console.WriteLine(app.FriendlyName); 
                assemblies = app.GetAssemblies(); 
                Console.WriteLine("-----------------------Assemblies------------------");
                foreach (Assembly assem in assemblies)
                {
                    Console.WriteLine(assem.FullName);
                }
                Console.WriteLine("---------------------------------------------------");
            } 
        } 

From: https://bytes.com/topic/net/insights/854279-how-enumerate-appdomains-current-process