'Fix Windows XP Logon
'For use when a 3rd party app, such as PCAnywhere, replaces the 
'Windows XP Logon
'fixxplogon.vbs
'© Doug Knox - 1/13/2002
'Downloaded from http://www.dougknox.com
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