VBScriptでデフォルトプリンターを変更

Option Explicit

Dim oWNetwork

Set oWNetwork = CreateObject("WScript.Network")
oWNetwork.SetDefaultPrinter "RICOH MP C2503 JPN"

Set oWNetwork = Nothing