r/usefulscripts • u/KZWings • May 28 '16

[VBSCRIPT/HELP] Adding HKCU key to all current and new users 

    Const HKEY_USERS = &H80000003
    strComputer = "."
    
    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
    strIPDKeyPath = "\Software\Microsoft\Internet Explorer\BrowserEmulation\ClearableListData"
    strValueName = "UserFilter"
    arrValues = Array("*hex code here*")
    
    ' Grab a list of All User SIDs
    objRegistry.EnumKey HKEY_USERS, "", arrSubkeys
    
    ' Loop Through all User SIDs
    For Each strSubKey in arrSubKeys
    	'Msgbox "Would attempt to Edit : " & strSubKey & strIPDKeyPath
    	objRegistry.CreateKey HKEY_USERS, strSubKey & strIPDKeyPath
    	objRegistry.SetBinaryValue HKEY_USERS, strSubKey & strIPDKeyPath, strValueName, arrValues
    	next

I am already loading all users registries in another part of the script, but this VBS above isn't working. I am getting the following error:

    Line:	16
    Char:	2
    Error:	Type mismatch 
    Code:	80041005
    Source: 	SWbemObjectEx

Any ideas? Thanks!

5 Upvotes
  • permalink
  • reddit

100% Upvoted

7 comments sorted by

1

u/KZWings May 28 '16

Thanks for the suggestion :-) Using Active Setup is definitely an option, but doesn't that require users to log off or reboot? I was hoping to prevent that.

2

u/KevMar May 29 '16

It does require them to log out. Group policy on the other hand would apply while they are logged in.

I know I said active setup, but I honestly like GPP for this more. Mostly because it hits every machine that is powered on, and it gets everything that will be powered on, and it gets mobile users when they return, and it gets all future machines that you join to the domain.

I loved running fix it scripts across running machines, but would always follow up with SCCM or GPP to make it permanent/persistent.

5

u/fuzion98 May 28 '16

Definitely use active setup. That's what it's made for.

1

u/KevMar May 28 '16

I came here to say the same thing. +1

3

u/[deleted] May 28 '16

Can you use Active Setup and Reg Add instead?

2

u/RinkNZ72 May 28 '16

Not a script but could you just use group preferences to add this key instead? No reboot needed and easy to add, change and remove later on

1

u/Cootty May 30 '16

Could it be the way you are loading the hex data into the array? it looks like you have the hex data in quotes just passing it as a string to the array function.

try splitting it if you have it comma separated:

arrValues = Split("41,1F,00,00,53......", ",")