I have a custom action which runs a VB Script to write a registry key under HKCU. The content of the VB Script file is given below:
Code: Select all
Dim WshShell, bKey, ver, regVal
Set WshShell = CreateObject("WScript.Shell")
bKey = WshShell.RegRead("HKCR\Outlook.Application\CurVer\")
ver = Right(bKey, 2)
regVal = "HKCU\Software\Policies\Microsoft\Office\" & ver & ".0\Common\Security\Trusted Protocols\All Applications\myprotocol:\"
WshShell.RegWrite regVal, ""
Set WshShell = Nothing
Thanks in advance.
Regards,
Prasad