Scripting

Hi,


I have writen a vbscript to remove some registry keys during uninstallation.It works fine when run noramlly but when i call it from a custom action (call VBScript from embedded code) it gives error 1720 script could not be executed.


Dim WshShell, bKey
Set WshShell = CreateObject("WScript.Shell")

Const HKLM = &H80000002
Dim strKey
Dim arrSubKeys()
Dim objReg
Dim strComputer
Dim abc

strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKey = "Software\xyz"
objReg.EnumKey HKLM, strKey, arrSubKeys

'The next section will just go through the array to find the desired key.

For intI = 0 to UBound(arrSubKeys)
If arrSubKeys(intI) = "abc" Then
abc = arrSubKeys(intI)
End If
Next


If abc = "abc" and UBound(arrSubKeys) = 0 Then
WshShell.RegDelete "HKLM\Software\xyz\abc\"
WshShell.RegDelete "HKLM\Software\xyz\"
End If

If abc = "abc" and UBound(arrSubKeys) > 0 Then
WshShell.RegDelete "HKLM\Software\xyz\abc\"
End If

can anybody tell me how i can get this code to work from a custom action..looks like the Enumkey method is not being recognised..any
help would be greatly appreciated..Thanks in advance