unstall.vbs

directshow rmvb 的splitter

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.Shell")

key = "HKEY_CLASSES_ROOT\SOFTWARE\RealNetworks\Preferences\"
InstallPath = "C:\WINDOWS\system32\"

On Error Resume Next
IF (WshShell.RegRead (key & "DT_Codecs\") <> vbNullString) Then
WshShell.RegDelete key & "DT_Codecs\"
WshShell.RegDelete key & "DT_Common\"
WshShell.RegDelete key & "DT_Plugins\"
End If

WshShell.run("regsvr32.exe RealMediaSplitter.ax /u")

If fso.FileExists(InstallPath & "pncrt.dll") Then
fso.DeleteFile("C:\WINDOWS\system32\pncrt.dll")
End If

If fso.FileExists(InstallPath & "RealMediaSplitter.ax") Then
fso.DeleteFile("C:\WINDOWS\system32\RealMediaSplitter.ax")
End If