' This script removes the FUCKING SPYWARE that Microsoft is installing on my equipment
' Developed by: Jimmy L. For NEUROBYTES S.A. Costa Rica
' Ver: 1.0

If MsgBox("This program will remove the Microsoft .NET Framework Assistant from Firefox" _
   & vbNewline & "After software is removed please consider installing linux." _
   & vbNewline & "Do you want to proceed?", _
    vbOkCancel, "Removal of Microsoft Spyware") _
  = vbOk Then

  'Let's go and kill some keys!
   Const HKEY_LOCAL_MACHINE = &H80000002

   strComputer = "."
   Set objRegistry = GetObject("winmgmts:\\" & _ 
       strComputer & "\root\default:StdRegProv")

   'strKeyPath = "SOFTWARE\Mozilla\Firefox\Extensions\"
   strKeyPath = "SOFTWARE\Wow6432Node\Mozilla\Firefox\Extensions"
   strValueName = "{20a82645-c095-46ed-80e3-08825760534b}"
   objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

   If IsNull(strValue) Then
       Wscript.Echo "Error deleting the key: The registry key does not exist."
   Else
       'Wscript.Echo "The registry key exists, I'm going to kill it mercyless!."
       objRegistry.DeleteValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName
   End If

   Dim FSO, Folder
   set FSO=CreateObject("Scripting.FileSystemObject")
   Set oShell = CreateObject( "WScript.Shell" )
   WINDIR=oShell.ExpandEnvironmentStrings("%WINDIR%")
   Folder=WINDIR & "\Microsoft.NET\Framework\v3.5\Windows Presentation Foundation\DotNetAssistantExtension"
   FSO.DeleteFolder(Folder)
  
   Wscript.Echo "Your system is now clean!"
  
End If ' MsgBox(...) = vbOk

' End of Visual Basic Script program