A
avedir
folgendes problem
erst das script
option explicit
Dim strComputer
Dim SQL
Dim objWMI
Dim colClass
Dim objClass
dim colItems
dim objitem
dim NetzWname
dim gefunden
strComputer = "."
set objwmi = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'SQL="Select * from Win32_PerfRawData_Tcpip_NetworkInterface"
'SQL="Select * from Win32_NetworkAdapter"
SQL="SELECT * FROM Win32_NetWorkAdapterConfiguration"
gefunden = netzwerkarte()
call kartenwahl()
function netzwerkarte()
set colItems = objwmi.ExecQuery(SQL,,48)
for each objitem in colItems
if objitem.IPEnabled then
'netzwname = objitem.description (hiermit funktioniert es nicht)
NetzWname = "Marvell Yukon Gigabit Ethernet 10_100_1000Base-T Adapter, Copper RJ-45 - Paketplaner-Miniport"
end if
next
netzwerkarte = NetzWname
end function
sub kartenwahl()
Dim Temp
Temp = netzwerkarte()
SQL="Select * from Win32_PerfRawData_Tcpip_NetworkInterface"
sql = sql &" where Name ="
sql = sql & "'" & Temp &"'"
wscript.echo sql
Set colClass = objWMI.ExecQuery(sql,,48)
For Each objClass in colClass
WScript.Echo "Name: " & objClass.Name
WScript.Echo "BytesReceivedPersec: " & objClass.BytesReceivedPersec
WScript.Echo "BytesSentPersec: " & objClass.BytesSentPersec
Next
end sub
nun das problem
will diesen parameter nehmen
netzwname = objitem.description ( funktioniert es nicht)
gebe ich es gagegen maunell ein funktioniert es
NetzWname = "Marvell Yukon Gigabit Ethernet 10_100_1000Base-T Adapter, Copper RJ-45 - Paketplaner-Miniport"
woran liegt das , ende mit dem latein
erst das script
option explicit
Dim strComputer
Dim SQL
Dim objWMI
Dim colClass
Dim objClass
dim colItems
dim objitem
dim NetzWname
dim gefunden
strComputer = "."
set objwmi = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'SQL="Select * from Win32_PerfRawData_Tcpip_NetworkInterface"
'SQL="Select * from Win32_NetworkAdapter"
SQL="SELECT * FROM Win32_NetWorkAdapterConfiguration"
gefunden = netzwerkarte()
call kartenwahl()
function netzwerkarte()
set colItems = objwmi.ExecQuery(SQL,,48)
for each objitem in colItems
if objitem.IPEnabled then
'netzwname = objitem.description (hiermit funktioniert es nicht)
NetzWname = "Marvell Yukon Gigabit Ethernet 10_100_1000Base-T Adapter, Copper RJ-45 - Paketplaner-Miniport"
end if
next
netzwerkarte = NetzWname
end function
sub kartenwahl()
Dim Temp
Temp = netzwerkarte()
SQL="Select * from Win32_PerfRawData_Tcpip_NetworkInterface"
sql = sql &" where Name ="
sql = sql & "'" & Temp &"'"
wscript.echo sql
Set colClass = objWMI.ExecQuery(sql,,48)
For Each objClass in colClass
WScript.Echo "Name: " & objClass.Name
WScript.Echo "BytesReceivedPersec: " & objClass.BytesReceivedPersec
WScript.Echo "BytesSentPersec: " & objClass.BytesSentPersec
Next
end sub
nun das problem
will diesen parameter nehmen
netzwname = objitem.description ( funktioniert es nicht)
gebe ich es gagegen maunell ein funktioniert es
NetzWname = "Marvell Yukon Gigabit Ethernet 10_100_1000Base-T Adapter, Copper RJ-45 - Paketplaner-Miniport"
woran liegt das , ende mit dem latein