итоговый рабочий скрипт, который я использовал. Спасибо всем кто откликнулся и помог в создании скрипта
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 = "ipdnsservera" or objAdapter.DNSHostName = "ipdnsservera" then
A = 1
End If
Next
' Подключаем
if A = 0 then
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "put'doprintera"
WSHNetwork.SetDefaultPrinter "put'doprintera"
End If