List members local administrators group on local pc

Hello,
 
my goal is to have this script to list the members of the local administrators group and write it in a reg file. Afterwards I'll need to launch the reg file (that won't we a problem). And the final step is to configure OCS-NG (our inventory program) to search for the registry key. Can someone help me with the script? I don't think it'll be a big script.
 
jvuz

OK, this I already have:
 
SET objShell=CreateObject("Wscript.Shell")
DIM objExec, strResult
SET objExec = objShell.Exec("hostname")
strResult = objExec.StdOut.ReadAll
 
With this code I get the name of the computer. How can i get the info about the members of the localgroup administrators?