[AccessD] OT: "seeing all net cards"

John Colby wrote:

>Does anyone know of a free something that will allow me to "see" all of the
>NICs (the IP address assigned to them for example) on my little home
>network?
>
>John W. Colby
>www.colbyconsulting.com
>website: http://www.databaseadvisors.com
>  
>
 With WMI installed this might work on a network. It does on single 
laptop WinXP

Sub testsystem()

'add reference to WMI extension  library; must run from administrator 
account
Dim locator As Object
Dim service As Object
Dim system As Object
Dim SystemSet As Object
Dim SystemSetAll As Object
Dim VarInstance As Object
'You must be member of administrator group
Set locator = CreateObject("WbemScripting.SWbemLocator")
Set service = locator.connectserver
Set SystemSet = service.Get("Win32_NetworkAdapterConfiguration")
Set VarInstance = SystemSet.Instances_
For Each system In VarInstance
    If system.Index = 0 Then
        Debug.Print (system.Description)
        Debug.Print (system.ServiceName)
        Debug.Print (system.IPAddress(0))
        Debug.Print (system.IPSubnet(0))
        Debug.Print (system.MACAddress)
Else
        Debug.Print (system.Description)
        Debug.Print (system.ServiceName)
        Debug.Print (system.IPAddress(0))
        Debug.Print (system.IPSubnet(0))
        Debug.Print (system.MACAddress)
End If
Next
Set SystemSetAll = 
GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
'grab all network system names
For Each system In SystemSetAll
      Debug.Print "Computername " & system.Name
      testallnics (system.Name)
 Next

End Sub
Sub testallnics(strComputer As String)
'Dim strComputer As String
Dim objWMIService As Object
Dim colitems As Object
Dim objitem As Object
On Error Resume Next
'strComputer = "." 'initial test
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colitems = objWMIService.ExecQuery("Select * from 
Win32_NetworkAdapter", , 48)
For Each objitem In colitems
    Debug.Print "AdapterType: " & objitem.AdapterType
    Debug.Print "AutoSense: " & objitem.AutoSense
    Debug.Print "Availability: " & objitem.Availability
    Debug.Print "Caption: " & objitem.Caption
    Debug.Print "ConfigManagerErrorCode: " & objitem.ConfigManagerErrorCode
    Debug.Print "ConfigManagerUserConfig: " & 
objitem.ConfigManagerUserConfig
    Debug.Print "CreationClassName: " & objitem.CreationClassName
    Debug.Print "Description: " & objitem.Description
    Debug.Print "DeviceID: " & objitem.DeviceID
    Debug.Print "ErrorCleared: " & objitem.ErrorCleared
    Debug.Print "ErrorDescription: " & objitem.ErrorDescription
    Debug.Print "Index: " & objitem.Index
    Debug.Print "InstallDate: " & objitem.InstallDate
    Debug.Print "Installed: " & objitem.Installed
    Debug.Print "LastErrorCode: " & objitem.LastErrorCode
    Debug.Print "MACAddress: " & objitem.MACAddress
    Debug.Print "Manufacturer: " & objitem.Manufacturer
    Debug.Print "MaxNumberControlled: " & objitem.MaxNumberControlled
    Debug.Print "MaxSpeed: " & objitem.MaxSpeed
    Debug.Print "Name: " & objitem.Name
    Debug.Print "NetworkAddresses: " & objitem.NetworkAddresses
    Debug.Print "PermanentAddress: " & objitem.PermanentAddress
    Debug.Print "PNPDeviceID: " & objitem.PNPDeviceID
    Debug.Print "PowerManagementCapabilities: " & 
objitem.PowerManagementCapabilities
    Debug.Print "PowerManagementSupported: " & 
objitem.PowerManagementSupported
    Debug.Print "ProductName: " & objitem.ProductName
    Debug.Print "ServiceName: " & objitem.ServiceName
    Debug.Print "Speed: " & objitem.Speed
    Debug.Print "Status: " & objitem.Status
    Debug.Print "StatusInfo: " & objitem.StatusInfo
    Debug.Print "SystemCreationClassName: " & 
objitem.SystemCreationClassName
    Debug.Print "SystemName: " & objitem.SystemName
    Debug.Print "TimeOfLastReset: " & objitem.TimeOfLastReset
Next


End Sub


_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com