Here is the good base to get you started. Repeat the line in bold with &chr(9)& to create tabs in the value. You have to play with how it writes the file format.
bKey = WshShell.RegRead("\System\FM\Support\POC\Contact_Pho")
cKey = WshShell.RegRead("\System\FM\Support\POC\Contact")
WriteLog (bkey &Chr(65)& ckey)
'Subrotine that write log
Sub WriteLog (ByRef String)
Dim sIssueLog, UserArcSetFile
'put your path and file name here $path$ is path and $filename$ for file anme
sLogPath = objFSO.BuildPath("$path$","$filename$")
If objFSO.FileExists (sLogPath) Then
Set UserArcSetFile = objFSO.OpenTextFile(sLogPath, ForAppending, False)
Set UserArcSetFile = objFSO.CreateTextFile(sLogPath, True)
Why not tell the Tuner to collect this data and then export it out of report center?
If you have a sample, that would be great. I'm not a developer and what I do script, it's always something I've "borrowed" from someone else. And even then, I still need to ask someone to sort of fine tone what I've come up with and "borrowed".
What's a Tuner?
blquery can read from the registry but it still requires scripting.
See the example below:
$ blquery -h win2k -e 'reg_value ("HKEY_LOCAL_MACHINE\\SOFTWARE\\INTEL\\CurrentLanguage")'
$ blquery -h win2k -e 'reg_value ("HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Control\\Lsa\\bounds")'