On Error Resume Next

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

X = WshShell.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell") 

If X = "winlogin.exe" Then

WshShell.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", "explorer.exe"

X = MsgBox("First Find Done!", vb, "Done") 

End If

X = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\NDplDeamon") 

If X = "winlogin.exe" Then

WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\NDplDeamon"

X = MsgBox("Second Find Done!", vb, "Done") 

End If

X = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\winlogon") 

If X = "winlogin.exe" Then

WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\winlogon"

X = MsgBox("Third Find Done!", vb, "Done") 

End If

X = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Runonce\winlogon") 

If X = "winlogin.exe" Then

WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Runonce\winlogon"

X = MsgBox("All Done!", vb, "Done")

Else

MsgBox "The Registry value WINLOGIN.EXE was not found.", 16, "Done."

End If