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  

---

code:

---

	$Make =WMIQuery("Manufacturer","Win32_ComputerSystem")
	$Model=WMIQuery("Model","Win32_ComputerSystem")
	$SerNo=WMIQuery("SerialNumber","Win32_BIOS")
	if $SerNo < " " 	
		$SerNo=WMIQuery("SMBIOSAssetTag","Win32_SystemEnclosure")
		endif

---

code:

---

Break on

$Tag = WMIQuery("SerialNumber","Win32_BIOS")
If LEN($Tag) < 2
$Tag = WMIQuery("SMBIOSAssetTag","Win32_SystemEnclosure")
Endif

Cls
At (3,3) "Service Tag : $Tag"
Get $
Exit

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

---

code:

---

:Hardware
	$CPUsp	=@mhz
	$Memory	=Memorysize(0) +1
	$Modem	=WMIQuery("Description","Win32_POTSModem")
	$HD	=WMIQuery("Size","Win32_DiskDrive")
	$hdGB	=left($hd,len($hd)-9)
	$Make	=WMIQuery("Manufacturer","Win32_ComputerSystem")
	$Model	=WMIQuery("Model","Win32_ComputerSystem")
	$Biosv	=WMIQuery("SMBIOSBIOSVersion","Win32_BIOS")
	$biosd	=WMIQuery("Version","Win32_BIOS")
	$SerNo	=WMIQuery("SerialNumber","Win32_BIOS")
	if len($SerNo) < 2 	
		$SerNo=WMIQuery("SMBIOSAssetTag","Win32_SystemEnclosure")
		endif
	select
		case instr("$model","deskpro")	$case="Desktop"	
		case instr("$model","evo")	$case="Desktop"
		case instr("$model","latitude")	$case="Laptop"	
		case 1				$case="Not Specified"
		endselect

	? color c+/n "	Computer Model:	" color w+/n "$Make $Model $case" color w/n
	? color w/n  "			" color w+/n trim(@CPU)" / $memory MB / $hdGB GB" color w/n
	? color c+/n "	Serial Number:	" color w+/n $SerNo color w/n

	return

---

code:

---

Determining Computer Hardware...
        Computer Model: Compaq Evo D500 Desktop
                        Intel(R) Pentium(R) 4 CPU 1.80GHz / 512 MB / 20 GB
        Serial Number:  V526JYFYB689

---

quote:

---

Win32_SystemEnclosure
The Win32_SystemEnclosure WMI class represents the properties associated with a physical system enclosure.

Properties
The following table lists the properties for Win32_SystemEnclosure.

Property Description
AudibleAlarm Boolean
Read-only
Indicates whether the frame is equipped with an audible alarm.

BreachDescription string
Read-only
Free-form string providing more information if the SecurityBreach property indicates that a breach or some other security-related event occurred.

CableManagementStrategy string
Read-only
Free-form string that contains information on how the various cables are connected and bundled for the frame. With many networking, storage-related, and power cables, cable management can be a complex and challenging endeavor. The property contains information to aid in assembly and service of the frame.

Caption string
Read-only
Short description (one-line string) of the object.

ChassisTypes array (uint16)
Read-only
List of chassis types.

Values are:
1 = Other
2 = Unknown
3 = Desktop
4 = Low Profile Desktop
5 = Pizza Box
6 = Mini Tower
7 = Tower
8 = Portable
9 = Laptop
10 = Notebook
11 = Hand Held
12 = Docking Station
13 = All in One
14 = Sub Notebook
15 = Space-Saving
16 = Lunch Box
17 = Main System Chassis
18 = Expansion Chassis
19 = SubChassis
20 = Bus Expansion Chassis
21 = Peripheral Chassis
22 = Storage Chassis
23 = Rack Mount Chassis
24 = Sealed-Case PC

CreationClassName string
Read-only
Qualifiers: Key, MaxLen(256)
Name of the first concrete class to appear in the inheritance chain used in the creation of an instance. When used with the other key properties of the class, the property allows all instances of this class and its subclasses to be uniquely identified.

CurrentRequiredOrProduced sint16
Read-only
Current required by the chassis at 120V. If power is provided by the chassis (as in the case of a UPS), this property may indicate the amperage produced (as a negative number).

Depth real32
Read-only
Depth of the physical package in inches.

Description string
Read-only
Description of the object.

HeatGeneration uint16
Read-only
Amount of heat generated by the chassis in BTU/hour.

Height real32
Read-only
Height of the physical package in inches.

HotSwappable Boolean
Read-only
Indicates whether a physical package can be hot swapped (if it is possible to replace the element with a physically different but equivalent one while the containing package has power applied to it). For example, a disk drive package inserted using SCA connectors is removable and can be hot-swapped. All packages that can be hot-swapped are inherently removable and replaceable.

InstallDate datetime
Read-only
When the object was installed. A lack of a value does not indicate that the object is not installed.

LockPresent Boolean
Read-only
Indicates whether the frame is protected with a lock.

Manufacturer string
Read-only
Name of the organization responsible for producing the physical element.

Model string
Read-only
Name by which the physical element is generally known.

Name string
Read-only
Label by which the object is known. When subclassed, the property can be overridden to be a key property.

NumberOfPowerCords uint16
Read-only
Number of power cords which must be connected to the chassis, for all the components to operate.

