' Bill James, 30 Oct 2002



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

Set fso = CreateObject("Scripting.FileSystemObject")



RegTmp = ws.Environment("Process")("Temp") & "\RegTmp.tmp "

RegKey = "HKEY_CLASSES_ROOT\CLSID\{87D62D94-71B3-4b9a-9489-5FE6850DC73E}"



ws.Run "regedit /a /e " & RegTmp & RegKey, , True

Set RegFile = fso.OpenTextFile(RegTmp, 1)



NewRegTmp = ws.Environment("Process")("Temp") & "\NewRegTmp.tmp "

Set NewRegFile = fso.OpenTextFile(NewRegTmp, 2, True)



Do While Not RegFile.AtEndOfStream

  RegLine = RegFile.ReadLine

  If InStr(1, RegLine, RegKey, 1) <>  0 Then

    NewRegFile.WriteLine(Replace(RegLine, RegKey, RegKey & "-off"))

  Else

    

    NewRegFile.WriteLine(RegLine)

  End If

Loop



RegFile.Close

NewRegFile.Close



ws.Run "regedit /i /s " & NewRegTmp, , True



DelRegTmp = ws.Environment("Process")("Temp") & "\DelRegTmp.tmp "

Set DelRegFile = fso.OpenTextFile(DelRegTmp, 2, True)

DelRegFile.Write("REGEDIT4" & vbcrlf & "[-" & Mid(RegKey, 1) & "]")

DelRegFile.Close

ws.Run "regedit /i /s " & DelRegTmp, , True



fso.DeleteFile(RegTmp)

fso.DeleteFile(NewRegTmp)

fso.DeleteFile(DelRegTmp)

Set ws = Nothing

Set fso = Nothing

Set RegFile = Nothing

Set NewRegFile = Nothing

Set DelRegFile = Nothing



msgbox "Done"