Re: vbscript if reg exist

You now have at least four thread running with this query. Have a look at
this site to see the advantages of cross-posting versus multi-posting:
http://www.blakjak.demon.co.uk/mul_crss.htm


"deen" <> wrote in message
news:66a2b137-e55e-40c8-b6c9-...
> PLease urgent help
>
> i run the script as a .vbs nothing happens. the key is not removed.
> i have confirmed the key "{264600DE-0879-4231-9F93-9CE3D503DFC1}"
> and the key diffenatelty exist.
>
>
> strUninstallRMS6 = "\\lbnfilr002\Packages\PkgsQ-T\RMS" _
> & "\RMS63\uninstallRMS6.bat"
> sKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n" _
> & "\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
>
> --------------------------------------------------------------------------
>
> Ive tested the below and it definately works. i need the if statment
> to work.
>
> set WshShell = WScript.CreateObject("WScript.Shell")
> strUninstallRMS6 = "\\lbnfilr002\Packages\PkgsQ-T\RMS
> \RMS63\uninstallRMS6.bat"
>
> WSHShell.Run strUninstallRMS6, 1 , FALSE
> WScript.Quit
>
> PLease urgent help
>
> thanks