' Listing 3. Code to Display the Descriptions of Various Items

<job>
<script language="VBScript">

Dim strComputer, WMI, wmiWin32Object, wmiWin32Objects, strText

' BEGIN CALLOUT A
strText = ""
strComputer = InputBox("Name of the computer that you wish to check?" & "(Click Cancel for this computer)","Computer Name")
' END CALLOUT A

Set WMI = GetObject("WinMgmts://" & strComputer)

Set wmiWin32Objects = WMI.InstancesOf("Win32_Processor")
For each wmiWin32Object in wmiWin32Objects
	strText = strText & "Processor: " & wmiWin32Object.Description & vbCrLf
Next

Set wmiWin32Objects = WMI.InstancesOf("Win32_Service")
For each wmiWin32Object in wmiWin32Objects
	strText = strText & "Service: " & wmiWin32Object.Description & vbCrLf
Next

Set wmiWin32Objects = WMI.InstancesOf("Win32_Process")
For each wmiWin32Object in wmiWin32Objects
	strText = strText & "Process: " & wmiWin32Object.Description & vbCrLf
Next

Set wmiWin32Objects = WMI.InstancesOf("Win32_Printer")
For each wmiWin32Object in wmiWin32Objects
	strText = strText & "Printer: " & wmiWin32Object.Caption & vbCrLf
Next

' BEGIN CALLOUT B
Set dlg = CreateObject("WshKit.DialogBox")
If dlg.Create("path://results.htm") = True Then
	dlg.SetItemValue "results", strText
	dlg.Move 0,0,750,450
	dlg.Show("center")
Else
	MsgBox "Template not found.", 64, "Results"
End If
' END CALLOUT B

</script>
</job>