Add a registry key

Hello all:

I need to add an entry to the following:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet
Settings\zonemap\Domains\

like webex.com

any suggestions?

Ruskin
Mon Jul 19 16:54:37 CDT 2004

vbscript doesn't support api calls (or at least, not easily), so using the
RegCreateKey, RegOpenKey, etc.. functions wont work... What you could try
doing, is creating a 'reg' file and then shelling to it. If you want to
supress the prompts, you will need to run regsvr32 directly (without
shelling to the reg file), so that you can use the /s switch. EG:

regsvr32 /s myfile.reg



"John Villarreal" <john.villarreal@wrigley.com> wrote in message
news:e$xjdUdbEHA.808@tk2msftngp13.phx.gbl...
> Hello all:
>
> I need to add an entry to the following:
>
> HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet
> Settings\zonemap\Domains\
>
> like webex.com
>
> any suggestions?
>
>
>
>
>

Ruskin
Mon Jul 19 16:57:04 CDT 2004

Ooopssss... sorry, it's not regsvr32 (that's for registering objects), it's
actually regedit.exe, but not sure if you can pass a parameter to prevent it
from prompting you to add the registry key...


"Ruskin" <ruhardie@nospam.xtra.com> wrote in message
news:yqXKc.2290$N77.203297@news.xtra.co.nz...
> vbscript doesn't support api calls (or at least, not easily), so using the
> RegCreateKey, RegOpenKey, etc.. functions wont work... What you could try
> doing, is creating a 'reg' file and then shelling to it. If you want to
> supress the prompts, you will need to run regsvr32 directly (without
> shelling to the reg file), so that you can use the /s switch. EG:
>
> regsvr32 /s myfile.reg
>
>
>
> "John Villarreal" <john.villarreal@wrigley.com> wrote in message
> news:e$xjdUdbEHA.808@tk2msftngp13.phx.gbl...
> > Hello all:
> >
> > I need to add an entry to the following:
> >
> > HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet
> > Settings\zonemap\Domains\
> >
> > like webex.com
> >
> > any suggestions?
> >
> >
> >
> >
> >
>
>

mayayana
Mon Jul 19 19:34:16 CDT 2004

Dim SH, sDom, sPath, sDomain, sSub, iZone

sDomain = "webex.com\"
sSub = "www\"
iZone = 2 '-- add to trusted sites. use 4 for restricted.

sPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet
Settings\ZoneMap\Domains\"
Set SH = CreateObject("WScript.Shell")

SH.RegWrite sPath & sDomain, "" '-- add webex.com key.
SH.RegWrite sPath & sDomain & sSub, "" '--ad www key.
SH.RegWrite sPath & sDomain & sSub & "*", iZone, "REG_DWORD"


--
--
John Villarreal <john.villarreal@wrigley.com> wrote in message
news:e$xjdUdbEHA.808@tk2msftngp13.phx.gbl...
> Hello all:
>
> I need to add an entry to the following:
>
> HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet
> Settings\zonemap\Domains\
>
> like webex.com
>
> any suggestions?
>
>
>
>
>