Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut=WScript.StdOut
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Alcohol Soft"
objReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, arrValueNames, arrValueTypes
For i= 0  to Ubound(arrValueNames)
	Wscript.Echo arrValueNames(i)
next 

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Adobe"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
    If subkey = "Acrobat Reader" Then
        find = True
        Path_reg = strKeyPath & "\" & subkey
        Exit For
    End If
Next
If Not find Then
    For Each subkey In arrSubKeys
        If subkey = "Adobe Acrobat" Then
            find = True
            Path_reg = strKeyPath & "\" & subkey
            Exit For
        End If
    Next
End If
If Not find Then
    execute_programm_path = ""
    Exit Function
Else
    objReg.EnumKey HKEY_LOCAL_MACHINE, Path_reg, arrSubKeys
    For Each subkey In arrSubKeys
        Version_Acr = subkey
    Next
End If
objReg.GetStringValue HKEY_LOCAL_MACHINE, Path_reg & "\" & Version_Acr & "\InstallPath\", "", dwValue
execute_programm_path = dwValue

var HKEY_LOCAL_MACHINE = 0x80000002;
var strKeyPath,result;
var arrValueNames;
var arrValueTypes;
var strComputer = ".";
var StdOut=WScript.StdOut;
var objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\" + strComputer + "\\root\\default:StdRegProv");

var objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\" + strComputer + "\\root\\default:StdRegProv");

var HKEY_LOCAL_MACHINE = 0x80000002;
var i;
var strKeyPath,result,oInParam,oOutParam;
var arrValueNames;
var arrValueTypes;
var strComputer = ".";
var StdOut=WScript.StdOut;
var objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\" + strComputer + "\\root\\default:StdRegProv");
var strKeyPath = "Software\\Alcohol Soft";
oMethod = objReg.Methods_.Item("EnumValues");
oInParam = oMethod.InParameters.SpawnInstance_();
oInParam.hDefKey = HKEY_LOCAL_MACHINE;
oInParam.sSubKeyName = strKeyPath;
oOutParam = objReg.ExecMethod_(oMethod.Name, oInParam);
if( oOutParam.sNames == null ) 
	{WScript.Quit( 0 );}
else
{
aNames = oOutParam.sNames.toArray();
for (i= 0 ;i<aNames.length;i++)
{WScript.Echo(aNames[i]);}
}