$DPrinter = ReadValue("HKEY_LOCAL_MACHINE\Software\BrewsterWalsh" , "Printer")

If @ERROR=0
	? "Default Printer Selection is $DPrinter"
	If SetDefaultPrinter ("$DPrinter") = 0
		? "Default Printer Sucessfully Set To $DPrinter"
	Else
		? "Failed to Set Default Printer to $DPrinter" ? @error "," @serror
	EndIf
Else
	? "Failed to read default printer from registry" ? @error "," @serror
EndIf

? readvalue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","Shell")
? @serror
? ReadValue("HKEY_LOCAL_MACHINE\Software\BrewsterWalsh" , "Printer")
? @serror

explorer.exe
The operation completed successfully.

The system cannot find the file specified.

$index=0
$key = "HKLM\Software\BrewsterWalsh"
$valname = Enumvalue($key, $index)
While @error=0
   $valname ?
   $index = $index + 1
   $valname = Enumvalue($key, $index)
Loop