New EnvironmentPermission : EnvironmentPermission « System.Security.Permissions « VB.Net by API

1. VB.Net by API
2. System.Security.Permissions
3. EnvironmentPermission

New EnvironmentPermission

   
Imports System.Security.Principal
Imports System.Security.Permissions
Imports System.IO


public class MainClass
   Shared Sub Main()
        Dim oEp As EnvironmentPermission = New EnvironmentPermission(EnvironmentPermissionAccess.Read, "Temp")
        Dim sEv As String

        oEp.Assert()
        Try
            sEv = Environment.GetEnvironmentVariable("Temp")
            Console.WriteLine("Assert was a success")
        Catch objA As System.Exception
            Console.WriteLine("Assert failed")
        End Try
        System.Security.CodeAccessPermission.RevertAssert()
        oEp.Deny()
        Try
            sEv = Environment.GetEnvironmentVariable("Temp")
            Console.WriteLine("Deny was a success")
        Catch objA As System.Exception
            Console.WriteLine("Deny failed")
        End Try
        Console.WriteLine(oEp.ToString)
   End Sub
End Class

   
    
    
  

Related examples in the same category