Scripting

Hi,
I ve got a vendor MSI and it leaves by uninstall the INSTALLDIR folder. Well, no problem, one custom action and the problem is gone like by hundred other MSIs.

But the problem is, it doesnt work. meanwhile I tried everything... I guess.

As WMI gives me error code 15, eventlogger tells me by VBS Path doesnt exist or Permission denid. The path is correct and the scripts run without problems under my account and with other MSI.

I tried following scripts:
Dim arrFolders()
Dim objWMIService
intSize = 0

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

objWMIService.Security_.ImpersonationLevel = 3
objWMIService.Security_.privileges.addasstring "SeDebugPrivilege", True

strFolderName = "C:\Program Files\pipc\Procbook\"
strFolderName = left(strFolderName, len(strFolderName)-1)
MSGBOX strFolderName

Set colSubfolders = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")

ReDim Preserve arrFolders(intSize)
arrFolders(intSize) = strFolderName
intSize = intSize + 1

For Each objFolder in colSubfolders
GetSubFolders strFolderName
Next

Sub GetSubFolders(strFolderName)
Set colSubfolders2 = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")

For Each objFolder2 in colSubfolders2
strFolderName = objFolder2.Name
ReDim Preserve arrFolders(intSize)
arrFolders(intSize) = strFolderName
intSize = intSize + 1
GetSubFolders strFolderName
Next
End Sub

For i = Ubound(arrFolders) to 0 Step -1
strFolder = arrFolders(i)
strFolder = Replace(strFolder, "\", "\\")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where Name = '" & strFolder & "'")

For Each objFolder in colFolders
errResults = objFolder.Delete
MSGBOX errResults
Next
Next

-------------------------------------------

dim filesys
dim fso
set fso = CreateObject ("Scripting.FileSystemObject")

if fso.folderexists(Session.Property("CustomActionData")) then
Call fso.DeleteFolder(Session.Property("CustomActionData"),true)
end if
Set fso = Nothing

--------------------------------------------------------------

On Error Resume Next

dim filesys
dim demofolder
dim installdir
dim fso
set fso = CreateObject ("Scripting.FileSystemObject")
demofolder = Session.Property("CustomActionData")
demofolder = left(demofolder, len(demofolder)-1)

if fso.FolderExists(demofolder) then
Call fso.DeleteFolder(demofolder,true)
end if
Set fso = Nothing



All these work (I know that the first is hardcoded ;))

As somebody please any tip, I mean it can be so difficult to delete an empty folder (yes, it is really empty)

Thx