Dim a as object,str as stringset a = createobject("Wscript.shell")str=a.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion...)then str is the keyyou can search registry to get the key.
This way uses the WSCRIPT.SHELL a system COM component. This is the easiest way (comparing to API)Also you can use Dim a as Wscript.shell (rememeber to include the reference to wshom.ocx)(sorry I can not input Chinese characters)
for detailed information about WSH COM components. please refer to MSDN
(rememeber to include the reference to wshom.ocx)(sorry I can not input Chinese characters)