uninstall e-trust

Nov 11, 2008 at 2:06 PM
there is anyway by which i can uninstall existing e-trust 7.0 antivirus via script or via GPO.

Thanks
Nov 12, 2008 at 9:04 PM
Yes.  Below is code I've implemented to remove eTrust ITM (v8 and later).  All you would have to do is get the product GUIDs for eTrust v7 and you won't need the code to remove iGateway as that came with v8,

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 2007
'
' NAME:
'
' AUTHOR:
' DATE  : 11/12/2008
'
' COMMENT:
'
'==========================================================================

Call Main()
'//////////////////////////////////////////////////////////////////////////
'//////////////////////////////////////////////////////////////////////////
Private Sub Main()
 Call RemoveCAeTrust()
End Sub
'//////////////////////////////////////////////////////////////////////////
'//////////////////////////////////////////////////////////////////////////
Private Sub RemoveCAeTrust()
 Dim Shell
 
 Set Shell = CreateObject("WScript.Shell")
 
 'Uninstall eTrust ITM
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{99747F0D-D4F8-4877-9CA0-4AE96D963633} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{A73227F9-C4B0-4018-B0B0-4DCAF791A29E} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{95C695FB-C00A-45A2-8541-416F55A800B1} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{107558C8-458B-45EA-A0FE-7CC10D687DB6} /q /norestart")
 
 'Uninstall iGateway
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{6245BE3C-A02C-4A4F-920F-4A6AADD7941E} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{7DC966E4-AE00-4570-AC90-7378ADEDC71C} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{05D7FE59-DCDC-402E-97B0-B9EBA6C09242} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{47A1DBFB-6939-4991-8CBE-E0F28A1088BB} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{F38D01E7-A82B-462F-8790-42C071B8BEC0} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{4E2EA248-BDE8-4DE7-B51D-D46A2B7581F2} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{A1686549-C7AD-4509-B5A6-FC206DF51FC9} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{94AC8C0A-EC8C-4BAF-B64C-BAA8BEAB0459} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{02DCC23D-3D80-42BC-A506-9E7AFFA6F842} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{54056D16-28C6-4673-BC84-77DA7553EF70} /q /norestart")
 Call Exec(Shell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\MSIEXEC.EXE", "/X{847501DF-07C0-4691-B04A-893929F108AE} /q /norestart")

 Set Shell = Nothing
End Sub
'//////////////////////////////////////////////////////////////////////////
'//////////////////////////////////////////////////////////////////////////
Private Function Exec(ByVal Path, ByVal Params)
 Dim objShell
 
 Path = Chr(34) & Path & Chr(34) & " " & Params
 'WScript.Echo Path
  
 Set objShell = CreateObject("WScript.Shell")
 Call objShell.Run(Path, 0, True)

 Set objShell = Nothing
End Function
'//////////////////////////////////////////////////////////////////////////
'//////////////////////////////////////////////////////////////////////////

Nov 14, 2008 at 4:39 PM

Thanks for your reply,

why did u used 4 differenet GUID in uninstall etrust ITM?

 

Jan 7, 2009 at 8:54 PM
Each GUID is associated with a different release version of eTrust.