'-- This file contains the text of a VBScript. It must be
'-- saved as a file with extension .vbs in order to work.
'-- The script will add  settings to the Windows Registry
'-- to "spoof" support for all .Net Frameworks up to v. 3.5.
'-- The script can also remove those settings.

Dim SH, s2, sReg, Ret, sMsg
On Error Resume Next

sMsg = "This script can add Registry entries to make software think that you have all versions of .Net installed."
sMsg = sMsg & " Click YES to add settings or NO to remove them. CAUTION: Using this script could affect installed "
sMsg = sMsg & "software if any of your software uses .Net. If you do not understand what this script will do, click CANCEL."

Ret = MsgBox(sMsg, 35, "DotNet Spoof")

If Ret = 2 Then WScript.quit

Set SH = CreateObject("WScript.Shell")

If (Ret = 6) Then
  s1 = "HKLM\SOFTWARE\Microsoft\.NETFramework\policy\v1.0"
  SH.RegWrite s1, "3705", "REG_SZ"

  s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322\Install"
  SH.RegWrite s1, 1, "REG_DWORD"
  s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322\SP"
  SH.RegWrite s1, 3, "REG_DWORD"
  s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322\MSI"
  SH.RegWrite s1, 3, "REG_DWORD"

  s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727\Install"
   SH.RegWrite s1, 1, "REG_DWORD"
  s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727\SP"
   SH.RegWrite s1, 3, "REG_DWORD"
  s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727\MSI"
   SH.RegWrite s1, 3, "REG_DWORD"
   
 s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5\Install"
  SH.RegWrite s1, 1, "REG_DWORD"
 s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5\SP"
  SH.RegWrite s1, 3, "REG_DWORD"
 s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5\MSI"
  SH.RegWrite s1, 3, "REG_DWORD"

 s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Setup\InstallSuccess"
   SH.RegWrite s1, 1, "REG_DWORD"
 s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Setup\SP"
   SH.RegWrite s1, 3, "REG_DWORD"
 s1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Setup\MSI"
   SH.RegWrite s1, 3, "REG_DWORD"
   
Else
  SH.RegDelete "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Setup\"
   SH.RegDelete "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5\"
   SH.RegDelete "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727\"
   SH.RegDelete "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322\"
   SH.RegDelete "HKLM\SOFTWARE\Microsoft\.NETFramework\policy\"
End If



  Set SH = Nothing
  MsgBox "OK"