Ẩn và hiện nhanh account trong màn hình Welcome

Đăng bởi Admin | 14/5/13 | 0 nhận xét

Bạn có thể cho ẩn một tài khoản (account) người dùng bất kỳ có trên máy trong màn hình Welcome của Windows rất nhanh theo cách dưới đây:

- Mở menu Start > chọn All Programs > chọn Accessories > chọn Notepad.

- Trong cửa sổ Notepad, bạn nhập nội dung sau:

Option Explicit
On Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox, User, Title, Prompt
p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\"
itemtype = "REG_DWORD"
n = 0
Prompt = "Enter the username you wish to hide."
Title = "Hide User on Welcome screen"
User = InputBox(Prompt, Title,"")
If User = "" Then
Title = "Error!"
Prompt = "You left the user name blank."
MyBox = MsgBox(Prompt,4096,Title)
Else
p = p & User
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite p, n, itemtype
Title = "Success"
Prompt = User & " is now hidden on the Welcome screen."
MyBox = MsgBox(Prompt, 4096, Title)
End If
Set WshShell = Nothing

Rồi mở menu File > chọn Save As > rồi đặt tên file là an_user.vbs.

Khi cần ẩn account nào, bạn bấm kép lên file này để chạy rồi nhập tên account trong hộp thoạiHide User on Welcome screen.

Sau đó, bạn dễ dàng cho hiển thị lại các account đã ẩn bằng file hien_user.vbs có nội dung như sau:

Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, cn, errnum
p1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\"
t = "UnHide XP User Account"
cn = InputBox("Enter the Username to unhide and click OK", t, "")
If cn <> "" Then
ws.RegDelete p1 & cn
Err.Clear
errnum = Err.Number
If errnum = 0 Then
MsgBox cn & "will show on the Welcome Screen",4096,"Done!"
Else
MsgBox "Please make sure you entered a valid user name",4096,"Error!"
End If

Bạn cũng chạy file này rồi nhập tên account cần hiển thị trong hộp thoại UnHide XP User Account.