required WMIQuery() UDF

Code:

	$bwidth	= WMIQuery("CurrentBandwidth","Win32_PerfRawData_Tcpip_NetworkInterface")
	$bname  = WMIQuery("name","Win32_PerfRawData_Tcpip_NetworkInterface")
	if $bname="WAN [PPP_SLIP] Interface" 	$bwidth=$bwidth/1000+"KB"	endif
	$adname = split($bname,"|")		$adapter= split($bwidth,"|")
	for $loop=0 to ubound($adapter)
		$adn=$adname[$loop]		$adb=$adapter[$loop]
		if not instr($adn,"Loopback")	$speed=val($adb)/1000000	endif
		next

	? "	Computer IP is "color c+/n"$ip "color w/n "with a "color w+/n $speed "MB" color w/n " connection"
_________________________
How to ask questions the smart way <-----------> Before you ask