Listing 8: JScript Code That Reads All Values in a Subkey at Once

var regobj = new ActiveXObject("Penton.RegObject");
result = regobj.Connect(".");
if (result == 0) {
  result = regobj.EnumValues("HKLM",
    "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run");
  if (result == 0) {
// BEGIN CALLOUT A
    dict = regobj.dictToJSArray(regobj.EnumDict);
// END CALLOUT A
    for (regvalue in dict)
      WScript.Echo(regvalue + "\t" + dict[regvalue]);
  }
}