Имя принтера, который станет используемым по-умолчанию задается по маске параметром «Pattern» . В данном случае будет выбран принтер, имя которого будет содержать «103A» . Важное замечание: будьте внимательны с названием принтера, скрипт воспринимает только латинские буквы, пробелы и цифры.

Option Explicit

Dim i

Dim objRegExp
Dim objWshNetwork
Dim collWshCollection
Set objRegExp = WScript.CreateObject("VBScript.RegExp")
With objRegExp
.IgnoreCase = True
.Pattern = "103A.*"
End With

With WScript.CreateObject("WScript.Network")
Set collWshCollection = .EnumPrinterConnections()

For i = 0 To collWshCollection.Count - 1 Step 2
If objRegExp.Test(collWshCollection.Item(i + 1)) Then
.SetDefaultPrinter collWshCollection.Item(i + 1)

Exit For
End If
Next

Set collWshCollection = Nothing
End With

Set objRegExp = Nothing

WScript.Quit 0