Code:



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' DMA Enabler
'
'
' 
' 
' 25 Jun 2004
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Option Explicit


' HKEY_LOCAL_MACHINE code
Const HKLM = &H80000002

' Path to key with which we want to screw
Const KEYPATH = "SYSTEM\CurrentControlSet\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}"


Dim objReg    ' WMI registry object
Dim subKeys    ' List of subkeys
Dim keyval    ' An individual key/value


' Connect to the WMI registry provider
Set objReg = GetObject ("winmgmts:{impersonationLevel=impersonate}!\root\default:StdRegProv")


' Get list of subkeys in KEYPATH
objReg.EnumKey HKLM, KEYPATH, subKeys

For Each keyval in subKeys

    ' We only want numeric keys (0001, 0002, etc)
    If IsNumeric (keyval) Then

    keyval = KEYPATH & "\" & keyval

    ' Delete the two values that Windows will recalculate
    objReg.DeleteValue HKLM, keyval, "MasterIdDataChecksum"
    objReg.DeleteValue HKLM, keyval, "SlaveIdDataChecksum"

    End If

Next


' Fin