#!perl
use strict;
use Win32::TieRegistry;
$Registry->Delimiter("/"); # Set delimiter to "/".
$|=1;
my $fontskey = $Registry->{"LMachine/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Fonts"} || die $^E;
for my $val ($fontskey->ValueNames)
{
    print "$val\n";
}
exit;

##</code><code>##

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
 
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Fonts"
objReg.EnumValues HKEY_LOCAL_MACHINE, _
    strKeyPath,arrEntryNames
For Each strValue in arrEntryNames
    Wscript.Echo strValue
Next