Lessons XX : Liệt kê các users account trong WinXP

Liệt kê các users account trong WinXP

Thứ hai, 18 Tháng 8 2008 15:51 huytranaz Hướng dẫn lập trình Visual Basic-VB.NET
Email In
Option Explicit
'--
Private Sub Form_Load()
   On Error Resume Next
   Dim Container As Object
   Dim User As Object
   Dim oUser As Object
   '-- End testing
   Set Container = GetObject("WinNT://.")
   Container.Filter = Array("User")
   For Each User In Container
      Set oUser = GetObject("WinNT://./" & User.Name & ",user")
      Debug.Print "Account name: " & oUser.Name
      Debug.Print "Full name: " & oUser.FullName
      Debug.Print "Is disabled: " & oUser.AccountDisabled
      Debug.Print "------------"
   Next
End Sub

Bạn có thể tham khảo các đối tượng của Windows thông qua thư viện Active Scripting của Windows.
Nguồn: ddth.com

  1. Leave a comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: