|
I knocked together a VERY quick Autoit script, which you're more than welcome to use :-)
It's a slight variation on the official KB, as it gets rid of all of the Altiris registry entry, and the uninstall is done over 3 runs, rather than 1..
This is based on Juice tech tip 2249 (I can't post the link yet as I don't have enough postings)
Forgive my code - I am teh suck, or something...
Dim $Exe
Dim $Syntax
Dim $BAT
Dim $RegKey
Dim $Dir
$Dir = "C:\Program Files\Altiris\ALTIRIS AGENT"
$Exe = $Dir & "\AeXAgentUtil.exe"
; Check file exists first, exit if not.
If FileExists($Exe) = 0 then
msgbox(16, "File error", $Exe & " not found. Exiting", 2)
EXIT
EndIf
; Got this far, so here we go..
; Generate the uninstall BAT file
$Syntax = "@ECHO OFF" & @CRLF
$Syntax = $Syntax & Chr(34) & $EXE & Chr(34) & " /DeleteDevices" & @CRLF
$Syntax = $Syntax & Chr(34) & $EXE & Chr(34) & " /UninstallAgents" & @CRLF
$Syntax = $Syntax & Chr(34) & $EXE & Chr(34) & " /Clean" & @CRLF
$BAT = @TempDir & "\CleanAlt.bat"
$Write = FileOpen($BAT, 2)
FileWriteLine($Write, $Syntax)
FileClose($Write)
RunWait($BAT, @TempDir, @SW_HIDE)
FileDelete($BAT)
; Get rid of Altiris registry entry
RegDelete("KEY_LOCAL_MACHINE\SOFTWARE\Altiris")
; Get rid of Altiris* Classes
For $i= 1 to 65535
$RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes"
$RegVal = RegEnumKey($RegKey, $i)
If @error <> 0 then ExitLoop
If StringMid($RegVal, 1, 7) = "Altiris" then
RegDelete($RegKey & "\" & $RegVal)
EndIf
Next
; Get rid of AppID
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\App ID\{5E038245-CF81-44BE-8018-9A2981B9DC9B}")
; Get rid of AEX*.* under Windows directory
FileDelete(@WindowsDir & "\AeX*.*")
; Get rid of the Agent Program folder
DirRemove($Dir, 1)
|
