列出本機(localhost)的使用者帳號(User Account)

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

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

下面這支程式,可以列出 -- 本機(localhost)的使用者帳號

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

我們的電腦(Win XP或 Vista)在「系統管理工具」底下,都有「電腦管理」

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

 

下面這支程式,可以列出 -- 本機(localhost)的使用者帳號

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

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

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

    然後,把結果導向到一個檔案。例如:

          net  user  >  檔案名稱.txt

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

接下來,後置程式碼如下,很簡單:

01 Imports System.IO  '--檔案的存取
02 Imports System.Diagnostics  '--給「Process.Start() 方法」使用

03
04
05
06 Partial Class 你自己的程式檔名
07     Inherits System.Web.UI.Page
08
09
10     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
14         '--讀取檔案
15         Using sr As StreamReader = New StreamReader("c:\users\mis2000lab\檔案名稱.txt")
16
17             Dim my_line As String = Nothing
18             Dim my_word1, my_word2, my_word3 As String
19             Dim my_int As Integer = 0
20
21             Do
22                 my_line = sr.ReadLine()  '一次讀取一行
23
24                 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
29                     my_word2 = Mid(my_line, 26, 25)
30                     If Trim(my_word2) = Nothing Then Exit Do
31                     Response.Write(Trim(my_word2) & "<br>")
32
33                     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
40         End Using
41
42     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 約75~88hr)  https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

ASP.NET MVC線上課程 第一天 免費看 (5.5小時) 

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


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 (Web Form) 課程 上線了!MIS2000Lab.主講

事先錄製好的影片,並非上課時側錄!   觀看影片時,有如我「一對一」跟您面對面講課

 

ASP.NET MVC 5 線上教學

         累積時數約 75~ 88小時...... 第一天(5.5小時)完整內容,"免費"讓您評估