1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
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 |