Cacher is the code snippet organizer for pro developers

Dim strComputer, strBranch, strKeyPath, strKeyName, strDWordValue
Dim objNetwork, objReg
Const HKEY_LOCAL_MACHINE = &H80000002

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

strBranch = HKEY_LOCAL_MACHINE
strKeyPath1 = "SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_ENABLE_PRINT_INFO_DISCLOSURE_FIX"
strKeyPath2 = "SOFTWARE\WOW6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_ENABLE_PRINT_INFO_DISCLOSURE_FIX"
strKeyName = "iexplore.exe"
strDWordValue = 1

Log ("********** Begin detection for the registry keys ********** ")
If CheckRegValues (strBranch, strKeyPath1, strKeyPath2, strKeyName) = True Then
ReportRepairResult  True, "The required DWORD values WERE NOT present in the registry."
' MsgBox "The required DWORD values ARE NOT present in the registry."
Else
ReportRepairResult  False, "The required DWORD values WERE present in the registry."
' MsgBox "The required DWORD values ARE present in the registry."
End If
Log ("********** End detection for the registry keys **********")

Function CheckRegValues (branch, path1, path2, name)
 Dim value
 
 objReg.GetDWORDValue branch, path1, name, value
 If value = strDWordValue Then
  Log ("The 64-bit registry DWORD value was found.")
  CheckRegValues = False
 Else
  Log ("Setting the 64-bit registry DWORD value.")
  objReg.SetDWORDValue branch, path1, name, strDWordValue
  CheckRegValues = True
 End If

 objReg.GetDWORDValue branch, path2, name, value
 If value = strDWordValue Then
  Log ("The 32-bit registry DWORD value was found.")
  CheckRegValues = False
 Else
  Log ("Setting the 32-bit registry DWORD value.")
  objReg.SetDWORDValue branch, path2, name, strDWordValue
  CheckRegValues = True
 End If
 
End Function