PrnInstall

<%
Set ObjNet = WScript.CreateObject("WScript.Network")
Set objPrint = ObjNet.EnumPrinterConnections
For i = 0 to objPrint.Count -1
Response.Write objPrint.Item(i) & "<br>"
Next
%>