vbs连接共享打印机

vbs连接共享打印机已关闭评论

A+

摘要

‘连接共享打印机的VBS脚本’****声明变量DimstrPrinterName,strServerNamestrPrinterName=”共享打印机1″‘你需要连接的共享打印机的名字strServerName=”服务器名称”‘你的服务器名称’****定义函数FunctionConnect

'连接共享打印机的VBS脚本

'****声明变量
Dim strPrinterName, strServerName
strPrinterName = "共享打印机1" '你需要连接的共享打印机的名字
strServerName = "服务器名称" '你的服务器名称

'****定义函数
Function ConnectPrinter(strPrinter, strServer)
On Error Resume Next
'调用 lpt接口连接打印机
Set objPrinter = CreateObject("WScript.Network")
objPrinter.AddWindowsPrinterConnection strPrinter, strServer
'确认是否连接成功
If Err <> 0 Then
ConnectPrinter = False
MsgBox "连接打印机时发生错误", 64, "连接错误"
Else
ConnectPrinter = True
MsgBox "打印机已成功连接", 64, "连接完成"
End If
End Function

'****调用函数
Call ConnectPrinter(strPrinterName, strServerName)

'****结束
WScript.Quit