'WScript.Echo "***********************ManageEngine OpManager Agent**********************"

'WScript.Echo "Script to Clean up ManageEngine OpManager Agent from Add remove programs..."
'================================================================================

On Error Resume Next

'Get the Agent Installed directory and Registry location details
'===============================================================
Err.Clear
Set WshShell = WScript.CreateObject("WScript.Shell")

checkOSArch = WshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

'Wscript.Echo "checkOSArch" 

if Err Then
	Err.Clear
	'WScript.Echo "The OS Architecture is unable to find ,so it was assumed to be 32 bit"
	regkey = "HKEY_LOCAL_MACHINE\SOFTWARE\ManageEngine\OpManagerAgent"
	subKey = "SOFTWARE\ManageEngine\OpManagerAgent"
else
	if checkOSArch = "x86" Then
		'Wscript.Echo "The OS Architecture is 32 bit"
		regkey = "HKEY_LOCAL_MACHINE\SOFTWARE\ManageEngine\OpManagerAgent"
		subKey = "SOFTWARE\ManageEngine\OpManagerAgent"
	else
		'Wscript.Echo "The OS Architecture is 64 bit"
		regkey = "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\ManageEngine\OpManagerAgent"
		subKey = "SOFTWARE\WOW6432Node\ManageEngine\OpManagerAgent"
	End IF
End If

