Vista - vbscript registry exist then......

Please help urgent request


PLease help with VBScript
ive tried 2 ways they both dont wort, can you tell me where i;m going
wrong rahter than email me script i dont understand.

thanks


set WshShell = WScript.CreateObject("WScript.Shell")

strUninstallRMS6 = "\\lbnfilr002\Packages\PkgsQ-T\RMS
\RMS63\uninstallRMS6.bat"

Function RegistryItemExists (RegistryItem)

If RegistryItemExists("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
\CurrentVersion\Uninstall\{264600DE-0879-4231-9F93-9CE3D503DFC1}\")
then

WSHShell.Run strUninstallRMS6, 1 , FALSE

end if

WScript.sleep 30000

WScript.Quit


=================================================================

set WshShell = WScript.CreateObject("WScript.Shell")

strUninstallRMS6 = "\\lbnfilr002\Packages\PkgsQ-T\RMS
\RMS63\uninstallRMS6.bat"


If WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion
\Uninstall\{264600DE-0879-4231-9F93-9CE3D503DFC1}\") = true Then
WSHShell.Run strUninstallRMS6, 1 , FALSE

End If
WScript.sleep 30000

WScript.Quit

===================================================================

Please help urgent request.
simple explanation

many thanks

On Sep 23, 12:05*pm, deen <an...@xxxxxx> wrote:Using the WSH registry items, the only way to test for the presence/
absence of a key is to test for the success or failure of the RegRead
method, something like this ...

strUninstallRMS6 = "\\lbnfilr002\Packages\PkgsQ-T\RMS" _
& "\RMS63\uninstallRMS6.bat"
sKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion" _
& "\Uninstall\{264600DE-0879-4231-9F93-9CE3D503DFC1}\"
if CStr(CheckRegKey(sKey)) then
set WshShell = CreateObject("WScript.Shell")
WSHShell.Run strUninstallRMS6, 1 , FALSE
end if

Function CheckRegKey(sKey)
On Error Resume next
with CreateObject("WScript.Shell")
.RegRead sKey
end with
CheckRegKey = (Err.Number = 0)
On Error Goto 0
end function

Tom Lavedas
===========
http://members.cox.net/tglbatch/wsh/

On 23 Sep, 17:38, Tom Lavedas <tglba...@xxxxxx> wrote:Hi

Thankyou very much for your answers. Unfortunately when i run the
script as a .vbs nothing happens. the key is not removed.
i have confirmed the key "{264600DE-0879-4231-9F93-9CE3D503DFC1}"
diffenatelty exist.

thankyou very much

On 24 Sep, 09:49, deen <an...@xxxxxx> wrote:
the script should work.
if the registry key exist. then batch job executes located on the
server.

the batch file on the server

=========================================================================
"\\lbnfilr002\Packages\PkgsQ-T\RMS\RMS63\uninstallRMS6.bat"

@ECHO OFF
MsiExec.exe /uninstall {264600DE-0879-4231-9F93-9CE3D503DFC1} /quiet
EXIT

==========================================================================

Ive tested the below and it definately works

set WshShell = WScript.CreateObject("WScript.Shell")

strUninstallRMS6 = "\\lbnfilr002\Packages\PkgsQ-T\RMS
\RMS63\uninstallRMS6.bat"

WSHShell.Run strUninstallRMS6, 1 , FALSE

WScript.Quit

===========================================================================

Thanks

On Sep 24, 5:46*am, deen <an...@xxxxxx> wrote:Sorry, I left a bit of test code in the script I posted. The line
that reads ...

if CStr(CheckRegKey(sKey)) then

should be ...

if CheckRegKey(sKey) then

The function CheckRegKey returns a boolean result suitable for testing
with an IF statement, but in my testing I had converted that result to
a string for ECHOing in a message box. I cut and pasted from the test
script and forgot to remov the conversion to a string.

Tom Lavedas
===========
http://members.cox.net/tglbatch/wsh/