Imports System
Imports System.Reflection
Imports System.Security.Policy 'for Evidence object

Class ADGetAssemblies


   Public Shared Sub Main()
      Dim currentDomain As AppDomain = AppDomain.CurrentDomain
      'Provide the current application domain evidence for the assembly.
      Dim asEvidence As Evidence = currentDomain.Evidence
      'Load the assembly from the application directory using a simple name.

      'Create an assembly called CustomLibrary to run this sample.
      currentDomain.Load("CustomLibrary", asEvidence)

      'Make an array for the list of assemblies.
      Dim assems As [Assembly]() = currentDomain.GetAssemblies()

      'List the assemblies in the current application domain.
      Console.WriteLine("List of assemblies loaded in current appdomain:")
      Dim assem As [Assembly]
      For Each assem In  assems
         Console.WriteLine(assem.ToString())
      Next assem
   End Sub 'Main 
End Class 'ADGetAssemblies 

using System;
using System.Reflection;
using System.Security.Policy;  //for Evidence object

class ADGetAssemblies 
{

	public static void Main() 
	{
		AppDomain currentDomain = AppDomain.CurrentDomain;
		//Provide the current application domain evidence for the assembly.
		Evidence asEvidence = currentDomain.Evidence;
		//Load the assembly from the application directory using a simple name.

		//Create an assembly called CustomLibrary to run this sample.
		currentDomain.Load("CustomLibrary",asEvidence);

		//Make an array for the list of assemblies.
		Assembly[] assems = currentDomain.GetAssemblies();
	
		//List the assemblies in the current application domain.
		Console.WriteLine("List of assemblies loaded in current appdomain:");
			foreach (Assembly assem in assems)
				Console.WriteLine(assem.ToString());
	}

}

using namespace System;
using namespace System::Reflection;
using namespace System::Security::Policy;

//for Evidence Object
int main()
{
   AppDomain^ currentDomain = AppDomain::CurrentDomain;

   //Provide the current application domain evidence for the assembly.
   Evidence^ asEvidence = currentDomain->Evidence;

   //Load the assembly from the application directory using a simple name.
   //Create an assembly called CustomLibrary to run this sample.
   currentDomain->Load( "CustomLibrary", asEvidence );

   //Make an array for the list of assemblies.
   array<Assembly^>^assems = currentDomain->GetAssemblies();

   //List the assemblies in the current application domain.
   Console::WriteLine( "List of assemblies loaded in current appdomain:" );
   System::Collections::IEnumerator^ myEnum = assems->GetEnumerator();
   while ( myEnum->MoveNext() )
   {
      Assembly^ assem = safe_cast<Assembly^>(myEnum->Current);
      Console::WriteLine( assem );
   }
}