FUNCTION WMIQuery($sWhat, $sFrom, Optional $sComputer, Optional $sWhere, Optional $x, Optional $root, Optional $sUserID, Optional $sUserPW)

	Dim $sQuery, $objEnum, $sValue, $TMP, $SystemSet, $, $objInstance, $objLocator 



	if instr($sComputer,'\')

	 	$sComputer = right($sComputer,instrrev($sComputer,'\'))

	 	Endif

	If Not $sComputer or $sComputer = @wksta

		$sComputer = '.'

		EndIf

	if not $root

		$root = '\root\cimv2'

		Endif

	$sQuery = 'Select ' + $sWhat + ' From '+ $sFrom

	If $sWhere AND $x

 		$sQuery = $sQuery+' Where '+$sWhere+' = '"+$x+"'"

	 	EndIf

	if $sUserID and $sUserPW and $sComputer <> '.'

		$objLocator = CreateObject('WbemScripting.SWbemLocator')

			If @ERROR or not $objLocator 	Exit VAL("&"+Right(DecToHex(@ERROR),4)) 	EndIf

		$SystemSet  = $objLocator.ConnectServer($sComputer, $root, $sUserID, $sUserPW)

			If @ERROR or not $SystemSet	Exit VAL("&"+Right(DecToHex(@ERROR),4)) 	EndIf

		$SystemSet.Security_.ImpersonationLevel = 3

	else

		$SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"+$sComputer+$root)

			If @ERROR or not $SystemSet	Exit VAL("&"+Right(DecToHex(@ERROR),4)) 	EndIf

		Endif

	$objEnum = $SystemSet.ExecQuery($sQuery)

		If @ERROR or not $objEnum	Exit VAL("&"+Right(DecToHex(@ERROR),4)) 	EndIf

	For Each $objInstance in $objEnum

		$=Execute(Chr(36) + 'sValue = ' + Chr(36) + 'objInstance.' + $sWhat)

		$tmp = $tmp +'|' + iif(VarType($sValue) & 8192,join($sValue,'|',ubound($sValue)),$sValue) 

		Next

	$WMIQuery = split(substr($tmp,2),'|')

	Exit VAL("&"+Right(DecToHex(@ERROR),4))

	ENDFUNCTION