Installshield Update Manager Update Agent austrixen

Aus eigener Erfahrung habe ich leidvoll feststellen müssen, dass der Update Agent von Installshield äußerst lästig ist und sich kaum entfernen lässt. Es gibt zwar ein Tool zum Entfernen des Agent, im Silent-Betrieb ist es aber tlw. instabil.
Deshalb hier ein kleines HowTo wie man den Agent austrixen und wirkungslos machen kann!

Wer keine Silentroutinen benötigt lädt sich am besten einfach das Tool "SoftwareManagerUninstall.exe" von Installshield. Es akzeptiert den Parameter /s um es silent auszuführen, bricht aber des öffteren mit Fehlern ab, wenn es silent ausgeführt wird. Deshalb ist es für ein Einsatz in großen Umgebungen nicht geeignet.

Download: http://support.installshield.com/kb/files/Q112918/SoftwareManagerUninst ...

Die meiner Ansicht sicherste Variante ist folgende:

1) Navigiere zu "C:\Program Files (x86)\Common Files\InstallShield\UpdateService" (x64-Systeme). Bei x86-Systemen "C:\Program Files\Common Files\InstallShield\UpdateService".

2) Nun die Datei Agent.exe umbenennen auf Agent.exe.bak

3) Ein einfaches Textfile (.txt) erstellen und diese umbenennen zu Agent.exe (Nicht löschen, sie wird sonst einfach erneuert beim nächsten Ausführen per Sceduler)

4) Diese Fake-Exe in oben genannten Ordner kopieren

5) Falls vorhanden in den Ordner C:\ProgramData\\Macrovision\FLEXnet Connect\<ZAHL> navigieren

6) Hier ebenfalls ein .BAK anhängen

5) Fertig! Der Agent fährt schnurstrax ins Nirvana wo er hingehört!

Dass ganze per Script:

====================================================================================================================
Dim objShell : Set objShell = WScript.CreateObject("Wscript.Shell")  
Dim objFso : Set objFso = WScript.CreateObject("Scripting.FileSystemObject")  
Dim CDir : CDir = objFso.GetParentFolderName(WScript.ScriptFullName)
Dim OSArchitecture
Dim Common
On Error Resume Next
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)  

Dim objItem 'as Win32_OperatingSystem  
For Each objItem in colItems
	OSArchitecture = objItem.OSArchitecture
Next

'Updateservice deaktivieren  
If OSArchitecture = "x64" Then  
	Common = objShell.ExpandEnvironmentStrings("%CommonProgramFiles(x86)%")  
	If objFso.FileExists(Common & "\InstallShield\UpdateService\agent.exe") Then  
		objFso.MoveFile Common & "\InstallShield\UpdateService\agent.exe", Common & "\InstallShield\UpdateService\agent.exe.bak"  
	End If
	
	objShell.Run Chr(34) & WinDir & "\system32\robocopy.exe" & Chr(34) & " " & _  
				Chr(34) & CDir & "\CopyTo" & Chr(34) & " " & _  
				Chr(34) & common & "\InstallShield\UpdateService" & Chr(34) & " /E", 0, true  
Else
	Common = objShell.ExpandEnvironmentStrings("%CommonProgramFiles%")  
	If objFso.FileExists(Common & "\InstallShield\UpdateService\agent.exe") Then  
		objFso.MoveFile Common & "\InstallShield\UpdateService\agent.exe", Common & "\InstallShield\UpdateService\agent.exe.bak"  
	End If
	
	objShell.Run Chr(34) & WinDir & "\system32\robocopy.exe" & Chr(34) & " " & _  
				Chr(34) & CDir & "\CopyTo" & Chr(34) & " " & _  
				Chr(34) & Common & "\InstallShield\UpdateService" & Chr(34) & " /E", 0, true  


End If

If objFso.FolderExists(objShell.ExpandEnvironmentStrings("%ProgramData%") & "\Macrovision\FLEXnet Connect\6") Then  
Set Folder = objFso.GetFolder(objShell.ExpandEnvironmentStrings("%ProgramData%") & "\Macrovision\FLEXnet Connect\6")  
	For Each item in Folder.files
		objFso.MoveFile item.path, item.path & ".BAK"  
	Next
End If
===================================================================================================================== 