Script to Uninstall ACLIENT from the Machine [Uninstall & Cleanup Script]

Here is my script to uninstall ACLIENT from the machine. The script will uninstall using uninstall command and cleans up registry, files and folders which are remaining after the uninstall. Change the script according to your requirements. Good luck.

'DECLARE VARIABLES
'On Error Resume Next
Dim path

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set shell = CreateObject("WScript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")
Set env = shell.Environment("Process")
Systemdrive = env.Item("Systemdrive")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
   strComputer & "\root\default:StdRegProv")
'===========================================================
'CHANGE THE PATH OF THE EXE ACCORDING TO YOUR REQUIREMENT
path = Chr(34) & "C:\altiris\aclient\aclient.exe" & Chr(34) & " /remove /silent"
'===========================================================
'shell.Run(path, 1, true)

'WScript.Sleep 30000

'=======================================================================
'FIND AND DELETE FILES
'=======================================================================
If fso.FileExists (Systemdrive & "\aclient.cfg") Then
 fso.DeleteFile (Systemdrive & "\aclient.cfg"), true
End If
If fso.FileExists (Systemdrive & "\WINDOWS\System32\drivers\AlKernel.sys") Then
 fso.DeleteFile Systemdrive & "\WINDOWS\System32\drivers\AlKernel.sys", true
End If
If fso.FileExists (Systemdrive & "\WIndows\Temp\alsmb.exe") Then
 fso.DeleteFile Systemdrive & "\Windows\Temp\alsmb.exe", True
End If
If fso.FolderExists (Systemdrive & "\Altiris\AClient") Then
 fso.DeleteFolder Systemdrive & "\Altiris\AClient", true
End If
If fso.FolderExists (Systemdrive & "\altiris") Then
 fso.DeleteFolder Systemdrive & "\Altiris", True
End If
'=======================================================================

'=======================================================================
'FIND AND DELETE REGISTRY KEYS
'=======================================================================
strKeyPath = "SYSTEM\CurrentControlSet\Enum\Root\LEGACY_ACLIENT"
oReg.EnumValues HKEY_LOCAL_MACHINE,strKeyPath,arrValueNames, arrValueTypes
If IsNull(arrValueNames) Then 
     'Wscript.Echo "The registry key does not exist!"
Else
 'Wscript.Echo "The registry key exists!"
 shell.RegDelete "HKLM\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_ACLIENT\"
End If

strKeyPath = "SYSTEM\ControlSet001\Enum\Root\LEGACY_ACLIENT"
oReg.EnumValues HKEY_LOCAL_MACHINE,strKeyPath,arrValueNames, arrValueTypes
If IsNull(arrValueNames) Then 
     'Wscript.Echo "The registry key does not exist!"
Else
 'Wscript.Echo "The registry key exists!"
 shell.RegDelete "HKLM\SYSTEM\ControlSet001\Enum\Root\LEGACY_ACLIENT\"
End If

strKeyPath = "SYSTEM\ControlSet001\Services\AClient"
oReg.EnumValues HKEY_LOCAL_MACHINE,strKeyPath,arrValueNames, arrValueTypes
If IsNull(arrValueNames) Then 
     'Wscript.Echo "The registry key does not exist!"
Else
 'Wscript.Echo "The registry key exists!"
 shell.RegDelete "HKLM\SYSTEM\ControlSet001\Services\AClient\"
End If

'shell.RegDelete "HKLM\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_ACLIENT\"
'shell.RegDelete "HKLM\SYSTEM\ControlSet001\Enum\Root\LEGACY_ACLIENT\"
'shell.RegDelete "HKLM\SYSTEM\ControlSet001\Services\AClient\"
'=======================================================================

strKeyPath = "SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List"
strStringValueName = "C:\Program Files\Altiris\AClient\AClntUsr.EXE"
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName

strKeyPath = "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List"
strStringValueName = "C:\Program Files\Altiris\AClient\AClntUsr.EXE"
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName

shell.LogEvent 0, "Successfully removed aclient"

Set shell = Nothing
Set fso = Nothing

WScript.Quit