Jump to content

Add Message above User Name & Password

Recommended Posts

Save this codes as a .vbs

Option Explicit

Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim WSHShell, n, MyBox, p, itemtype

p = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"
p = p & "LogonPrompt"
itemtype = "REG_SZ"
n = ""

WSHShell.RegWrite p, n, itemtype

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, n2, cn

p1 = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"

n2 = ws.RegRead(p1 & "LogonPrompt")
t = "Personalized Message"
cn = InputBox("Type the New Message to appear above the User Name and Password and click OK", t, n)
If cn <> "" Then
ws.RegWrite p1 & "LogonPrompt", cn
End If

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Create New...