通过组策略添加网络打印机的脚本

，以下脚本适用于windows域环境中，用于主机自动添加域中的共享打印机。将文本存储为vbs格式即可使用。

' 添加网络打印机的脚本v4
' 陈涛　[email protected] 2008/10/27 15:54:54
' http://msdn.microsoft.com/en-us/library/aa394363(VS.85).aspx
'****************************************************
'*  脚本名:     AddADPrinters.vbs
'*  编写:  陈涛
'*  日期:       2008/10/28 22:15:54
'*  版本:    4 
'*  
'*  描述:
'*  1. 首先判断当前用户使用计算机所OU名，然后查看该OU中有无发布的打印机，得到一个打印机的清单
'*  2. 然后，对本机已经安装的打印机进行枚举，也得到一份打印机的清单
'*  3. 对比这两份清单，只安装在本地没有的打印机
'****************************************************
On Error Resume Next  
' 得到用户的信息
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strAdsPath=objUser.AdsPath
strOUName = "LDAP://" &  Mid(strAdsPath, InStr(strAdsPath,",")+1)
' 得到用户所在OU的打印机
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = "Select printerName, serverName from " _
    & "'" & strOUName & "'  where objectClass='printQueue'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
objCommand.Properties("Cache Results") = False 
Set objRecordSet = objCommand.Execute
Dim objDictPrnts: Set objDictPrnts = CreateObject("Scripting.Dictionary")
objDictPrnts.CompareMode = vbTextCompare
' 添加到一个字典中
Do Until objRecordSet.EOF
    'Wscript.Echo "Printer Name: " & objRecordSet.Fields("printerName").Value
    'Wscript.Echo "Server Name: " & objRecordSet.Fields("serverName").Value
    objDictPrnts.Add "\\" & objRecordSet.Fields("serverName").Value &_
        "\" & objRecordSet.Fields("printerName").Value, _
        UCase(objRecordSet.Fields("printerName").Value)
'        WScript.Echo "Found Printer: " & objRecordSet.Fields("printerName").Value
    
    '只取第一个
    'objRecordSet.MoveNext
    Exit Do
Loop
' loop through printer connections
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Dim WSHPrinters, LOOP_COUNTER
Set WSHPrinters = WSHNetwork.EnumPrinterConnections
If WSHPrinters.Count= 0 Then
' 如果没有任何不存在任何打印机，则直接添加
For Each PrinterPath In objDictPrnts.Keys
'WScript.Echo "11111Connecting to printer: " & PrinterPath
WSHNetwork.AddWindowsPrinterConnection PrinterPath
Next
Else
For LOOP_COUNTER = 0 To WSHPrinters.Count - 1 Step 2
Dim PrinterPath
PrinterPath = WSHPrinters.Item(LOOP_COUNTER +1)
If objDictPrnts.Exists(PrinterPath) Then 
    ' 如果此添加存在,即退出
    'WScript.Echo "Printer already Exists, removing from connect to list.: " &_
    'vbCrLf & PrinterPath & vbCrLf
    Exit For
Else
For Each PrinterPath In objDictPrnts.Keys
WScript.Echo "22222Connecting to printer: " & PrinterPath
WSHNetwork.AddWindowsPrinterConnection PrinterPath
Next
End If
Next
End If