Set objShell=CreateObject("WScriptWScript.shell")
Set objNetwork=CreateObject("WScript.Network")
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objDict=CreateObject("Scripting.Dictionary")

strWinDir=objShell.ExpandEnvironmentStrings("%WinDir%")

strLog="\\File02\logs$\" & objNetwork.ComputerName & "-LogDump.txt"

Set objTS=objFSO.CreateTextFile(strLog,True)

strBootINI="c:\boot.ini"
strHOSTS=strWinDir & "\system32\drivers\etc\hosts"
strLMHOSTS=strWinDir & "\system32\drivers\etc\lmhosts"
strWinUpdate=strWinDir & "\WindowsUpdate.log"

objDict.Add "boot.ini",strBootIni
objDict.Add "hosts",strHOSTS
objDict.Add "lmhosts",strLMHosts
objDict.Add "Windows Update",strWinUpdate

For Each item In objDict
    Call DumpFile(item,objDict.Item(item))
Next

objTS.Close

WScript.Echo "See " & strLog & " for results."


Sub DumpFile(strHeader,strFile)

objTS.WriteLine UCase(strHeader)
objTS.WriteLine String(80,"*")

If objFSO.FileExists(strFile) Then
    strContent=objFSO.OpenTextFile(strFile).ReadAll
Else
    strContent="File Not Found"
End If

objTS.Write strContent
objTS.WriteBlankLines 2

End Sub