Add Message above User Name & Password

[MGadAllah]

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