Remove the winlogin.exe Error. (VBScript)
| 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 |