Modify All Current User Keys

[edms]

I need to make changes to the current user key for all users on a number of PC's, is there a way to enumerate through HKEY_USERS and make the appropriate change.

I need to modify which anti virus engine is used by PKZip, the configuration which is stored in the following key;

[HKEY_CURRENT_USER\Software\PKWARE\PKZIP for Windows\VirusOption]
"Virus CL"="C:\\Program Files\\CA\\eTrust\\Antivirus\\InoUpTNG.exe"

Any help would be appreciated
Rob

 

[tsuji]

Hello edms,

For this, it is worthwhile to consider to make it machine-wide (HKLM).

regards - tsuji

 

[edms]

The setting is applied to the HKCU, are you saying that I can apply it to HKLM and this will override the HKCU setting?

 

[tsuji]

edms,

I do not use pkzip. But judging from hkcu entry, you should be able to apply it machine-wide putting there.

<experimental>

[HKEY_LOCAL_MACHINE\Software\PKWARE\PKZIP for Windows\VirusOption]
"Virus CL"="C:\\Program Files\\CA\\eTrust\\Antivirus\\InoUpTNG.exe"

</experimental>

It won't break your system, I don't think. Does the manual say anything negative on putting it in hklm?

- tsuji

 

[j4ckl3]

Try using the following script:

Const HKU = &H80000003
     
strHKUPath = "\Software\PKWARE\PKZIP for Windows\VirusOption"

strPCName = InputBox("Please enter PC name to check:")

' set registry object
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strPCName & _
     "\root\default:StdRegProv")

objRegistry.EnumKey HKU, "", arrSubKeys
' loop through all SIDs
For Each subkey In arrSubKeys
     ' count SID length
     strKeyLen = Len(subkey)
     ' if SID length is longer than 16, then is a user account
     If strKeyLen > 16 Then
          ' filter out '_classes' SIDs
          If Not Right(subkey,8) = "_Classes" Then
               ' get HKU\SID values
               nRet = objRegistry.GetStringValue(_
                    HKU, subkey & "\Software\Microsoft\Windows\CurrentVersion\Explorer", _
                    "Logon User Name", strValue)
               WScript.Echo subkey & " : Logon User Name : " & strValue

               'nRet = objRegistry.GetStringValue(HKU, strHKUPath, "Virus CL", strValue)
               'WScript.Echo subkey & " : Virus CL : " & strValue
               '' Set HKU\SID Values
               'nRet = objRegistry.SetStringValue(HKU, subkey & strHKUPath, _
               '     "Virus CL", "C:\\Program Files\\CA\\eTrust\\Antivirus\\InoUpTNG.exe")
          End If
     End If
Next

The script will prompt you for a PC to check. Currently it will loop through all of the HKU SIDs and display the username listed for each SID. I included the keys you wish to search for but commented them out since I could not test. To test just uncomment.


------------------------------------------------------------------------------
nobody knows everything about IT, so make a point to help your fellow members

-= j@ckle =-

 

[edms]

Thanks j@ckle,

the script is just what I was looking for, and thanks tsuji, you solution will probably solve another issue that I have

Rob