===============================================
On Error Resume Next

Const ForReading = 1
Const ForWriting = 2
Const HKEY_LOCAL_MACHINE = &H80000002

'Text file containing names of systems to check with each host to a line.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
  ("c:\Scripts\Servers.txt", ForReading)

'Text file to write results to.
Set objTextFile1 = objFSO.OpenTextFile _
  ("c:\Scripts\Registry Query Results.txt", ForWriting, True)
objTextFile1.WriteLine("Script began execution at " & Now() & "!" & VBCRLF)

'Start of the work section loop.
Do Until objTextFile.AtEndOfStream
  strComputer = objTextFile.Readline

  'Connect to the registry on client.  If the client is inaccessible, write an error to the log file.
  Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
  strComputer & "\root\default:StdRegProv")

  if err.number <> 0 then
    objTextFile1.WriteLine(strComputer & vbTab & "is inaccessible - unable to connect to the registry!" & VBCRLF)
  Else

    ' Get the current value of the DWord key if it exists.
    strKeyPath = "SYSTEM\CurrentControlSet\services\NTDS\Parameters"
    strValueName = "Strict Replication Consistency"
    objRegistry.GetDwordValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
  End If

  If IsNull(dwValue) Then
    objtextFile1.WriteLine(strComputer & vbTab & "- Registry key does not exist!" & VBCRLF)

  Else
    objtextFile1.WriteLine(strComputer & vbTab & "- The registry key exists with a value of" & Space(1) & dwValue)

  End if

Loop

objTextFile1.WriteLine("Script completed execution at " & Now() & "!")
objTextFile.Close
objTextFile1.Close

Wscript.echo "Query process has finished - Review the log for results."