- 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
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.
Đọc thêm »
{ 0 nhận xét... read them below or add one }
Đăng nhận xét