列出本機（localhost）的使用者帳號（User Account）

2009-02-16

上一篇文章提到的方法，可以用在本文裡面。

我們的電腦（Win XP或 Vista）在「系統管理工具」底下，都有「電腦管理」
找一下「本機使用者與群組」，打開後，可以看見所有使用者的名稱（User Account）。

下面這支程式，可以列出 -- 本機（localhost）的使用者帳號

上一篇文章（ASP.NET如何執行DOS指令、「命令提示字元」的文字指令？ ）提到的方法，可以用在本文裡面。

我們的電腦（Win XP或 Vista）在「系統管理工具」底下，都有「電腦管理」

找一下「本機使用者與群組」，打開後，可以看見所有使用者的名稱（User Account）。

下面這支程式，可以列出 -- 本機（localhost）的使用者帳號

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

首先，我們要知道「命令提示字元」底下的文字指令，

輸入「net user」指令，可以列出本機的所有使用者帳號。

然後，把結果導向到一個檔案。例如：

net user > 檔案名稱.txt

（更詳細的用法，請參閱微軟文件：http://support.microsoft.com/kb/251394/zh-tw）
（或請參考：http://pensieve4me.wordpress.com/2006/12/06/net-%E6%8C%87%E4%BB%A4%E7%9A%84%E7%94%A8%E6%B3%95-for-windows/）

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

接下來，後置程式碼如下，很簡單：

Imports System.IO '--檔案的存取
02

Imports System.Diagnostics '--給「Process.Start() 方法」使用
03

Partial Class 你自己的程式檔名
07

Inherits System.Web.UI.Page
08

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

'--執行命令視窗裡面的命令，例如：net user > netuser_hs.txt
12

Process.Start("c:\Users\mis2000lab\123.bat")
13

'--讀取檔案
15

Using sr As StreamReader = New StreamReader("c:\users\mis2000lab\檔案名稱.txt")
16

Dim my_line As String = Nothing
18

Dim my_word1, my_word2, my_word3 As String
19

Dim my_int As Integer = 0
20

Do
22

my_line = sr.ReadLine() '一次讀取一行
23

If my_int >= 4 Then
25

my_word1 = Left(my_line, 25)
26

If Trim(my_word1) = Nothing Then Exit Do
27

Response.Write(Trim(my_word1) & "<br>")
28

my_word2 = Mid(my_line, 26, 25)
30

If Trim(my_word2) = Nothing Then Exit Do
31

Response.Write(Trim(my_word2) & "<br>")
32

my_word3 = Right(my_line, 25)
34

If Trim(my_word3) = Nothing Then Exit Do
35

Response.Write(Trim(my_word3) & "<br>")
36

End If
37

my_int = my_int + 1
38

Loop Until my_line Is Nothing
39

End Using
41

End Sub
43

End Class

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

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

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

或是參考下一篇文章： 列出本機（localhost）的使用者帳號（User Account） #2 -- Using DirectoryEntry

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

猶如一人以我的燭火點燭，光亮與他同在，我卻不因此身處黑暗。----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.主講事先錄好的影片，並非上課側錄！觀看時，有如「一對一」面對面講課。

回首頁

ASP.NET專題實務 WebForm + MVC線上教學影片 -- MIS2000Lab.

MIS2000 Lab.已推出20餘本電腦書，曾任資策會專任講師與微軟MVP。自.NET 1.x起，已出版15本ASP.NET (Web Form)書籍，也有遠距教學線上教程教學影片