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