'xp_openme_fix.vbs - Removes the run entry for the Openme.exe file
'© Doug Knox - Modified 3-25-02

Dim WshShell, p1, p2

Set WSHShell = WScript.CreateObject("WScript.Shell")
p1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell"
p2 = "Explorer.exe"
WshShell.RegWrite p1, p2
Set WshShell = Nothing

MsgBox "Finished!", 4096, "Done!"