列出本機(localhost)的使用者帳號(User Account) #2 -- Using DirectoryEntry

列出本機(localhost)的使用者帳號(User Account) #2
修改微軟MSDN文件上的一個範例後,就變得簡單多了。

上一篇文章的方法較蠢(列出本機(localhost)的使用者帳號(User Account)

我修改微軟MSDN文件上的一個範例後,就變得簡單多了。

.....................................................................................................................

Imports System.DirectoryServices


Partial Class 每個人都不一樣

    Inherits System.Web.UI.Page

    '==資料來源:http://msdn.microsoft.com/zh-tw/library/87tye19w(VS.80).aspx

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objDE As DirectoryEntry
        '--使用DirectoryEntry,可以查 LDAP與 WinNT    以下兩行是自己動手填寫
        'Dim strPath As String = "
LDAP://DC=onecity,DC=corp,DC=fabrikam,DC=com"
        'Dim strPath As String = "WinNT://Acer_4105NB"

        '--下面這一行,是系統自動尋找本機名稱
        Dim strPath As String = "WinNT://" + Environment.MachineName
        '==================================================

        objDE = New DirectoryEntry(strPath)

        Dim output_string As String = Nothing

        Dim objChildDE As DirectoryEntry
        For Each objChildDE In
objDE.Children

            If objChildDE.SchemaClassName = "User" Then   '--只搜尋使用者名稱
                output_string = output_string + objChildDE.Name & "<br>"
                '--列出所有物件(使用者、群組等等)的名稱
            End If

        Next objChildDE

        Label1.Text = output_string

    End Sub
End Class

2009/3/2補充 -- 上面的User(使用者帳號)位置,可以寫成Group(群組)或Service(服務名稱)

.................................................................................................

 

您也可以參考這一篇文章的解法:

http://social.msdn.microsoft.com/Forums/zh-TW/236/thread/3110f5f8-16f9-4a16-bc42-55d54ec1b14e

我在最後有提供一段程式碼,是可以運作的。

 

 

我將思想傳授他人, 他人之所得,亦無損於我之所有;

猶如一人以我的燭火點燭,光亮與他同在,我卻不因此身處黑暗。----Thomas Jefferson

線上課程教學,遠距教學 (Web Form 約 51hr)  https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程教學,遠距教學 (ASP.NET MVC 約 140hr)  https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

 

寫信給我,不要私訊 --  mis2000lab (at) yahoo.com.tw  或  school (at) mis2000lab.net

 (1) 第一天 ASP.NET MVC5 完整影片(5.5小時 / .NET 4.x版)免費試聽。影片 https://youtu.be/9spaHik87-A 

 (2) 第一天 ASP.NET Core MVC 完整影片(3小時 / .NET Core 6.0~8.0)免費試聽。影片 https://youtu.be/TSmwpT-Bx4I 

[學員感言] mis2000lab課程評價 - ASP.NET MVC , WebForm  。 https://mis2000lab.medium.com/%E5%AD%B8%E5%93%A1%E6%84%9F%E8%A8%80-mis2000lab%E8%AA%B2%E7%A8%8B%E8%A9%95%E5%83%B9-asp-net-mvc-webform-77903ce9680b  


ASP.NET遠距教學、線上課程(Web Form + MVC)。 第一天課程, "完整" 試聽。 

.........   facebook社團   https://www.facebook.com/mis2000lab   ......................

.........  YouTube (ASP.NET) 線上教學影片  https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

 

Blog文章 "附的範例" 無法下載,請看 https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍(嚴格認定)。

...................................................................................................................................................... 

ASP.NET MVC  => .NET Core MVC 線上教學  ...... 第一天課程 完整內容 "免費"讓您評估 / 試聽

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講   事先錄好的影片,並非上課側錄!   觀看時,有如「一對一」面對面講課