VBScript mrežna

On Error Resume Next
strComputer = "."
stevec = 0
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)
    Wscript.Echo "Mrezne naprave"
For Each objItem in colItems
    Wscript.Echo "--------------"
    Wscript.Echo "Naziv: " & objItem.Name
    Wscript.Echo "MAC naslov: " & objItem.MACAddress
    Wscript.Echo "Proizvajalec: " & objItem.Manufacturer
     
    Wscript.Echo "hitrost1: " & objItem.MaxSpeed
    Wscript.Echo "hitrost 2: " & objItem.Speed
	
	if (objItem.MACAddress <> "") then stevec = stevec + 1
Next

Wscript.Echo "--------------"
Wscript.Echo "Število naprav z MAC naslovom: " & stevec