Write Key Registration

[giovanniroi]

Dear support,
I need to write four key in the Registry, how can I register this Key:

This is the Key Path :

[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\Location0]

the key are:

"Path"="C:\\GR&A_Trend\\"
"AllowSubfolders"=dword:00000001
"Description"=""
"Date"="12/05/2009 20.00"

Thank's for the support

Giovanni Roi

[Okapi]

Code: Select all

VBSTART
const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\Location0"
strValueName1 = "Path"
strValueName2 = "AllowSubfolders"
strValueName3 = "Description"
strValueName4 = "Date"
strValue1 = "C:\\GR&A_Trend\\"
strValue2 = ""
strValue3 = "12/05/2009 20.00"
dwValue = &H00000001

oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName1,strValue1
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName3,strValue2
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName4,strValue3
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName2,dwValue
VBEND