A hta inspired by last months featured script.
html>
<head>
<title>Dell Serial Number</title>
<HTA:APPLICATION
APPLICATIONNAME="DELLSN"
SCROLL="no"
SINGLEINSTANCE="no"
WINDOWSTATE="normal"
VERSION="1.0"
/>
<title>Dell Serial Number</title>
<script language="VBScript">
Sub ShowSN_OnClick
strComputer = QueryField.value
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSMBIOS = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
List.InnerHTML = "Hostname:" & " <b><FONT COLOR=#00FF00>" & strComputer & "</FONT></b> " & "Dell S/N: " & "<b><FONT COLOR=#00FF00>" & objSMBIOS.SerialNumber & "</b></FONT>"
Next
End Sub
</script>
</head>
<body>
<br>
<b>Computer Name</b>
<br>
<input name="QueryField" type="text" value="" size="50">
<br><br>
<input name="ShowSN" type="button" value="Show S/N">
<br>
<span id = "List"></span>
</body>
</html>