VB Script to uninstall 6.5 along with a AutoIt script.
--
'-------------------------------------------
' Desc: DeskSite 6.5SP1a /w HF4 Uninstallation
'-------------------------------------------
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
bUninstall = False
If RegKeyExists("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{EA2D71BD-B4EA-4382-BBFF-41F03294DB8F}") Then
objShell.Run "C:\WINDOWS\SYSTEM32\MsiExec.exe /X{EA2D71BD-B4EA-4382-BBFF-41F03294DB8F} /QB!",1,True
bUninstall = True
End If
If RegKeyExists("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1E459A83-7CA5-4710-83D1-CB834CF50230}") Then
objShell.Run "C:\IMAN65SP1A.EXE" ' complied autoit 2x script
objShell.Run "C:\WINDOWS\SYSTEM32\MsiExec.exe /X{1E459A83-7CA5-4710-83D1-CB834CF50230} /QB!",1,True
bUninstall = True
End If
If RegKeyExists("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{2589A9AB-70A5-4F9B-ADBD-8C80E0189EB2}") Then
objShell.Run "C:\WINDOWS\SYSTEM32\MsiExec.exe /X{2589A9AB-70A5-4F9B-ADBD-8C80E0189EB2} /QB!",1,True
bUninstall = True
End If
if bUninstall then
ObjShell.Run "c:\WINDOWS\system32\reg.exe DELETE HKCU\Software\Netright /f",1,true
ObjShell.Run "c:\WINDOWS\system32\reg.exe DELETE HKLM\Software\Netright /f",1,true
ObjShell.Run "c:\WINDOWS\system32\reg.exe DELETE HKLM\Software\iManage, Inc. /f",1,true
DelFolder "c:\Program Files\iManage"
End If
' ******** FUNCTIONS *********
Function RegKeyExists(sRegKey)
Dim oShell, RegReadReturn
Set oShell = CreateObject("WScript.Shell")
RegKeyExists = True
sRegKey = Trim (sRegKey)
If Not Right(sRegKey, 1) = "\" Then
sRegKey = sRegKey & "\"
End if
On Error Resume Next
RegReadReturn = oShell.RegRead(sRegKey)
If Err Then
If Left(err.description,7) = "Invalid" Then
'key not found...
RegKeyExists = False
'ElseIf Left(err.description,6) = "Unable" Then
'no default value set, but key exists...
'Else
'unexpected error
End if
Err.clear
End if
On Error Goto 0
End Function
' **********************************************
' Function: DelFolder "Arg1"
' Arg1 = folder to delete
' Desc: Check if a folder exist then delete
' Example: DelFile("C:\TEMP")
' **********************************************
Function DelFolder(fldr)
If (ObjFSO.FolderExists(fldr)) Then
ObjFSO.DeleteFolder fldr, True
End if
Questions & Answers related to iManage Outlook Integration Module for iManage DeskSite
Blogs (0)
Blog posts related to iManage Outlook Integration Module for iManage DeskSite
Links (0)
Links related to iManage Outlook Integration Module for iManage DeskSite
Reviews (0)
Reviews related to iManage Outlook Integration Module for iManage DeskSite
This website uses cookies.
By continuing to use this site and/or clicking the "Accept" button you are providing consent
Quest Software and its affiliates do NOT sell the Personal Data you provide to us either when you register on our
websites or when you do business with us. For more information about our
Privacy Policy and our data protection
efforts, please visit
GDPR-HQ