Skip to content

Instantly share code, notes, and snippets.

Created February 18, 2015 23:28
What would you like to do?
Option Explicit
Dim Args, TheUser, TheNewValue
Set Args = Wscript.Arguments
Set TheUser = GetObject(Args(0))
TheNewValue = InputBox("Old Default Printer: " & TheUser.defaultPrinter & vbCRLF & vbCRLF& vbCRLF& vbCRLF & "New Default Printer","Domain Default Printer",TheUser.defaultPrinter)
if TheNewValue <> "" then TheUser.Put "defaultPrinter",TheNewValue
Set TheUser = Nothing
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment