|
const HKEY_LOCAL_MACHINE = &H80000002
Set obj = GetObject _
("winmgmts:\\.\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Services"
obj.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
Wscript.Echo subkey
Next
| |