Skip to content

Instantly share code, notes, and snippets.

@Depicus

Depicus/ad-fig11

Created Feb 18, 2015
Embed
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
TheUser.SetInfo
Set TheUser = Nothing
WScript.Quit
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.