Listing 3: The CreateDRS Subroutine

Sub CreateDRS
  On Error Resume Next

' ******* BEGIN CALLOUT A *******
  Const adFldIsNullable = 32
' ******* END CALLOUT A *******

  Set DRS = Nothing
  Set DRS = CreateObject("ADOR.Recordset")
  DRS.Fields.Append "User",201,256,adFldIsNullable
  DRS.Fields.Append "SID",201,256,adFldIsNullable
  DRS.Fields.Append "SIDType",201,256,adFldIsNullable
  DRS.Open
  Set objWMIService = GetObject("winmgmts:\\" & strComputerMaster & "\root\cimv2")
  Set colItems = objWMIService.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 objItem in colItems
    DRS.AddNew
    DRS("User") = objItem.Caption
    DRS("SID") = objItem.SID
    DRS("SIDType") = objItem.SIDType
    DRS.Update
  Next
End Sub