Code Snippet
' Connect to WMI
set oLocator = CreateObject( "WbemScripting.SWbemLocator" )
set oRootWMI = oLocator.ConnectServer( ".", "root\wmi" )
oRootWMI.Security_.ImpersonationLevel = 3
' Connect to BCD
set oBCD = GetObject( "winmgmts:{impersonationlevel=Impersonate,(Backup,Restore)}!root/wmi:BcdStore")
if Err.number <> 0 then
WScript.Echo "ERROR: Failed to connect to BCD"
WScript.Quit(1)
end if
' Open the system store
if not oBCD.OpenStore( "", oBcdStore ) then
WScript.Echo "ERROR: Failed to open the system BCD store"
WScript.Quit(1)
end if
set oBCD = nothing
const ResumeLoaderSettingsBcdObject = "{1afa9c49-16ab-4a5c-901b-212802da9460}"
const GlobalSettingsBcdObject = "{7ea2e1ac-2e61-4728-aaa3-896d9d0a9f0e}"
' Check to see if the {resumeloadersettings} object already exists
if oBcdStore.OpenObject( ResumeLoaderSettingsBcdObject, objWBM ) then
WScript.Echo "Resume Loader Settings object already exists in BCD"
WScript.Echo "No changes have been made to the system"
WScript.Quit(1)
end if
WScript.Echo "Creating new {resumeloadersettings} object..."
if not oBcdStore.CreateObject( ResumeLoaderSettingsBcdObject, &h20200004, oResumeSettings) then
WScript.Echo "ERROR: Failed to create the BCD object"
end if
if not oResumeSettings.SetObjectListElement(&h14000006, Array(GlobalSettingsBcdObject )) then
WScript.Echo "ERROR: Failed to set the Inherit element"
end if
WScript.Echo "Finished updating BCD"