If you're not familliar with it, pick up an ASP book, and a book on WMI Scripting. Microsoft's Scriptomatic is also a handy tool. 🙂
Here's an example of my script that pulls information such as serial number, memory, disk size, make and model of the PC:
<table class="ContentTable" cellspacing="3" cellpadding="3">
<tr><th colspan="2">Asset Information</th></tr>
<%
Set colItems = objWMI.ExecQuery("Select Caption, BuildNumber, ServicePackMajorVersion, ServicePackMinorVersion from Win32_OperatingSystem",,48)
For Each objItem in colItems
Response.Write "<tr class=ContentResult1>"
Response.Write "<td>OS</td><td>" & objItem.Caption & " (Build " & objItem.BuildNumber & ") (Service Pack " & objItem.ServicePackMajorVersion & "." & objItem.ServicePackMinorVersion & ")</td>"
Response.Write "</tr>"
Next
Set colItems = objWMI.ExecQuery("Select Vendor, Name, IdentifyingNumber from Win32_ComputerSystemProduct",,48)
For Each objItem in colItems
Response.Write "<tr class=ContentResult2>"
Response.Write "<td>Vendor</td><td>" & objItem.Vendor & "</td>"
Response.Write "</tr><tr class=ContentResult1>"
Response.Write "<td>Name</td><td>" & objItem.Name & "</td>"
Response.Write "</tr><tr class=ContentResult2>"
Response.Write "<td>Serial</td><td>" & objItem.IdentifyingNumber & "</td>"
Response.Write "</tr>"
Next
Set colItems = objWMI.ExecQuery("Select Name from Win32_Processor",,48)
For Each objItem in colItems
Response.Write "<tr class=ContentResult1>"
Response.Write "<td>CPU</td><td>" & Trim(objItem.Name) & "</td>"
Response.Write "</tr>"
Next
Set colItems = objWMI.ExecQuery("Select Size from Win32_DiskDrive",,48)
For Each objItem in colItems
objItem.Size = objItem.Size / 1048576
objItem.Size = Int(objItem.Size)
Response.Write "<tr class=ContentResult2>"
Response.Write "<td>HD Size</td><td>" & objItem.Size & " (Megabytes)</td>"
Response.Write "</tr>"
Next
Set colItems = objWMI.ExecQuery("Select TotalPhysicalMemory from Win32_LogicalMemoryConfiguration",,48)
For Each objItem in colItems
objItem.TotalPhysicalMemory = objItem.TotalPhysicalMemory / 1024
objItem.TotalPhysicalMemory = Int(objItem.TotalPhysicalMemory)
Response.Write "<tr class=ContentResult1>"
Response.Write "<td>RAM</td><td>" & objItem.TotalPhysicalMemory & " (Megabytes)</td>"
Response.Write "</tr>"
Next
Set colItems = objWMI.ExecQuery("Select Name from Win32_NetworkAdapter",,48)
For Each objItem in colItems
If(InStr(objItem.Name, "WAN") = 0 And InStr(objItem.Name, "RAS") = 0 And InStr(objItem.Name, "Parallel") = 0) Then
Response.Write "<tr class=ContentResult2>"
Response.Write "<td>NIC</td><td>" & objItem.Name & "</td>"
Response.Write "<tr>"
End If
Next
Set colItems = objWMI.ExecQuery("Select * from Win32_Printer",,48)
For Each objItem in colItems
Response.Write "<tr class=ContentResult1>"
Response.Write "<td>Printer</td><td>" & objItem.Name & " (" & objItem.DeviceID & ")</td>"
Response.Write "</tr>"
Next
Set colItems = Nothing
Set objItem = Nothing
%>
</table>