[ghid] network load balancing

[zme-ul]

folositor pe sisteme cu 2 adaptoare de retea (nush daca merge cu mai mult de 2)

caz: transferi ceva destul de mare catre un calculator in retea, si vrei sa faci transfer din/catre alt calculator (internet) in acelasi timp
nu uitati de limitarea hardware si rata de transfer pe HDD

mie mi-e folositor pe laptop cand fac transeferuri mari
are un RealTek LAN de 100mbps si un Intel Wireless N single mode ce se conecteaza cu 80mbps la router (in cel mai bun caz; in cel mai departata camera raman cu 54mbps)

am incercat si: http://www.sortbyte.com/software-progra ... -more-nics dar nu functioneaza


articol original: http://menistuff.blogspot.co.il/2012/02 ... ows-7.html

phpBB [video]

.vbs script:

Code: Select all

On Error Resume Next 

strComputer = "."
strMainNIC = "Wired"
strMainNICDevice = "Marvell Yukon 88E8056 PCI-E Gigabit Ethernet Controller"


Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\Root\CIMV2" ) 

Set colItems = objWMIService.ExecQuery _ 
("Select * From Win32_NetworkAdapter Where NetConnectionID = '" & strMainNIC  & "'") 

For Each objItem in colItems 
strMACAddress = objItem.MACAddress 
Wscript.Echo "MACAddress: " & strMACAddress 
Next 

Set colNetCard = objWMIService.ExecQuery _ 
("Select * From Win32_NetworkAdapterConfiguration where IPEnabled=TRUE" ) 

For Each objNetCard in colNetCard 
If objNetCard.MACAddress = strMACAddress Then 
For Each strIPAddress in objNetCard.IPAddress 
Wscript.Echo "Description: " & objNetCard.Description 
Wscript.Echo "IP Address: " & strIPAddress 
Wscript.Echo "IPConnectionMetric: " & objNetCard.IPConnectionMetric 
regValueDataMetric = objNetCard.IPConnectionMetric 
Next 
End If 
Next 

For X = 0 to 1000000000000000000 

Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\Root\CIMV2" ) 
Set colItems = objWMIService.ExecQuery _ 
("select * from Win32_PerfFormattedData_TCPIP_NetworkInterface Where Name = '" & strMainNICDevice  & "'" ) 
For Each objItem in colItems 
bytesTotal = objitem.BytesTotalPersec 
bandwidth = objItem.CurrentBandwidth 
result = FormatNumber(( bytesTotal / bandwidth) * 1000) 
output = "Main NIC utilization : " & result & " % Utilized: " & objitem.BytesTotalPersec & " " & regValueDataMetric & " Total Bandwidth: " & bandwidth 
WScript.Echo output 

NEXT 

If result >= 0.8 Then 
Wscript.Echo "Utilizing Secondary NIC"
If regValueDataMetric = "1" Then 
regValueDataMetric = "50" 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run  "netsh interface ipv4 set interface """"Wired"""" metric=" & regValueDataMetric, 0, TRUE
Set colItems = objWMIService.ExecQuery _ 
("Select * From Win32_NetworkAdapter Where NetConnectionID = '" & strMainNIC  & "'") 

End if 
End If 

If result <= 0.8 Then 

If regValueDataMetric = "50" Then 
   regValueDataMetric = "1" 

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run  "netsh interface ipv4 set interface """"Wired"""" metric=" & regValueDataMetric, 0, TRUE

Set colItems = objWMIService.ExecQuery _ 
("Select * From Win32_NetworkAdapter Where NetConnectionID = '" & strMainNIC  & "'") 

For Each objItem in colItems 
strMACAddress = objItem.MACAddress 
Wscript.Echo "MACAddress: " & strMACAddress 
Next 

Set colNetCard = objWMIService.ExecQuery _ 
("Select * From Win32_NetworkAdapterConfiguration where IPEnabled=TRUE" ) 

End if 
End If 

WScript.Sleep 1000

Next

nota: nu uitati sa modificati scriptul in functie de configuratie