[ActiveDir] LIL OT system Reg size script

[Cothern Jeff D. Team EITC]

We recently had an issue where a policy seems to be causing the registry size to blow up on several of our servers.  We Believe we have found the culprit policy and are looking into it but we want to monitor things. On this front I am trying to put to gether a script that will go thru a list of our servers and check the file sys of the system registry. 

 

i.e.  check admin$\system32\config\system

 

here is what i have

 

On Error Resume Next

 

Const ForReading = 1

 

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("e:\scripts\servers.txt", ForReading)

 

Do Until objTextFile.AtEndOfStream
    strComputer = objTextFile.Readline

 

    ' =====================================================================
    ' Insert your code here
    ' =====================================================================

 

 WScript.Echo
 WScript.Echo "=========================================="
 WScript.Echo "Computer: " & strComputer
 WScript.Echo "=========================================="

 

Set objFile = objFSO.GetFile("admin$\system32\config\system")
Set objItem = strComputer.objFile

 

WScript.Echo "FileSize: " & objItem.FileSize

 

    ' =====================================================================
    ' End
    ' =====================================================================

 

Loop

 

objTextFile.Close

 

Where am I going wrong?

 

Jeff