Hi,
danke für eure postings. so ich habe auch wieder ein wenig zeit.
mein lösungsansatz:
(ist vielleicht nicht der orginelste, aber funztz.)
......
Key = "SYSTEM\CurrentControlSet\Enum\USB" & "\" & UDT(x)
return = Reg.EnumKey(HKEY_LOCAL_MACHINE, Key, subkeys)
i = 0
For Each subkey In subkeys
KeyDevices(i) = subkey
Key1 = "SYSTEM\CurrentControlSet\Enum\USB" & "\" & UDT(x) & "\" & subkey & "\Control"
Key2 = "SYSTEM\CurrentControlSet\Enum\USB" & "\" & UDT(x) & "\" & subkey & "\Device Parameters"
Key3 = "SYSTEM\CurrentControlSet\Enum\USB" & "\" & UDT(x) & "\" & subkey & "\LogConf"
Key4 = "SYSTEM\CurrentControlSet\Enum\USB" & "\" & UDT(x) & "\" & subkey
Key5 = "SYSTEM\CurrentControlSet\Enum\USB" & "\" & UDT(x)
Return1 = Reg.DeleteKey (HKEY_LOCAL_MACHINE, Key1)
Return2 = Reg.DeleteKey (HKEY_LOCAL_MACHINE, Key2)
Return3 = Reg.DeleteKey (HKEY_LOCAL_MACHINE, Key3)
Return4 = Reg.DeleteKey (HKEY_LOCAL_MACHINE, Key4)
Return5 = Reg.DeleteKey (HKEY_LOCAL_MACHINE, Key5)
i = i + 1
.......