Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
problem uninstalling an add-in
yesterday I asked:
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").Installed=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
|
|||
|
|||
problem uninstalling an add-in
please note that I add the AddIns("Periodical Table").Installed=false
correctly, yesterdays post suggested that I wrot wrongly the command, however, the command was well written obtaining the same results How to uninstall the add-in??? "filo666" wrote: yesterday I asked: 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").Installed=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").Installed=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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
problem uninstalling an add-in
Oops, sorry, forgot to paste the declaration part, so here it is:
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long Cordially Pascal "papou" a écrit dans le message de news: ... Hello You should consider using the API function GetComputerName instead, it would prevent you from using a loop. Place this in the top declaration in your module: And then amend your code as follows: Private Sub Workbook_AddinInstall() Dim sTempString As String, sCompName As String Dim lBuffer As Long sTempString = Space(250) lBuffer = 251 GetComputerName sTempString, lBuffer sCompName = Split(sTempString, Chr(0))(0) If Lcase(sCompName) < "leon1" Then AddIns("Periodical Table").Installed = False: Exit Sub End If End Sub HTH Cordially Pascal "filo666" a écrit dans le message de news: ... please note that I add the AddIns("Periodical Table").Installed=false correctly, yesterdays post suggested that I wrot wrongly the command, however, the command was well written obtaining the same results How to uninstall the add-in??? "filo666" wrote: yesterday I asked: 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").Installed=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").Installed=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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
uninstalling an add in | Excel Programming | |||
Problem with Interop.Excel after uninstalling Office 2007 and installing Office 2003 | Excel Programming | |||
Problem when uninstalling an Add-in | Excel Programming | |||
Problem uninstalling an Add-in | Excel Discussion (Misc queries) | |||
Uninstalling an add-in | Excel Programming |