Well something that you might want to think about running is re-registering all the DLL files. Not all of them require registering, so it runs silently. Often some of the new spyware crap is destroying some of the COM registrations of valid DLL files so this restores them for most.

1. Make sure you first remove ALL spyware and similar junk from the system otherwise this could easily re-enable spyware that was otherwise crippled.
2. Run a FULL CHKDSK /F /R on the volume before hand as well to fix possible errors.

When you are reasonably certain that the system is clean you can then run something like this.

Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
  
Dim $DLL,$DLLS
$DLLS = Dir(@LANRoot+'\*.dll')
While $DLLS <> "" And @ERROR = 0
  $DLLS = $DLLS + @CRLF + Dir()
Loop
$DLLS=Split($DLLS,@CRLF)
For Each $DLL In $DLLS
  If $DLL
    SHELL '%COMSPEC% /e:1024 /c REGSVR32 /S ' + $DLL
  EndIf
Next