'==========================================================================
'
' NAME: <filename>
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: [URL unfurl="true"]http://www.thespidersparlor.com[/URL]
' DATE : 12/16/2004
'
' COMMENT: <comment>
'
'==========================================================================
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)
For Each objItem in colItems
Report = Report & vbCrLf & "AdapterType: " & objItem.AdapterType
Report = Report & vbCrLf & "AdapterTypeId: " & objItem.AdapterTypeId
Report = Report & vbCrLf & "AutoSense: " & objItem.AutoSense
Report = Report & vbCrLf & "Availability: " & objItem.Availability
Report = Report & vbCrLf & "Caption: " & objItem.Caption
Report = Report & vbCrLf & "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
Report = Report & vbCrLf & "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
Report = Report & vbCrLf & "CreationClassName: " & objItem.CreationClassName
Report = Report & vbCrLf & "Description: " & objItem.Description
Report = Report & vbCrLf & "DeviceID: " & objItem.DeviceID
Report = Report & vbCrLf & "ErrorCleared: " & objItem.ErrorCleared
Report = Report & vbCrLf & "ErrorDescription: " & objItem.ErrorDescription
Report = Report & vbCrLf & "Index: " & objItem.Index
Report = Report & vbCrLf & "InstallDate: " & objItem.InstallDate
Report = Report & vbCrLf & "Installed: " & objItem.Installed
Report = Report & vbCrLf & "LastErrorCode: " & objItem.LastErrorCode
Report = Report & vbCrLf & "MACAddress: " & objItem.MACAddress
Report = Report & vbCrLf & "Manufacturer: " & objItem.Manufacturer
Report = Report & vbCrLf & "MaxNumberControlled: " & objItem.MaxNumberControlled
Report = Report & vbCrLf & "MaxSpeed: " & objItem.MaxSpeed
Report = Report & vbCrLf & "Name: " & objItem.Name
Report = Report & vbCrLf & "NetConnectionID: " & objItem.NetConnectionID
Report = Report & vbCrLf & "NetConnectionStatus: " & objItem.NetConnectionStatus
Report = Report & vbCrLf & "NetworkAddresses: " & objItem.NetworkAddresses
Report = Report & vbCrLf & "PermanentAddress: " & objItem.PermanentAddress
Report = Report & vbCrLf & "PNPDeviceID: " & objItem.PNPDeviceID
Report = Report & vbCrLf & "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
Report = Report & vbCrLf & "PowerManagementSupported: " & objItem.PowerManagementSupported
Report = Report & vbCrLf & "ProductName: " & objItem.ProductName
Report = Report & vbCrLf & "ServiceName: " & objItem.ServiceName
Report = Report & vbCrLf & "Speed: " & objItem.Speed
Report = Report & vbCrLf & "Status: " & objItem.Status
Report = Report & vbCrLf & "StatusInfo: " & objItem.StatusInfo
Report = Report & vbCrLf & "SystemCreationClassName: " & objItem.SystemCreationClassName
Report = Report & vbCrLf & "SystemName: " & objItem.SystemName
Report = Report & vbCrLf & "TimeOfLastReset: " & objItem.TimeOfLastReset
Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile ("nicConfig.txt", ForWriting)
ts.write Report
set ts = nothing
set fso = nothing