OtherIdentifyingInfo string
Read-only
Additional data, beyond asset tag information, that could be used to identify a physical element. One example is bar code data associated with an element that also has an asset tag. Note that if only bar code data is available and is unique/able to be used as an element key, this property would be NULL and the bar code data used as the class key, in the tag property.

PartNumber string
Read-only
Part number assigned by the organization responsible for producing or manufacturing the physical element.

PoweredOn Boolean
Read-only
Indicates whether the physical element is powered on.

Removable Boolean
Read-only
Indicates whether a physical package is removable (if it is designed to be taken in and out of the physical container in which it is normally found, without impairing the function of the overall packaging). A package can still be removable if power must be 'off' in order to perform the removal. If power can be 'on' and the package removed, then the element is removable and can be hot-swapped. For example, an extra battery in a laptop is removable, as is a disk drive package inserted using SCA connectors. However, the latter can be hot swapped. A laptop's display is not removable, nor is a non-redundant power supply. Removing these components would affect the function of the overall packaging or is impossible due to the tight integration of the package.

Replaceable Boolean
Read-only
Indicates whether a physical package is replaceable (if it is possible to replace -- FRU or upgrade -- the element with a physically different one). For example, some computer systems allow the main processor chip to be upgraded to one of a higher clock rating. In this case, the processor is said to be replaceable. Another example is a power supply package mounted on sliding rails. All removable packages are inherently replaceable.

SecurityBreach uint16
Read-only
Status of a physical breach of the frame.

Values are:
1 = Other
2 = Unknown
3 = No Breach
4 = Breach Attempted
5 = Breach Successful

SecurityStatus uint16
Read-only
Security setting for external input (such as a keyboard) to this computer.

Values are:
1 = Other
2 = Unknown
3 = None
4 = External interface locked out
5 = External interface enabled


SerialNumber string
Read-only
Manufacturer-allocated number used to identify the physical element.

ServiceDescriptions array (string)
Read-only
More detailed explanations for any of the entries in the ServicePhilosophy array. Note, each entry of this array is related to the entry in ServicePhilosophy that is located at the same index.

ServicePhilosophy array (uint16)
Read-only
List that includes whether the frame is serviced from the top, front, back, or side; whether it has sliding trays or removable sides; and whether the frame is moveable (for example, having rollers).

Values are:
0 = Unknown
1 = Other
2 = Service From Top
3 = Service From Front
4 = Service From Back
5 = Service From Side
6 = Sliding Trays
7 = Removable Sides
8 = Moveable

SKU string
Read-only
Stock-keeping unit number for the physical element.

SMBIOSAssetTag string
Read-only
Asset tag number of the system enclosure.


Status string
Read-only
Current status of the object. Various operational and non-operational statuses can be defined. Operational statuses include: "OK", "Degraded", and "Pred Fail" (an element, such as a SMART-enabled hard drive, may be functioning properly but predicting a failure in the near future). Non-operational statuses include: "Error", "Starting", "Stopping", and "Service". The latter, "Service", could apply during mirror-resilvering of a disk, reload of a user permissions list, or other administrative work. Not all such work is on-line, yet the managed element is neither "OK" nor in one of the other states.

Values are:
"OK"
"Error"
"Degraded"
"Unknown"
"Pred Fail"
"Starting"
"Stopping"
"Service"

Tag string
Read-only
Qualifiers: Key, MaxLen(256)
Uniquely identifies the system enclosure.

Example: "System Enclosure 1"


TypeDescriptions array (string)
Read-only
More information on the ChassisTypes array entries. Note, each entry of this array is related to the entry in ChassisTypes that is located at the same index.

Version string
Read-only
Version of the physical element.

VisibleAlarm Boolean
Read-only
Indicating whether the equipment includes a visible alarm.

Weight real32
Read-only
Weight of the physical package in pounds.

Width real32
Read-only
Width of the physical package in inches.


Methods
The following table lists the method for Win32_SystemEnclosure.

Method Description
IsCompatible Class method that verifies whether the referenced physical element may be contained by or inserted into the physical package.

Remarks
The Win32_SystemEnclosure class is derived from CIM_Chassis.

See Also
Computer System Hardware Classes

---

code:

---

$machine=@wksta
? "Computer Name     = " + $machine
? "IdentifyingNumber = " + WMIQuery("IdentifyingNumber","Win32_ComputerSystemProduct","$machine")
? "Name              = " + WMIQuery("Name","Win32_ComputerSystemProduct","$machine")
? "Vendor            = " + WMIQuery("Vendor","Win32_ComputerSystemProduct","$machine")
? "SerNo             = " + WMIQuery("SerialNumber","Win32_SystemEnclosure")
? "Asset TAG         = " + WMIQuery("SMBIOSAssetTag","Win32_SystemEnclosure")
?
get $lix ; pause

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

---

Only thing I can't say for sure is the Asset Tag, wich displays nothing here, but then again, I don't recall if I set anything for that in the BIOS...

On my PC it goes like this (some values edited!)

code:

---

Computer Name     = PC_NAME
IdentifyingNumber = 6KFJ81L
Name              = Latitude C810
Vendor            = Dell Computer Corporation
SerNo             = 6KFJ81L
Asset TAG         =

---