wieso klappt das nicht

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

Was bekommst du, wenn du dir
ausgeben lässt?
Nebenbei noch zwei Anmerkungen:
1. Dein Betreff ist nicht wirklich hilfreich um zu erahnen, was für ein Problem du hast. Pass ihn der Frage an und hast bessere Chancen auf Antworten (Netiquette 14)
2. Für die Darstellung von Code gibt es die vB-Tags