code:

---

;Many thanks to the authors of the WMIQuery UDF for this - two gents known as Radimus and Kent
FUNCTION WMIQuery($what,$where,)
	Dim $strQuery, $objEnumerator, $value	
	$strQuery = "Select $what From $where"	
	$SystemSet = GetObject($WMI)
	$objEnumerator = $SystemSet.ExecQuery($strQuery)	
	For Each $objInstance In $objEnumerator
		If @Error = 0 and $objInstance <> ""			
			$x=execute("$$value = $$objInstance.$what")			
			$WMIQuery="$value" + "|" + "$WMIQuery"			
		EndIf		
	Next	
	$WMIQuery=left($WMIQuery,len($WMIQuery)-1)	
	exit @error		
ENDFUNCTION
  

---