code:

---

	$CPUsp	=@mhz
		if instr($CPUsp,"179")		$CPUsp=1800		endif
		if instr($CPUsp,"106")		$CPUsp=1100		endif
		if instr($CPUsp,"702")		$CPUsp=700		endif
	$modem	=WMIQuery("Description","Win32_POTSModem",,"Status","OK")
	$Printer=WMIQuery("DriverName","Win32_Printer",,"SystemName","@wksta")
	$Video	=WMIQuery("Description","Win32_VideoController")
	$HD	=WMIQuery("Size","Win32_DiskDrive")
	$hdGB	=left($hd,len($hd)-9)
	$hdMBfr	=GetDiskSpace("c:")/1000
	$Make	=WMIQuery("Manufacturer","Win32_ComputerSystem")
	$Model	=WMIQuery("Model","Win32_ComputerSystem")
	$Biosv	=WMIQuery("SMBIOSBIOSVersion","Win32_BIOS")
	$biosd	=WMIQuery("Version","Win32_BIOS")
	$asset	=WMIQuery("SMBIOSAssetTag","Win32_SystemEnclosure")
		if instr($asset,"|")
			for each $return in split($asset,"|")
				if $return	$asset=$return		endif
				next
			endif
	$SerNo	=WMIQuery("SerialNumber","Win32_BIOS")
	if len($SerNo) < 2
		$SerNo=WMIQuery("SerialNumber","Win32_SystemEnclosure")
		if instr($serno,"|")
			for each $return in split($serno,"|")
				if len($return)<10	$serno=$return		endif
				next
			endif
		endif
	$SerNo	=trim(ucase($SerNo))
	$dimms=Split(WMIQuery("Capacity","Win32_PhysicalMemory"),"|")
	for $a=0 to ubound($dimms)
		$=execute("$$dimm$a=val($$dimms[$a]) / 1048576")
		$=execute("$$memory=val($$Memory)+val($$dimm$a)")
		next

	select
		Case @producttype = "Windows 2000 Professional"        	$os="Win2K"		$ostype="WinNT"
		Case @producttype = "Windows NT Workstation"		$os="WinNT"		$ostype="WinNT"	
		endselect
		$ier		=readvalue("$HKLMS\Microsoft\Internet Explorer", "Version")
		$MSOdir		=readvalue("$HKLMSMWCV\App Paths\excel.exe","Path")
		$access		=getfileversion("$MSOdir\msaccess.exe")
		$excel		=getfileversion("$MSOdir\excel.exe")
		$outlook	=getfileversion("$MSOdir\outlook.exe")
		$powerpnt	=getfileversion("$MSOdir\powerpnt.exe")
		$pub		=getfileversion("$MSOdir\mspub.exe")
		$Word		=getfileversion("$MSOdir\winword.exe")

---

quote:

---

See How to use UDFs and WMIQuery() - Used to execute a query against WMI

---

code:

---

? @kix
? WMIQuery("SerialNumber","Win32_BIOS")
? @Serror

exit
;****************************************************************************************************
FUNCTION WMIQuery($what,$from,optional $computer,optional $where, optional $x)
	dim $strQuery, $objEnumerator, $value
	if not $computer	$computer="@WKSTA"	endif
	$strQuery = "Select $what From $from"
	if $where and $x	$strQuery = $strQuery + " Where $where = '$x'"		endif
	$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

---