' Listing 2. Code to Display Printer Descriptions

<job>
<script language="VBScript">

Dim WMI, wmiWin32Printer, wmiWin32Printers, strText

strText = ""
' BEGIN CALLOUT A
Set WMI = GetObject("WinMgmts://")
' END CALLOUT A
Set wmiWin32Printers = WMI.InstancesOf("Win32_Printer")
For each wmiWin32Printer in wmiWin32Printers
	strText = strText & wmiWin32Printer.Caption & vbCrLf
Next
WScript.Echo strText

</script>
</job>