VB.NET ユーザー名、ドメイン名の表示

2020年6月3日
2020年6月3日
システム構築
17View
0件

システム構築

Imports System
Imports System.DirectoryServices

Public Class cls_user

    Public Property uName As String
    Public Property domain As String
    Public Property dName As String

    Public Sub Main()
        domain = Environment.UserDomainName ' ドメイン名
        uName = Environment.UserName       ' ユーザー名

        Dim path As String = "WinNT://" + domain + "/" + uName
        Using dirEnt As DirectoryEntry = New DirectoryEntry(path)
            ' フル・ネーム
            dName = dirEnt.Properties("FullName").Value.ToString()
        End Using
        Console.WriteLine(domain) 
        Console.WriteLine(uName)  
        Console.WriteLine(dName)  
    End Sub
End Class

Imports System

Imports System.DirectoryServices

Public Class cls_user

Public Property uName As String

Public Property domain As String

Public Property dName As String

Public Sub Main()

domain = Environment.UserDomainName ' ドメイン名

uName = Environment.UserName ' ユーザー名

Dim path As String = "WinNT://" + domain + "/" + uName

Using dirEnt As DirectoryEntry = New DirectoryEntry(path)

' フル・ネーム

dName = dirEnt.Properties("FullName").Value.ToString()

End Using

Console.WriteLine(domain)

Console.WriteLine(uName)

Console.WriteLine(dName)

End Sub

End Class

最新情報をチェックしよう！

フォローする

VB.NET ユーザー名、ドメイン名の表示

個人鑑定のおすすめとご案内