Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
uninstall an add-in
Hi, I'm trying to figure out how to accomplish somehting:
I have an add-in and I would like it to chek the computer's name when installed, if the computer's name does not match the default registered computer's name (Leon1 in this case) then the add-in is uninstalled (uninstall itself). The code works fine until the AddIns("Periodical Table").Install=false is called: Private Sub Workbook_AddinInstall() strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") With Workbooks("periodical Table.xla").Sheets(2) For Each objComputer In colSettings If LCase(objComputer.Name) < "leon1" Then MsgBox "The program has detected that you coppied the add-in, please contact your program provider", vbOKOnly, "Illegal copy detection" AddIns("Periodical Table").Install=false Else: GoTo nx End If Next End With nx: End Sub It does not appear any error, the msgbox works well but it nevers uninstall the add-in. TIA |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
uninstall an add-in
See your other posts. -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Uninstall Office Products | Excel Discussion (Misc queries) | |||
Uninstall Addin | Excel Programming | |||
Excel: How to uninstall a COM add-in built with VB .NET | Excel Programming | |||
Help with Uninstall Event | Excel Programming | |||
How to uninstall XP PIAs | Excel Programming |