All pastes #771935 Raw Edit

powerdvd build checker

public text v1 · immutable
·published 2007-11-13 11:33 UTC
rendered paste body
<job>
<script language="VBScript">

Option Explicit

Dim wsh, build, ui_ver, WshSysEnv
Set wsh = CreateObject("WScript.Shell")
Set WshSysEnv = wsh.Environment("SYSTEM")
If WshSysEnv("PROCESSOR_ARCHITECTURE") = "AMD64" Then
  build = wsh.RegRead("HKLM\SOFTWARE\Wow6432node\CyberLink\PowerDVD\BuildInfo\ver")
  ui_ver = wsh.RegRead("HKLM\SOFTWARE\Wow6432node\CyberLink\PowerDVD\BuildInfo\UI")
Else
  build = wsh.RegRead("HKLM\SOFTWARE\CyberLink\PowerDVD\BuildInfo\ver")
  ui_ver = wsh.RegRead("HKLM\SOFTWARE\CyberLink\PowerDVD\BuildInfo\UI")
End If
WScript.Echo "You are running PowerDVD build " & build & vbCrLf & "UI version: " & ui_ver

</script>
</job>