[Iska]

Код:

Option Explicit

Dim strPath

Dim objFSO
Dim objWshShell


strPath = "C:\Program Files\CyberLink\PowerDVD"

Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")

If objFSO.FolderExists(strPath) Then
	objFSO.DeleteFolder "C:\Program Files\CyberLink", True
	objFSO.DeleteFolder "C:\Program Files\InstallShield Installation Information", True
	objWshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\{6811CAA0-BF12-11D4-9EA1-0050BAE317E1}\"
End If

Set objWshShell = Nothing
Set objFSO      = Nothing

WScript.Quit 0

То, что Вы делаете, в корне неправильно: надо проверять раздел в реестре в «HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\XXX», если таковой найден — брать оттуда параметр «UninstallString» и использовать его. Вы же тупо удаляете всю папку «C:\Program Files\CyberLink» и всю папку «C:\Program Files\InstallShield Installation Information», удаляете весь раздел «HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\{6811CAA0-BF12-11D4-9EA1-0050BAE317E1}».