code:

---

$machine=@wksta
? "Computer Name = "+$machine
? "IdentifyingNumber = "WMIQuery("IdentifyingNumber","Win32_ComputerSystemProduct","$machine")
? "Name = "WMIQuery("Name","Win32_ComputerSystemProduct","$machine")
? "Vendor = "WMIQuery("Vendor","Win32_ComputerSystemProduct","$machine")
FUNCTION WMIQuery($what,$where, optional $computer)
	dim $strQuery, $objEnumerator, $value
	if not $computer	$computer="@WKSTA"	endif
	$strQuery = "Select $what From $where"
	$SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//$computer")
	$objEnumerator = $SystemSet.ExecQuery($strQuery)
	For Each $objInstance in $objEnumerator
		If @Error = 0 and $objInstance <> ""
			$=execute("$$value = $$objInstance.$what")
			$WMIQuery="$value"+"|"+"$WMIQuery"
			EndIf
		Next
	$WMIQuery=left($WMIQuery,len($WMIQuery)-1)
	exit @error
ENDFUNCTION  

---