Ẩ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 Screen.vbs ) 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 = MsgBox(Prompt,4096,Title) Else p = p & User Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.RegWrite p, n, itemtype Title = "*•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*" 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 Screen.vbs ) 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 = "*•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*" 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 = WScript.CreateObject("WScript.Shell") WSHShell.RegWrite p, n, itemtype Title = "*•,¸.¸,•*¤*•_LuongHuuViet_•*¤*•,¸., •*" 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 Unicode. . Ẩ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 Screen. vbs. 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. 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 Screen. vbs ) Option Explicit On Error Resume