[p]<%@ language=vbscript %>[br]<%[br]option explicit[/p]
[p]dim strsubmit 'form中用来保存提交按钮的值[br]dim strprinterpath 'form中保存网络打印机路径的值[br]dim strusername 'form中用户名的值[br]dim strpassword 'form中密码的值[br]dim strmessage 'form打印内容的值[br]dim objfs 'vbscript中的文件系统对象[br]dim objwshnet 'wsh中的网络对象[br]dim objprinter '打印对象[/p]
[p]strsubmit = request.form("submit")[br]%>[/p]
[p][br][br][br][br][/p]
[p]<%[br]if strsubmit = "" then[br]%>[/p]
[p]注意的是：[br]由于这是演示，其中有关nt的帐号和密码都是使用了不加密的手段在asp中传递的[br]真正的运用中应该对该登录过程进行安全处理。[br]

[br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br]

网络打印机路径:
登录帐号:
登录口令:
请输入你想打印的文字:

[br]

[/p]
[p]当以上信息被提交后，就可以按照下面的代码进行打印了。[br]<%[br]else[br]' 从form中取得响应信息。[br]strprinterpath = request.form("printerpath")[br]strusername = request.form("username")[br]strpassword = request.form("password")[br]strmessage = request.form("message")[/p]
[p]we will now use the vbscript filesystemobject object and the wsh network object. the network object will[br]give us the methods we need to open a printer connection, and the filesystemobject will allow us to stream our[br]output to the printer. we create these objects in the following code example: [/p]
[p]set objfs = createobject("scripting.filesystemobject")[br]set objwshnet = createobject("wscript.network")[br]' 使用wsh连接网络打印机[br]objwshnet.addprinterconnection "lpt1", strprinterpath, false, strusername, strpassword[br]' 使用文件系统对象将打印设备作为一个文件使用[br]set objprinter = objfs.createtextfile("lpt1:", true)[br]' 给打印设备送出文本[br]objprinter.write(strmessage)[br]'关闭打印设备对象并进行错误陷阱处理[br]on error resume next[br]objprinter.close[br]' 如果发生错误，关闭打印连接，并输出错误信息[br]if err then[br]response.write ("error # " & cstr(err.number) & " " & err.description)[br]err.clear [br]else[br]' 操作成功，输出确认信息[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("

打印消息送出:	" & strmessage & "
网络打印机路径:	" & strprinterpath & "
登录帐号:	" & strusername & "

")[br]response.write("")[br]end if[br]' 取消打印连接[br]objwshnet.removeprinterconnection "lpt1:"[br]set objwshnet = nothing[br]set objfs = nothing[br]set objprinter = nothing[br]end if[br]%>[br][br][/p]