Jump to content
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble

MSFN is made available via donations, subscriptions and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, register and become a site sponsor/subscriber and ads will be disabled automatically. 

Sign in to follow this  
Bullseye

VB6 And Network Adapter

Recommended Posts

Try this VBS Script.

Option Explicit 
Dim Wmi :Set Wmi = GetObject("winmgmts:\\.\root\CIMV2")
Dim Adapter, ColItems, Card, IP, Ip1, Ip2, NetMadeBy, ObjItem, Report
Set ColItems = Wmi.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration",,48)
For Each ObjItem in ColItems
If isNull(ObjItem.IPAddress) Then
Else
NetMadeBy = Split(ObjItem.Description," ")
Card = Len(NetMadeBy(0))
Report = Report & "Caption " & vbTab & ObjItem.Description & vbCrLf
Ip = Join(ObjItem.IPAddress, ",")
Ip1 = Split(IP,",")
For Each Ip2 in Ip1
Report = Report & "IPAddress " & vbTab & Ip2 & vbCrLf
Adapter_Info1()
Exit For
Next
End If
Next
Function Adapter_Info1()
Dim ColNet, M1, NetItem
Set ColNet = Wmi.ExecQuery("SELECT * FROM Win32_NetworkAdapter",,48)
For Each NetItem in ColNet
If Instr(Lcase(NetItem.Manufacturer),LCase("Microsoft")) Then
Else
M1 = Left(NetItem.Manufacturer,Card)
M1 = M1
If InStr(NetMadeBy(0),M1) Then
Report = Report &_
"Manufacturer" & vbTab & NetItem.Manufacturer & vbCrLf & _
"Speed " & vbTab & FormatNumber(NetItem.Speed) & vbCrLf & _
"MACAddress " & vbTab & NetItem.MACAddress & vbCrLf
End If
End If
Next
End Function
WScript.Echo Report

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×