[amel27]

есть ли код, проверяющий наличие данного принтера, и если его нет - ставить, а если есть - не устанавливать »

Код:

Set objNet = CreateObject("WScript.Network")

PrnConnect "\\server\HP LaserJet 4300 PCL 6"

' Процедура подключения сетевого принтера
Sub PrnConnect(strPrinterPath)
   If Not PrnIsConnected(strPrinterPath) Then
      objNet.AddWindowsPrinterConnection strPrinterPath
      objNet.SetDefaultPrinter strPrinterPath
   End If
End Sub

' Функция проверки подключения сетевого принтера
Function PrnIsConnected(strPrinterPath)
   Dim colPrn, intPrn
   Set colPrn = objNet.EnumPrinterConnections

   PrnIsConnected = vbFalse
   If colPrn.Count > 0 Then
      For intPrn = 1 To colPrn.Count-1 Step 2
         If StrComp (strPrinterPath, colPrn.Item(intPrn), 1)=0 Then
            PrnIsConnected = vbTrue
            Exit For
         End If
      Next
   End If
End Function