Dim myCurrentAppDomain As AppDomain Dim myAssemblies() As [Assembly] Dim myAssembly As [Assembly] Try
myCurrentAppDomain = AppDomain.CurrentDomain
myAssemblies = myCurrentAppDomain.GetAssemblies
For Each myAssembly In myAssemblies
Console.WriteLine(myAssembly.FullName)
Next
Console.WriteLine(myCurrentAppDomain.FriendlyName) Catch ex As Exception
Console.WriteLine(ex.Message) End Try