Ẩn/Hiện nhanh account trên màn hình Wellcome Screen Ẩn account trên màn hình Wellcome Screen Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs ( VD: Hide Account On Welcome ) 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 = "Điền tên người sử dụng muốn ẩn tại đây :" Title = "*•,.,•*¤*•_LuongHuuViet_•*¤*•,., •*" User = InputBox(Prompt, Title,"") If User = "" Then Title = "Error !!!" Prompt = "Chưa điền tên người sử dụng muốn ẩn." MyBox =. | Ẩn Hiện nhanh account trên màn hình Wellcome Screen Ẩn account trên màn hình Wellcome Screen Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs VD Hide Account On Welcome 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 Điền tên người sử dụng muốn ẩn tại đây Title 0 e _LuongHuuViet_ 0 e User InputBox Prompt Title If User Then Title Error Prompt Chưa điền tên người sử dụng muốn ẩn. MyBox MsgBox Prompt 4096 Title Else p p User Set WSHShell p n itemtype Title n _LuongHuuViet_ n j. Prompt User đã được ẩn trong màn hình Welcome screen. MyBox MsgBox Prompt 4096 Title End If Set WshShell Nothing Sau đó tiến hành thực thi file vừa tạo và làm theo hướng dẫn. Hiện account trên màn hình Wellcome Screen Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs VD UnHide Account On Welcome 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 1 Prompt Điền tên người sử dụng muốn hiện tại đây Title a _LuongHuuViet_ n J. User InputBox Prompt Title If User Then Title Error Prompt Chưa điền tên người sử dụng muốn hiện. MyBox MsgBox Prompt 4096 Title Else p p User Set WSHShell p n itemtype Title n _LuongHuuViet_ n j. Prompt User đã được hiện tại màn hình Welcome screen. MyBox MsgBox Prompt 4096 Title End If Set WshShell Nothing Sau đó cũng tiến hành thực thi file vừa tạo và làm theo hướng dẫn. Lưu ý Khi lưu thành file .vbs thì chọn File - Save as. và chọn Unicode tại trường Encoding để hiển thị đúng phông .
