Option Explicit



Set WSHShell = WScript.CreateObject("WScript.Shell")

Dim WSHShell, n, MyBox, p, itemtype



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

p = p & "LegalNoticeCaption"

itemtype = "REG_SZ"

n = ""



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

p = p & "LegalNoticeText"

itemtype = "REG_SZ"

n = ""



WSHShell.RegWrite p, n, itemtype





Set ws = WScript.CreateObject("WScript.Shell")

Dim ws, t, p1, p2, n1, cn 





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



n1 = ws.RegRead(p1 & "LegalNoticeCaption")

t = "Logon, Logoff Message Dialog Boxes"

cn = InputBox("Type Logon Message and click OK", t, n)

If cn <> "" Then

  ws.RegWrite p1 & "LegalNoticeCaption", cn

End If



n1 = ws.RegRead(p1 & "LegalNoticeText")

t = "Logon, Logoff Message Dialog Boxes"

cn = InputBox("Type Logoff Message and click OK", t, n)

If cn <> "" Then

  

  ws.RegWrite p1 & "LegalNoticeText", cn





End If