I looked high and low and had an impossible time, when I needed it, to locate an example, or explanation, of how I could create a Trusted Location for Access, Excel, Word,… using a simple vbscript.
If you manually make an entry in the Trusted Locations and then inspect your registry, you’ll see something similar to the following image (in this case for MS Access, but the same principal applies to almost all MS Office applications)
As you can see, each application: Access, Excel, PowerPoint, Word as its own Trusted Locations and every entry has a parent key entitled ‘LocationX’, where X is an incremental number. From what I have read (not confirmed in any way) you can have 0 through 19 Trusted Location, so Location0, Location1, …, Location19. With this information in mind and a lot of web searching and vbscripting, I eventually managed to piece a script together and below is what it looks like.
'******************************************************************************* ' Purpose :Setup the required trusted location ' Author : Daniel Pineault, CARDA Consultants Inc. ' Website : http://www.cardaconsultants.com ' Copyright : The following may be altered and reused as you wish so long as the ' copyright notice is left unchanged (including Author, Website and ' Copyright). It may not be sold/resold or reposted on other sites (links ' back to this site are allowed). ' 'Revision: 2010-06-23 Initial Release '******************************************************************************* Const HKEY_CURRENT_USER = &H80000001 Dim oRegistry Dim sPath 'Path to set as a Trusted Location Dim sDescription 'Description of the Trusted Location Dim bAllowSubFolders 'Enable subFolders as Trusted Locations Dim bAllowNetworkLocations 'Enable Network Locations as Trusted ' Locations Dim bAlreadyExists Dim sParentKey Dim iLocCounter Dim arrChildKeys Dim sChildKey Dim sValue Dim sNewKey 'Determine the location/path of the user's MyDocuments folder '******************************************************************************* Set oRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv") sPath = "TheFullPathOfYourTrustedLocation" 'ie: c:\databases\ sDescription = "YourTrustedLocationDescriptionGoesHere" bAllowSubFolders = True bAlreadyExists = False sParentKey = "Software\Microsoft\Office\12.0\Access\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\12.0\Excel\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\12.0\PowerPoint\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\12.0\Word\Security\Trusted Locations" iLocCounter = 0 oRegistry.EnumKey HKEY_CURRENT_USER, sParentKey, arrChildKeys For Each sChildKey in arrChildKeys oRegistry.GetStringValue HKEY_CURRENT_USER, sParentKey & "\" & sChildKey, "Description", sValue If sValue = sDescription Then bAlreadyExists = True If CInt(Mid(sChildKey, 9)) > iLocCounter Then iLocCounter = CInt(Mid(sChildKey, 9)) End If Next 'Uncomment the following 4 linesif your wish to enable network locations as Trusted ' Locations ' bAllowNetworkLocations = True ' If bAllowNetworkLocations Then ' oRegistry.SetDWORDValue HKEY_CURRENT_USER, sParentKey, "AllowNetworkLocations", 1 ' End If If bAlreadyExists = False Then sNewKey = sParentKey & "\Location" & CStr(iLocCounter + 1) oRegistry.CreateKey HKEY_CURRENT_USER, sNewKey oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Path", sPath oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Description", sDescription If bAllowSubFolders Then oRegistry.SetDWORDValue HKEY_CURRENT_USER, sNewKey, "AllowSubFolders", 1 End If End if |
As usual when dealing with code off the net, and especially with registry coding, use it at your own risk! I assume no liability whatsoever. I am simply sharing information on what worked for me in the hopes it might help someone else.
Current average ratings.
Share and Enjoy
Wednesday, June 23rd, 2010, 8:00 am | 
MS Access, MS Office | 
RSS feed
Pinging is disabled. But you can skip to the end and leave a 
response.
