Forum Discussion

pjaudrey's avatar
pjaudrey
Occasional Contributor
14 years ago

Unistall and Installation automation script

Hi, I am having trouble to have the ‘Display Object Spy’ from Test Complete to ‘highlight’ on below screens. (Please refer to the attached screen) I just want to know how to go about implem...
pjaudrey's avatar
pjaudrey
Occasional Contributor
14 years ago
Hi,



1.  The return objectlist is empty.  Could you please advice way forward.  Thanks..

2.  Attached jpg for my application name



Sub UninstallApplication() 

Dim wmiService, objectsList, ObjService   

Dim computerName, applicationName

computerName = "mykul009647w"

applicationName = "MYOB EXO Business"


Set wmiService = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & computerName & "\root\cimv2")   

Set objectsList = wmiService.ExecQuery("SELECT * FROM Win32_Product " & "WHERE Name='" & applicationName & "'")

Call log.Error(objectsList.count)

'HEREOK   

For Each ObjService in ObjectsList   

'Script did not enter into this loop

  If (Not ObjService.item.Uninstall()) Then     

      Call Log.Error("An error occurs when uninstalling the " & applicationName & " application")

      UninstallApplication = False     

      Exit Sub   

  End If   

  Exit Sub

  Next 

  'UninstallApplication = True

  Call Log.Error("Exit") 

End sub



Regards,

audrey Ng