From: Jose Cintron on
OK I know of CheckAccess to verify that I have the given permission to a
specific key (see code bellow)

=== snip, snip === Code ===
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet"

oReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_QUERY_VALUE, _
bHasAccessRight
If bHasAccessRight = True Then
Wscript.Echo "1. Have Query Value Access Rights on Key"
Else
=== snip, snip === Code ===

But what if want to list all of the permissions of a specific key. How
would I do this?