Listing 4: The UpdateSID Subroutine

Sub UpdateSID
  On Error Resume Next
  Set objWMIService7 = GetObject("winmgmts:\\" & strComputerMaster & "\root\cimv2")
  Set colItems7 = objWMIService7.ExecQuery("SELECT * FROM Win32_Account",,48)

  If Err.Number <> 0 Then
    ' MsgBox "Error connecting to " & strComputerMaster
    Err.Clear
    DRS.Close
    WScript.Quit
  End If

  For Each objItem7 in colItems7
  ' ******* BEGIN CALLOUT A *******
    DRS.MoveFirst
    FindTxt = "SID='" & objItem7.SID & "'"
    DRS.Find(FindTxt)
    If DRS.EOF Or DRS.BOF Then
  ' ******* END CALLOUT A *******
      DRS.AddNew
      DRS("User") = objItem7.Caption
      DRS("SID") = objItem7.SID
      DRS("SIDType") = objItem7.SIDType
      DRS.Update
    End If
  Next

End Sub