VBScript - Disable USB Root Hub's Power Management

I wrestled with this script forever. We work with hardware devices that, either because of Host Driver conflicts or OS level problems, do not get restored to their proper power state when the OS sends IRP calls to the device to wake. After figuring the battle with manufacturer level issues would be a worthless fight, I started looking for the key that gets tweaked in the registry when Power Management is turned off on the Device Management console for USB Root Hubs. Turns out that an entry is stored in the class definition for each Host Controller, not the Root Hub, under the HKLM\SYSTEM\CurrentControlSet\Control\Class\{36FC9E60-C465-11CF-8056-444553540000}\000n\HcDisableSelectiveSuspend where n = the number of the entry. The value is in hex and can be turned off or on, but, this will automatically run through the registry, read the DriverDesc field and add the entry if it's not already in the key.

NOTE: This will not appear to take affect via the GUI (Computer management console) until after you reboot the machine. The changes are made, however, immediately to the registry.

' AUTHOR: Will Steele
' CREATED: 1/22/2009
' PURPOSE: The script turns off power management for USB Root Hubs.
' NOTE: Change (line 8) HcDisableSelectiveSuspend to &H00000000 to enable power management for all USB Root Hubs.
' Change (line 8) HcDisableSelectiveSuspend to &H00000001 to disable power management for all USB Root Hubs.

Const HKEY_LOCAL_MACHINE = &H80000002
Const HcDisableSelectiveSuspend = &H00000001
strValueName = "HcDisableSelectiveSuspend"
strComputer = "."
DriverDesc = "DriverDesc"

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{36FC9E60-C465-11CF-8056-444553540000}"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

set re = new regexp
re.pattern = "Host Controller"

pathCount = 0

For pathCount = 0 To UBound(arrSubKeys)
If pathCount < 10 Then
strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{36FC9E60-C465-11CF-8056-444553540000}\000" & pathCount
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,DriverDesc,strValue

set test = re.Execute(strValue)
If test.Count Then
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath,DriverDesc,strValueName
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,HcDisableSelectiveSuspend
'WScript.Echo (CStr(strKeyPath & "\" & CStr(strValueName) & " set to - " & CInt(HcDisableSelectiveSuspend)))
End If
Else
strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{36FC9E60-C465-11CF-8056-444553540000}\00" & pathCount
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,DriverDesc,strValue

set test = re.Execute(strValue)
If test.Count Then
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath,DriverDesc,strValueName
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,HcDisableSelectiveSuspend
'WScript.Echo (CStr(strKeyPath & "\" & CStr(strValueName) & " set to - " & CInt(HcDisableSelectiveSuspend)))
End If
End If
Next

If CStr(HcDisableSelectiveSuspend) = 0 Then
WScript.Echo ("All USB Root Hubs have been configured to have power management enabled.")
Else
WScript.Echo ("All USB Root Hubs have been configured to have power management disabled.")
End If

Update

I found almost the same exact script elsewhere after the fact: http://www.hugsforhackers.org/scripting/disable_power_management.html. Wish I had known about that guy 8 months ago.