'Removing the Agent from Add Remove Programs (if uninstallation failed)
'=====================================================================
Err.Clear

   WshShell.RegRead("HKEY_CLASSES_ROOT\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\Net\")
   WshShell.RegDelete "HKEY_CLASSES_ROOT\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\Net\"
   WshShell.RegDelete "HKEY_CLASSES_ROOT\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\Media\"
   WshShell.RegDelete "HKEY_CLASSES_ROOT\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\"
   WshShell.RegDelete "HKEY_CLASSES_ROOT\Installer\Products\EB7B61C0374054341B286EA10269994D\"
   
   WshShell.RegRead ("HKEY_CLASSES_ROOT\Installer\Features\EB7B61C0374054341B286EA10269994D\")
   WshShell.RegDelete "HKEY_CLASSES_ROOT\Installer\Features\EB7B61C0374054341B286EA10269994D\"
   
   
   WshShell.RegRead("HKEY_CURRENT_USER\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\Net\")
   WshShell.RegDelete "HKEY_CURRENT_USER\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\Net\"
   WshShell.RegDelete "HKEY_CURRENT_USER\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\Media\"
   WshShell.RegDelete "HKEY_CURRENT_USER\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\"
   WshShell.RegDelete "HKEY_CURRENT_USER\Installer\Products\EB7B61C0374054341B286EA10269994D\"

   WshShell.RegRead("HKEY_USERS\.DEFAULT\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\Net\")
   WshShell.RegDelete "HKEY_USERS\.DEFAULT\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\Net\"
   WshShell.RegDelete "HKEY_USERS\.DEFAULT\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\Media\"
   WshShell.RegDelete "HKEY_USERS\.DEFAULT\Installer\Products\EB7B61C0374054341B286EA10269994D\SourceList\"
   WshShell.RegDelete "HKEY_USERS\.DEFAULT\Installer\Products\EB7B61C0374054341B286EA10269994D\"

   WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\EB7B61C0374054341B286EA10269994D\Usage\")
   WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\EB7B61C0374054341B286EA10269994D\Usage\"
   WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\EB7B61C0374054341B286EA10269994D\Patches\")
   WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\EB7B61C0374054341B286EA10269994D\Patches\"
   WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\EB7B61C0374054341B286EA10269994D\InstallProperties\")
   WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\EB7B61C0374054341B286EA10269994D\InstallProperties\"
   WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\EB7B61C0374054341B286EA10269994D\Features\")
   WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\EB7B61C0374054341B286EA10269994D\Features\"
   WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\EB7B61C0374054341B286EA10269994D\")
   WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\EB7B61C0374054341B286EA10269994D\"
   
if checkOSArch = "x86" Then 
	WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{0C16B7BE-0473-4345-B182-E61A209699D4}\")
	WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{0C16B7BE-0473-4345-B182-E61A209699D4}\"
else
	WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{0C16B7BE-0473-4345-B182-E61A209699D4}\")
	WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{0C16B7BE-0473-4345-B182-E61A209699D4}\"
End If

   'WScript.Echo "ManageEngine OpManager Agent Remove Add Remove Programs Entry Status:: ErrCode:: " & Err.Number

'Uninstall OpManagerAgent and OpManagerAgent Helper Services (if already avilable )
'====================================================================
Err.Clear
WshShell.Run "%windir%\system32\sc stop "   &Chr(34)& "ManageEngine OpManager Agent"  &Chr(34),0,True
WshShell.Run "%windir%\system32\sc delete " &Chr(34)& "ManageEngine OpManager Agent"  & Chr(34),0,True
WshShell.Run "%windir%\system32\sc stop "   &Chr(34)& "ManageEngine Agent Helper"  &Chr(34),0,True
WshShell.Run "%windir%\system32\sc delete " &Chr(34)& "ManageEngine Agent Helper"  & Chr(34),0,True
   
'WScript.Echo "ManageEngine OpManager Agent uninstallation service:: ErrCode:: " & Err.Number

'WScript.Echo "Kill Process OpManagerAgentTrayIcon.exe..."

KillProcess "OpManagerAgentTrayIcon.exe"

'To kill OpManagerAgent trayicon exe 
'============================

Sub KillProcess(strProcessToKill)
	strComputer = "."

	SET objWMIService = GETOBJECT("winmgmts:" _
	& "{impersonationLevel=impersonate}!\\" _ 
	& strComputer & "\root\cimv2") 

	SET colProcess = objWMIService.ExecQuery _
	("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")

	FOR EACH objProcess in colProcess
		objProcess.Terminate()
	NEXT 
End Sub

'Delete OpManager Agent Directories
'========================================
Err.Clear

Set objFSO = CreateObject("Scripting.FileSystemObject")

agentInstalledDir = WshShell.RegRead(regkey&"\AgentInstallDir")

if agentInstalledDir = "" Then
	if checkOSArch = "x86" Then
		agentInstalledDir = "C:\Program Files\ManageEngine\OpManagerAgent"
	else
		agentInstalledDir = "C:\Program Files (x86)\ManageEngine\OpManagerAgent"
	End IF
End If	

'WScript.Echo "ManageEngine OpManager Agent installed Directory " & agentInstalledDir

if(objFSO.FolderExists(agentInstalledDir) = False) Then
	'WScript.Echo "OpManager Agent folder already deleted!"
else
	set folder = objFSO.GetFolder(agentInstalledDir)
	folder.Delete
	if(objFSO.FolderExists(agentInstalledDir) = False) Then
	'WScript.Echo "OpManager Agent folder deleted successfully"
	else
	'WScript.Echo "Problem in deleting Agent folder: " & agentInstalledDir
	end if
end if

'WScript.Echo "ManageEngine OpManager Agent folder cleanup:: ErrCode:: " & Err.Number

'Removing Agent Registry location details
'==========================================

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

DeleteSubkeys subKey 

Sub DeleteSubkeys(strKeyPath) 
    objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys 

    If IsArray(arrSubkeys) Then 
        For Each strSubkey In arrSubkeys 
            DeleteSubkeys strKeyPath & "\" & strSubkey 
        Next 
    End If 

    objReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath 
End Sub


'WScript.Echo "ManageEngine OpManager Agent registry cleanup:: ErrCode:: " & Err.Number
if Err.Number = -2147024894 Then
	'WScript.Echo "[Registry Not Exist]"
elseif Err.Number = 0 Then 
	'WScript.Echo "[Delete Success]"
End if

WScript.Quit(0)



'**********************************************************************************************************************