ntXdll FAQ

Sub fill()

Dim cmp1 As New Computer
Dim cmp2 As Computer
Dim i As Integer
Dim lngResult As Long
Dim s As String
Dim reg1 As New Registry

MsgBox cmp1.InitComputerInfo("*", , , cmp1.SV_ENUM_ONLY, "MyPDC", "MyDomain")

i = 2

For Each cmp2 In cmp1.Computers

    lngResult = reg1.OpenRegistry(reg1.HK_LOCAL_MACHINE, cmp2.CompName)
    Range("E" & i).Value = "OpenRegistry: " & lngResult & ": " & cmp2.CompName

    lngResult = reg1.OpenRegKey(reg1.K_QUERY_VALUE, _
           "SOFTWARE\Microsoft\Windows NT\CurrentVersion")
    Range("F" & i).Value = "OpenRegKey: " & lngResult & ": " & cmp2.CompName

    lngResult = reg1.GetRegValueInfo("Plus! VersionNumber")
    Range("G" & i).Value = "GetRegValueInfo: " & lngResult & ": " & cmp2.CompName

    Range("A" & i).Value = cmp2.CompName
    Range("B" & i).Value = "IEVersion: " & reg1.RegValue

    lngResult = reg1.CloseRegKey

    lngResult = reg1.OpenRegKey(reg1.K_QUERY_VALUE, _
           "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon")

    lngResult = reg1.GetRegValueInfo("DefaultUserName")

    If lngResult = 0 Then
        Range("C" & i).Value = "User: " & reg1.RegValue
    Else
        Range("C" & i).Value = "User: not available ***"
    End If

    lngResult = reg1.CloseRegKey
    lngResult = reg1.CloseRegistry

    i = i + 1

    DoEvents

Next

Set cmp1 = Nothing
Set cmp2 = Nothing
Set reg1 = Nothing

End Sub