Chào mừng quý vị đến với WEBSITE-Bùi Văn Tiến-thpt Buôn Ma Thuột.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Gốc > Tin học tổng hợp >
20. Kiểm tra thông tin người dùng trong Windows XP
20. Kiểm tra thông tin người dùng trong Windows XP
Bạn muốn kiểm tra xem trên máy tính của bạn có bao nhiêu User (người dùng) và xem thông tin
của các User này hay không .
Bạn có thể thực hiện điều này thông qua tiện ích Computer Management tuy nhiên sử dụng tiện
ích này không khả quan cho lắm !
Hãy mở trình sọan thảo văn bản Notepad và chép đọan code này vào .
Lưu lại tập tin này , đặt tên cho nó là userinfo.vbs và tiến hành “chạy” nó .
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount",,48)
For Each objItem in colItems
Wscript.Echo "AccountType: " & objItem.AccountType
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Disabled: " & objItem.Disabled
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "FullName: " & objItem.FullName
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "Lockout: " & objItem.Lockout
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "PasswordChangeable: " & objItem.PasswordChangeable
Wscript.Echo "PasswordExpires: " & objItem.PasswordExpires
Wscript.Echo "PasswordRequired: " & objItem.PasswordRequired
Wscript.Echo "SID: " & objItem.SID
Wscript.Echo "SIDType: " & objItem.SIDType
Wscript.Echo "Status: " & objItem.Status
Next
Bùi Văn Tiến @ 14:56 25/02/2009
Số lượt xem: 1594
Bạn muốn kiểm tra xem trên máy tính của bạn có bao nhiêu User (người dùng) và xem thông tin
của các User này hay không .
Bạn có thể thực hiện điều này thông qua tiện ích Computer Management tuy nhiên sử dụng tiện
ích này không khả quan cho lắm !
Hãy mở trình sọan thảo văn bản Notepad và chép đọan code này vào .
Lưu lại tập tin này , đặt tên cho nó là userinfo.vbs và tiến hành “chạy” nó .
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount",,48)
For Each objItem in colItems
Wscript.Echo "AccountType: " & objItem.AccountType
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Disabled: " & objItem.Disabled
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "FullName: " & objItem.FullName
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "Lockout: " & objItem.Lockout
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "PasswordChangeable: " & objItem.PasswordChangeable
Wscript.Echo "PasswordExpires: " & objItem.PasswordExpires
Wscript.Echo "PasswordRequired: " & objItem.PasswordRequired
Wscript.Echo "SID: " & objItem.SID
Wscript.Echo "SIDType: " & objItem.SIDType
Wscript.Echo "Status: " & objItem.Status
Next
Bùi Văn Tiến @ 14:56 25/02/2009
Số lượt xem: 1594
Số lượt thích:
0 người
- 19. Không cho Spyware chiếm quyền điều khiển Home Page (25/02/09)
- 18. Thêm Google trên menu Tools và Toolbar trong Internet Explorer (25/02/09)
- 17. Bảo mật thiết bị lưu trữ UBS trên Windows XP (25/02/09)
- 16. Thay đổi tiêu đề Windows Media Player (23/02/09)
- 15. Đăng ký và gở bỏ tập tin dll , ocx bằng chuột phải (23/02/09)
HOA NGHỆ THUẬT
Các ý kiến mới nhất