by Anonymous (267 Submissions)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sun 4th May 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
WMI sample: retrieves network protocol settings of a remote or local computer. Written in VBScript. Uses Win32_NetworkProtocol WMI class.
' This function lists network protocol settings of a remote or local computer.
' Goto http://www.activexperts.com/activmonitor and click on WMI Samples
' for more samples
Sub ListNetworkProtocol( strComputer )
Dim objWMIService, colItems
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkProtocol",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "ConnectionlessService: " & objItem.ConnectionlessService
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "GuaranteesDelivery: " & objItem.GuaranteesDelivery
Wscript.Echo "GuaranteesSequencing: " & objItem.GuaranteesSequencing
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "MaximumAddressSize: " & objItem.MaximumAddressSize
Wscript.Echo "MaximumMessageSize: " & objItem.MaximumMessageSize
Wscript.Echo "MessageOriented: " & objItem.MessageOriented
Wscript.Echo "MinimumAddressSize: " & objItem.MinimumAddressSize
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "PseudoStreamOriented: " & objItem.PseudoStreamOriented
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "SupportsBroadcasting: " & objItem.SupportsBroadcasting
Wscript.Echo "SupportsConnectData: " & objItem.SupportsConnectData
Wscript.Echo "SupportsDisconnectData: " & objItem.SupportsDisconnectData
Wscript.Echo "SupportsEncryption: " & objItem.SupportsEncryption
Wscript.Echo "SupportsExpeditedData: " & objItem.SupportsExpeditedData
Wscript.Echo "SupportsFragmentation: " & objItem.SupportsFragmentation
Wscript.Echo "SupportsGracefulClosing: " & objItem.SupportsGracefulClosing
Wscript.Echo "SupportsGuaranteedBandwidth: " & objItem.SupportsGuaranteedBandwidth
Wscript.Echo "SupportsMulticasting: " & objItem.SupportsMulticasting
Wscript.Echo "SupportsQualityofService: " & objItem.SupportsQualityofService
Next
End Sub
' Main
Dim strComputer
Do
strComputer = inputbox( "Please enter a computername or . for local computer", "Input" )
Loop until strComputer <> ""
ListNetworkProtocol( strComputer )
WScript.Echo( vbCrlf & "For more samples, goto http://www.activexperts.com/activmonitor and click" )
WScript.Echo( "on WMI samples" )
No comments have been posted about WMI sample: retrieves network protocol settings of a remote or local computer. Written in VBScript.. Why not be the first to post a comment about WMI sample: retrieves network protocol settings of a remote or local computer. Written in VBScript..