Read a reg key, output to a text file

[William_D]

Looking to read a registry key, output it to a text file. I will then do some work to cleanup the reg key, read it again, and write the second set of results same txt file so we have a before and after results.
I have some logic but I don't think its "graceful" enough and currently do not know how to append the after results to the same text file:

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

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

arrRegPaths = Array( _
"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent\Post Platform",_
"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\UA Tokens"_
)

Const intForReading = 1
Const intUnicode = -1

strFileName = "C:\GT_Log\CleanUpUA.txt"

Set objRegFile = objFSO.CreateTextFile(strFileName, True, True)
objRegFile.WriteLine "IE User Agent Strings:"

For Each strRegPath In arrRegPaths
strCommand = "cmd /c REG EXPORT """ & strRegPath & """ """ & Replace(strRegPath, "\", "_") & ".txt"""
objShell.Run strCommand, 0, True
If objFSO.FileExists(Replace(strRegPath, "\", "_") & ".txt") = True Then
'WScript.Sleep 10000 ' Wait one second to give the file time to close
Set objInputFile = objFSO.OpenTextFile(Replace(strRegPath, "\", "_") & ".txt", intForReading, False, intUnicode)
If Not objInputFile.AtEndOfStream Then
objInputFile.SkipLine
objRegFile.Write objInputFile.ReadAll
End If
objInputFile.Close
Set objInputFile = Nothing
objFSO.DeleteFile Replace(strRegPath, "\", "_") & ".txt", True
End If
Next

Delete some values....

Read the key again....

write the second set of results to the text file created earlier.

[William_D]

Worked this out but, as with VBscript, Im sure there could be any number of ways: Here's what I came up with. The logic is to output the strings in this key to a text file, clean them up by targeting specific strings for deletion, and then append the txt file with the current key.

on error resume next

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set ObjReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

arrRegPaths = Array( _
"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent\Post Platform",_
"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\UA Tokens"_
)

Const intForReading = 1
Const intUnicode = -1
Const intForAppending = 8

strFileName = "C:\GT_Log\CleanUpUA.txt"

Set objRegFile = objFSO.CreateTextFile(strFileName)
objregfile.close
Set objRegFile = objFSO.opentextfile(strFileName,8)
objRegFile.WriteLine "IE User Agent Strings Before Clean Up:"

For Each strRegPath In arrRegPaths
strCommand = "cmd /c REG EXPORT """ & strRegPath & """ """ & Replace(strRegPath, "\", "_") & ".txt"""
objShell.Run strCommand, 0, True
If objFSO.FileExists(Replace(strRegPath, "\", "_") & ".txt") = True Then
'WScript.Sleep 1000 ' Wait one second to give the temp file time to close
Set objInputFile = objFSO.OpenTextFile(Replace(strRegPath, "\", "_") & ".txt", intForReading, False, intUnicode)
If Not objInputFile.AtEndOfStream Then
objInputFile.SkipLine
objRegFile.Write objInputFile.ReadAll
End If
objInputFile.Close
Set objInputFile = Nothing
objFSO.DeleteFile Replace(strRegPath, "\", "_") & ".txt", True
End If
Next
objregfile.close
'****************************************************************

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent\Post Platform"
strStringValueName = ".NET CLR 3.0.04506.30"
ObjReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName
strStringValueName = ".NET CLR 3.0.04506.648"
ObjReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName
strStringValueName = ".NET CLR 3.5.21022"
ObjReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\UA Tokens"
strStringValueName = "MSN 2.5"
ObjReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName
strStringValueName = "MSN 2.0"
ObjReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName

'******************************************************************

strFileName = "C:\GT_Log\CleanUpUA.txt"

Set objRegFile = objFSO.OpenTextFile(strFileName,8)
objRegFile.WriteLine "IE User Agent Strings After Clean Up:"

For Each strRegPath In arrRegPaths
strCommand = "cmd /c REG EXPORT """ & strRegPath & """ """ & Replace(strRegPath, "\", "_") & ".txt"""
objShell.Run strCommand, 0, True
If objFSO.FileExists(Replace(strRegPath, "\", "_") & ".txt") = True Then
'WScript.Sleep 10000 ' Wait one second to give the file time to close
Set objInputFile = objFSO.OpenTextFile(Replace(strRegPath, "\", "_") & ".txt", intForReading, False, intUnicode)
If Not objInputFile.AtEndOfStream Then
objInputFile.SkipLine
objRegFile.Write objInputFile.ReadAll
End If
objInputFile.Close
Set objInputFile = Nothing
objFSO.DeleteFile Replace(strRegPath, "\", "_") & ".txt", True
End If
Next