First I would like to apologize for the simplicity of my question. I am new to scripting and trying to learn some vbs scripting. I created a vbs script to run the uninstall strings and delete a couple directories that failed misserably. So instead I have created a batch file to uninstall an application and delete two folders after the uninstall completes. (See below) I would prefer that this were a .vbs file but as I said earlier, I didn't have much luck. Can anybody assist with converting this script over to vbs?
Also is there a way to add some logic to the script so that it looks for registry key(s) and if it's not there it finishes without error so that I can chain it to an MSI install in SMS 2k3?

---

@ECHO OFF
REM All documents must be unlocked for the users before removing the Documentum "check out" folder. Confirm with development before uninstallation.
REM Sachin has a script to unlock documents - this must ran first.

REM Removes the Documentum Desktop Client 4.3
C:\WINDOWS\IsUninst.exe -y -x -a -fC:\PROGRA~1\DOCUME~1\DeIsL1.isu -c"C:\Program Files\Documentum\Shared\dmuninst.dll"

Rem removes the DCTM Runtime environment
C:\WINDOWS\IsUninst.exe -y -x -a -f"C:\Program Files\Documentum\DFCRE42\Uninst.isu"


REM Removes the Documentum Directories
rmdir /S/Q C:\Documentum
rmdir /S/Q "C:\Program Files\Documentum"
0 Comments   [ + ] Show Comments

Comments

Please log in to comment

Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.

Answers

0
Here was the .vbs script I made:

Set objWshShell = CreateObject("Wscript.Shell")

strUninstall = objWshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Documentum DFC Runtime Environment 4.2\UninstallString")

objWshShell.Run strUninstall & " -y -x -a"

strUninstall = objWshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Documentum Desktop Client 4.3\UninstallString")

objWshShell.Run strUninstall & " -y -x -a"

Set objWshShell = Nothing

On Error Resume Next
Dim fso, s
Set fso = CreateObject("Scripting.FileSystemObject")
s="C:\Documentum"
fso.deletefolder(s),True

On Error Resume Next
Dim fso, s
Set fso = CreateObject("Scripting.FileSystemObject")
s="C:\Program Files\Documentum"
fso.deletefolder(s),True
Answered 08/29/2006 by: sclark
Senior Yellow Belt

Please log in to comment
0
OK I think this actually worked? I am sure it's not very "clean" but it seems to be working? [:D]
thanks to realtimepublishers.com for the Administrators Shortcut Guide to VBScripting for WIndows!
Even though it seems to be working, Any advice an imporving on it is certainly welcome.

Set objWshShell = CreateObject("Wscript.Shell")

strUninstall = objWshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Documentum DFC Runtime Environment 4.2\UninstallString")

objWshShell.Run strUninstall & " -y -x -a"

strUninstall = objWshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Documentum Desktop Client 4.3\UninstallString")

objWshShell.Run strUninstall & " -y -x -a"

On Error Resume Next
Dim fso, s
Set fso = CreateObject("Scripting.FileSystemObject")
s="C:\Documentum"
fso.deletefolder(s),True

On Error Resume Next
Dim fso1, sFolder
Set fso1 = CreateObject("Scripting.FileSystemObject")
sFolder="C:\Program Files\Documentum"
fso.deletefolder(s),True

Set objWshShell = Nothing
Answered 08/29/2006 by: sclark
Senior Yellow Belt

Please log in to comment
Answer this question or Comment on this question for clarity