impersonate.aspx

来自「Code for VB.NET教程源码 很好的源码」· ASPX 代码 · 共 8 行

<%@ Import Namespace="System.Security.Principal" %>

<Script Langauge="VB" runat="server">
  Public Sub Page_Load(sender As Object, e As EventArgs)
    lblIdentity.Text = WindowsIdentity.GetCurrent().Name
  End Sub
</Script>
Current identity is: <asp:label id="lblIdentity" runat="server" />