| 1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- #include-once
- #include <Array.au3>
- #include "DotNet.au3"
- Func DotNet_ListDomains()
- Local $pEnum, $pDomain, $oDomain
- Local $aDomains[100][2], $iDomains = 0
- Local $oRuntimeHost = DotNet_Start()
- $oRuntimeHost.EnumDomains( $pEnum )
- While Not $oRuntimeHost.NextDomain( $pEnum, $pDomain )
- $oDomain = ObjCreateInterface( $pDomain, $sIID__AppDomain, $sTag__AppDomain )
- $oDomain.get_FriendlyName( $aDomains[$iDomains][0] )
- $oDomain.get_BaseDirectory( $aDomains[$iDomains][1] )
- $iDomains += 1
- WEnd
- ReDim $aDomains[$iDomains][2]
- Return $aDomains
- EndFunc
- Func DotNet_ListDomainsEx()
- Local $aDomains = DotNet_ListDomains()
- _ArrayDisplay( $aDomains, ".NET Framework Domains", "", 0, Default, "Friendly Name|Base Directory to load assemblies" )
- EndFunc
- Func DotNet_ListAssemblies( $oAppDomain = 0 )
- Local $pAssemblies, $aAssemblies
- If Not $oAppDomain Then _
- $oAppDomain = DotNet_GetDefaultDomain()
- $oAppDomain.getAssemblies( $pAssemblies )
- AccVars_SafeArrayToArray( $pAssemblies, $aAssemblies )
- Local $nAsms = UBound( $aAssemblies ), $aAsmInfo[$nAsms][3], $oAssembly
- For $i = 0 To $nAsms - 1
- $oAssembly = ObjCreateInterface( $aAssemblies[$i], $sIID__Assembly, $sTag__Assembly )
- $oAssembly.get_GlobalAssemblyCache( $aAsmInfo[$i][0] )
- $oAssembly.get_FullName( $aAsmInfo[$i][1] )
- $oAssembly.get_Location( $aAsmInfo[$i][2] )
- Next
- Return $aAsmInfo
- EndFunc
- Func DotNet_ListAssembliesEx( $oAppDomain = 0 )
- Local $aAssemblies = DotNet_ListAssemblies( $oAppDomain )
- _ArrayDisplay( $aAssemblies, "Loaded Assemblies in Domain", "", 0, Default, "GAC|Assembly Full Name|Assembly Location" )
- EndFunc
|
