'9x_gpixfix.vbs - Removes the GPix virus from 9x systems.
'Copyright 2003 - Doug Knox

On Error Resume Next

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

strIsPresent = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\GPIXFIX")

X = WScript.ScriptFullName

If strIsPresent <> X Then

   WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\GPIXFIX", X
   
   WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Explorer"

   MsgBox "You need to reboot your computer NOW for the Script to complete its task.", vbOkOnly, "Reboot requireed"

   Else

   Set FSO = CreateObject("Scripting.FileSystemObject")
   
   WinSysDir = fso.GetSpecialFolder(1)
   
   If fso.FileExists(WinSysDir & "\shellexpl.exe") Then
      X = fso.DeleteFile(WinSysDir & "\shellexpl.exe", True)
      X = fso.DeleteFile(WinSysDir & "\hndldt.ini", True)
      X = fso.DeleteFile(WinSysDir & "\winhndl.ini", True)
   End If

MsgBox "The GPix virus should now be removed from your system." & vbCR & vbCR & "Copyright 2003 - Doug Knox", vbOkOnly, "Finished."   
Set FSO = Nothing
   
WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\GPIXFIX"

Set WshShell = Nothing

End If