(VB.NET) REMOTE_USER取得

PG

至極簡単に。

    'ログイン中ユーザのID取得
    Public Function NowUserID() As String

        Dim RUser() As String

        'PCログインユーザ取得、IDのみ取出 (Request.ServerVariables("REMOTE_USER")は、User.Identity.Nameでも可)
        RUser = Split(Request.ServerVariables("REMOTE_USER"), "\")
        Return RUser(1)

    End Function

Request.ServerVariables("REMOTE_USER")でNULL値が返ってくる場合

  • web.configのアプリケーションの認証ポリシーが匿名になっている
  • インターネットオプション>詳細設定>セキュリティ>「統合Windows認証を使用する」にチェックが入っていない
  • 管理>IISの設定>規定のWebサイトの該当サイトプロパティ>ディレクトリセキュリティ「編集」の「匿名アクセス」のチェックを外す