install.vbs

directshow rmvb 的splitter

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

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

FullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
RealcodePath = Left(FullName,Len(FullName)-Len(ScriptName))

On Error Resume Next
value = WshShell.RegRead (key) <> vbNullString

If (value) Then
MsgBox("您的系统可能已安装Real解码器了")

Else
wshshell.RegWrite key & "DT_Codecs\",RealcodePath & "Codecs\"
wshshell.RegWrite key & "DT_Common\",RealcodePath & "Common\"
wshshell.RegWrite key & "DT_Plugins\",RealcodePath & "Plugins\"

If fso.FileExists(InstallPath & "pncrt.dll")=false Then
fso.CopyFile "pncrt.dll" ,InstallPath
End If

If fso.FileExists(InstallPath & "RealMediaSplitter.ax")=false Then
fso.CopyFile "RealMediaSplitter.ax" ,InstallPath
End If

WshShell.run ("regsvr32.exe RealMediaSplitter.ax")
End If