[KomatoZo]

bob02
У меня есть VBScript. Рабочий.

strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
A = 0
' Проверка, не на сервере ли запускаем
For Each objAdapter in colAdapters
    if objAdapter.DNSHostName = "Server1" or objAdapter.DNSHostName = "Server2"  then
	A = 1    
    End If
Next
' Подключаем
if A = 0 then
	Set WshNetwork = CreateObject("WScript.Network")
	WshNetwork.AddWindowsPrinterConnection "\\Server\HP LaserJet 2200 Series PCL 6"
End If

UPD : Естественно, Server1, Server2 нужно заменить на имена компьютеров, на которых запускать скрипт не надо, а Server и имя принтера на те, которые у Вас.