Read Registry - VBScript

Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\./root/default:StdRegProv")
sBaseKey = "SOFTWARE\"
iRC = oRegistry.EnumKey(&H80000001, sBaseKey, arSubKeys)
For Each sKey In arSubKeys

if skey="JNJ" then
msgbox "yes"
end if
next