'**************************************
'*                        	      *
'*  Laget av Marius Solbakken Mellum  *
'*                        	      *
'**************************************

' Lager nødvendie objekter
Set WshShell = Wscript.CreateObject("WScript.Shell")
Set oNet = WScript.CreateObject("WScript.Network")

' Sletter gamle nettverksprintere
wshshell.run "reg delete HKEY_CURRENT_USER\PRINTERS\CONNECTIONS /f"

wshshell.run "net use /DELETE * /YES"

' Spør om brukernavn
sUserName = InputBox("Tast inn ditt brukernavn","User Logon Prompt")

' Spør om passord
sPassword = InputBox("Tast inn passord for bruker "& sUserName &", OBS! ikke skjult!","Password Prompt")

' Net use ipc:
oNet.MapNetworkDrive "","\\stange-s01.hedmark.org\IPC$",False,"hedmark\" & sUserName,sPassword

' Legger til printer, og setter den som standard

oNet.AddWindowsPrinterConnection "\\stange-s01.hedmark.org\stange-mp3000"
oNet.SetDefaultPrinter "\\stange-s01.hedmark.org\stange-mp3000"