| 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