Create a legal notice popup during logon.Create a legal notice popup during logon. Create a legal notice popup during logon.
Look at the following script or look in the Scripts section of this website.
' ' '===============================================================================================================
' ' ' Situation: Registry Update- LegalNotice Create a legal notice popup during logon.
' ' ' provided by RATokeshi www.tokeshi.com
' ' ' Created: 2003 10 29 2214
' ' ' Modified: 2003 10 29 2214
'
' ' ' COMMENT: Look for the 2 lines in the MODIFY HERE! area. Input your chosen text here
' ' ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.0 www.tokeshi.com
' ' '---------------------------------------------------------------------------------------------------------------
' ' 'To make debugging easier use the Explicit declaraton of variables option. This section is
' ' ' included if this is to be snipped for stand alone code. If Option Explicit has not been
' ' ' enabled un-comment the following line.
Option Explicit 'Does not allow variables that are not declared using the Dim or Const statements to be used.
' Dim sLegalNoticeText, sLegalNoticeCaption
'
const sLegalNoticeCaption = "This is the stuff up top."
const sLegalNoticeText = "This is the stuff inside the box."
'
' ' '
' ' 'If the WScript.Shell object has not ben instanced, un-comment the following 2 lines.
Dim Shell 'This establishes the variable Shell that will become the WScript.Shell object.
Set Shell = CreateObject("WScript.Shell")'Establish the WScript.Shell object: Shell
' '
Const Reg_LegalNoticeText = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText" 'Set constant as the registry path to the desired key.
Shell.RegWrite(Reg_LegalNoticeText),sLegalNoticeText , "REG_SZ" ' Write new value to registry.
' MsgBox Shell.RegRead(Reg_LegalNoticeText) 'This provides the administrator with key enumeration/ verification.
' '
Const Reg_LegalNoticeCaption = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption" 'Set constant as the registry path to the desired key.
Shell.RegWrite(Reg_LegalNoticeCaption),sLegalNoticeCaption , "REG_SZ" ' Write new value to registry.
' MsgBox Shell.RegRead(Reg_LegalNoticeCaption) 'This provides the administrator with key enumeration/ verification.
' '
' ' '===============================================================================================================
Primary links
User login
Who's new
- Choodogek
- zepsleltpap
- layersepavy
- moneytome12
- maczugaher
