should speek for itself:
'VBS script to "almost" automatically insert PerfCounters in
'your zabbix_agentd.conf for monitoring network traffic on a windows machine
'
'item in zabbix should be:
'type: active agent
'key: nic_in (our nic_out)
'info: float
'translate Bytes Received/sec & Bytes Sent/sec to your locale
'edit strFileName to your needs
'
Option Explicit
Dim colAdapters, objAdapter, NicDescription, strFileName, objFS, objTS
Set colAdapters = GetObject("winmgmts:{impersonationLevel=impersonat e}").ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objAdapter in colAdapters
NicDescription = objAdapter.Description
Next
strFileName = "C:\zabbix_agentd.conf"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile(strFileName,8)
objTS.Write vbCrLf
objTS.Write "PerfCounter=nic_in,"& Chr(34)& "\Network Interface("& NicDescription &")\Bytes Received/sec" & Chr(34) & ",60"
objTS.Write vbCrLf
objTS.Write "PerfCounter=nic_out,"& Chr(34)& "\Network Interface("& NicDescription &")\Bytes Sent/sec" & Chr(34) & ",60"
objTS.Write vbCrLf
objTS.Close
WScript.Quit
'VBS script to "almost" automatically insert PerfCounters in
'your zabbix_agentd.conf for monitoring network traffic on a windows machine
'
'item in zabbix should be:
'type: active agent
'key: nic_in (our nic_out)
'info: float
'translate Bytes Received/sec & Bytes Sent/sec to your locale
'edit strFileName to your needs
'
Option Explicit
Dim colAdapters, objAdapter, NicDescription, strFileName, objFS, objTS
Set colAdapters = GetObject("winmgmts:{impersonationLevel=impersonat e}").ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objAdapter in colAdapters
NicDescription = objAdapter.Description
Next
strFileName = "C:\zabbix_agentd.conf"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile(strFileName,8)
objTS.Write vbCrLf
objTS.Write "PerfCounter=nic_in,"& Chr(34)& "\Network Interface("& NicDescription &")\Bytes Received/sec" & Chr(34) & ",60"
objTS.Write vbCrLf
objTS.Write "PerfCounter=nic_out,"& Chr(34)& "\Network Interface("& NicDescription &")\Bytes Sent/sec" & Chr(34) & ",60"
objTS.Write vbCrLf
objTS.Close
WScript.Quit

==
). I can't seem to find it in the documentation and I haven't found any thread that explicitly says what to use. Maybe I just missed it. 
Comment