script to detect network speed

[Admiral208]

Hi Geeks!

Im looking for a script that I can run that will show me the network speed on each pc in the domain. I would like the output to be

===========
Computer 1
===========
Speed = 100mbs


===========
Computer 2
===========
Speed = 1gbs


etc etc.

I have zero experience with scripts and was wondering if anyone has something like this.

i have looked at the MS script repository and found a few examples but none of them seem to work.

Any help would be much appreciated.

James

[mac_shinobi]

I will have a look at this later as not much time now, I think Arthur or someone will post back with a powershell script but I will look at doing this in vbs myself as still not had time to get into or my head around powershell.

Also have you got a unc path that all machines have access to in terms of read / write so that the script can append data for each computer or each computer will create its own text file and each file will be named with the computer name ??

for example

computer1.txt
computer2.txt
etc

[Michael]

BGInfo can do this or alternatively, if you use HP switches for example on the switch itself or via a web interface (if managed) will tell you the speed each port is operating at.

If you need to know what each workstation is connecting at, I would recommend BGInfo. You can also display other information, such as the IP address, Service Pack version or even create your own custom entries.

[Admiral208]

ok, thanks guys.

i like bginfo but i dont want to have to physically go to each machine to see the speed. I would like it in a text file that I can see from my desk.

i would like the computers to modify one text document, I dont want 100 different documetns to look through.

[SYNACK]

This will grab the ibformation your after:
VBScript - List Speed & Duplex settings on network adapters using WMI

and this shows writing to a text file:
Writing to a text file using vbscript - IT Management Forum

[Admiral208]

Ok, the first script works graet but how do i combine the two??

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
Set colItems = objWMIService.ExecQuery("SELECT * FROM MSNdis_LinkSpeed",,48)
For Each objItem in colItems
Wscript.Echo "InstanceName: " & objItem.InstanceName
Wscript.Echo "NdisLinkSpeed: " & objItem.NdisLinkSpeed/10 & " kbps"
Wscript.Echo " "
Next

This is what im using, how do i get it into a txt file??

[Steve21]

Ok, the first script works graet but how do i combine the two??



This is what im using, how do i get it into a txt file??

Should be able to do it like:

Dim Stuff, myFSO, WriteStuff, dateStamp
dateStamp = Date()

Stuff = ""
Stuff2 = ""

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile("yourtextfile.txt", 8, True)

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
Set colItems = objWMIService.ExecQuery("SELECT * FROM MSNdis_LinkSpeed",,48)
For Each objItem in colItems
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''
Stuff = "InstanceName: " & objItem.InstanceName
Stuff2 = "NdisLinkSpeed: " & objItem.NdisLinkSpeed/10 & " kbps"
WriteStuff.WriteLine(Stuff)
WriteStuff.WriteLine(Stuff2)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''
Next

WriteStuff.Close
SET WriteStuff = NOTHING
SET myFSO = NOTHING

Basically just changing your echo lines to write to the file instead. Might need a little tinkering for file names etc etc :P

Steve

[Admiral208]

thats works great, thaks steve. to take it a step further, how would i include the computer name in the results and only those network adapters that are connected instead of all the network adapters that are on my computer??

i know im asking alot here, but it will help me.

[Steve21]

Assuming that first one I posted works (Can't test atm)

Try this for Comp name:

Dim Stuff, myFSO, WriteStuff, dateStamp
dateStamp = Date()

Stuff = ""
Stuff2 = ""
Stuff3 = ""

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile("yourtextfile.txt", 8, True)

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
Set colItems = objWMIService.ExecQuery("SELECT * FROM MSNdis_LinkSpeed",,48)
For Each objItem in colItems
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''
Stuff = "InstanceName: " & objItem.InstanceName
Stuff2 = "NdisLinkSpeed: " & objItem.NdisLinkSpeed/10 & " kbps"
Stuff3 = "Computer Name: " & objItem.Name
WriteStuff.WriteLine(Stuff)
WriteStuff.WriteLine(Stuff2)
WriteStuff.WriteLine(Stuff3)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''
Next

WriteStuff.Close
SET WriteStuff = NOTHING
SET myFSO = NOTHING

[Admiral208]

the first post worked perfectly.

trying this one, i get an error message

line: 27
char: 21
error: expected end of statement
code: 800A0401

[Steve21]

Try:

Dim Stuff, myFSO, WriteStuff, dateStamp
dateStamp = Date()

Stuff = ""
Stuff2 = ""
Stuff3 = ""

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile("yourtextfile.txt", 8, True)

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
Set colItems = objWMIService.ExecQuery("SELECT * FROM MSNdis_LinkSpeed",,48)
For Each objItem in colItems
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''
Stuff = "InstanceName: " & objItem.InstanceName
Stuff2 = "NdisLinkSpeed: " & objItem.NdisLinkSpeed/10 & " kbps"
Stuff3 = "Computer Name: " & objItem.ComputerName
WriteStuff.WriteLine(Stuff)
WriteStuff.WriteLine(Stuff2)
WriteStuff.WriteLine(Stuff3)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''
Next

WriteStuff.Close
SET WriteStuff = NOTHING
SET myFSO = NOTHING

Can't run scripts where I'm logged, so slower this way :P But try that one. Think I named "Name" wrong in first one.

[Admiral208]

error line 18: object doesnt support this property or method: 'objitem.computer name

[Steve21]

error line 18: object doesnt support this property or method: 'objitem.computer name

Silly question, but did you put a space in it?

"'objitem.computer name " <- or is that just how it reported it

Steve

[Admiral208]

Sorry. thats me not being able to copy text correctly.

there is no space between computer and name

[Steve21]

Ah, I was being stupid.

Dim Stuff, myFSO, WriteStuff, dateStamp
dateStamp = Date()

Stuff = ""
Stuff2 = ""
Stuff3 = ""

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile("yourtextfile.txt", 8, True)

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")


Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")

For Each objItem in colItems
Stuff3 = "Computer Name: " & objItem.Name
WriteStuff.WriteLine(Stuff3)
Next


Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")

Set colItems = objWMIService.ExecQuery("SELECT * FROM MSNdis_LinkSpeed",,48)
For Each objItem in colItems


Stuff = "InstanceName: " & objItem.InstanceName
Stuff2 = "NdisLinkSpeed: " & objItem.NdisLinkSpeed/10 & " kbps"

WriteStuff.WriteLine(Stuff)
WriteStuff.WriteLine(Stuff2)


Next

WriteStuff.Close
SET WriteStuff = NOTHING
SET myFSO = NOTHING

Should work now ;P

Only selected info from MSNdis_LinkSpeed, forgot Win32 for computer name :P

Try that and gimme a shout,

Steve