On Error Resume Next Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\GinaDLL" Message = "Your Windows Logon Screen is restored" & vbCR & vbCR Message = Message & "You may need to log off/log on, or" & vbCR Message = Message & "restart for the change to take effect." X = MsgBox(Message, vbOKOnly, "Done") Set WshShell = Nothing