I tried the uninstaller
But got a error message on reboot.
Its still to to install!
Heres the message i got.
Should i try it again?
on error resume next
set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder="C:\Program Files\ca\CA Internet Security Suite\CA Personal Firewall"
objFSO.DeleteFolder strFolder
strFolder="C:\Documents and Settings\All Users\Start Menu\Programs\CA\CA Internet Security Suite\CA Personal Firewall"
objFSO.DeleteFolder strFolder
strFolder="C:\Program Files\ca\SharedComponents\HIPSEngine"
objFSO.DeleteFolder strFolder
set objFSO = nothing
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath="SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{C3E7091E-E650-4951-B8A4-1FE6252D52C3}"
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeypath
strKeyPath="SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\eTrust Suite Personal\pfw"
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeypath
strKeyPath="SOFTWARE\ComputerAssociates\eTrust Suite Personal\pfw"
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeypath
strKeyPath="SOFTWARE\CA"
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeypath
strKeyPath="Software\CA\CAPF"
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeypath
strKeyPath="SOFTWARE\Classes\Installer\Products\B1BAABDB463BE56439D1E4E2F2E006A9"
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeypath
set objRegistry = Nothing
Sub DeleteSubkeys(HKEY_LOCAL_MACHINE, strKeyPath)
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys
If IsArray(arrSubkeys) Then
For Each strSubkey In arrSubkeys
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeyPath & "\" & strSubkey
Next
End If
objRegistry.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
End Sub