Script til ændring af printer

Gem teksten mellem de stiblede linier som: StandardPrinter.vbs
Erstat Din_Printer med navnet på den printer der skal være standard.
lav en genvej til filen: StandardPrinter.vbs

'--------------------------------------------------------------
Dim oNetwork
Set oNetwork = CreateObject("WScript.Network")
oNetwork.SetDefaultPrinter "Din_Printer"
Set oNetwork = Nothing
'--------------------------------------------------------------

:-)

Tak for svaret. Hvor kan jeg gemme koden?

Jeg kunne egentlig også godt bruge en "toggle" sådan at:

hvis defaultprinter="printer a" - så defaultprinter="printer b"
ellers
hvis defaultprinter="printer b" - så defaultprinter="printer a"

Hvordan vil koden så se ud?

janvogt>> Du laver bare koden i f.eks. notesblok og gemmer den et eller andet sted under navnet StandardPrinter.vbs - når du kører den fil, vil handlingen blive udført.

Fint, jeg håbede også det fungerede sådan.

Tpo, din løsning fungerer rigtigt fint, men kan du hjælpe med resten?
Så forhøjer jeg gerne pointene til 200.

Der må også gerne komme en messageboks frem, når printeren skiftet - altså:
"Standardprinteren er skiftet til 'printernavn'"

Det burde bare være:
Wscript.Echo "Tekst her"

Ret:
Printer1 = "HP LaserJet 5MP"
Printer2 = "Brother QL-550"
til dine printere.

'--------------------------------------------------------------------------------
Printer1 = "HP LaserJet 5MP"
Printer2 = "Brother QL-550"

Function GetDefaultPrinter
  Set oShell = CreateObject("WScript.Shell")
  sRegVal = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
  sDefault = ""
  On Error Resume Next
  sDefault = oShell.RegRead(sRegVal)
  sDefault = Left(sDefault ,InStr(sDefault, ",") - 1)
  On Error Goto 0
  GetDefaultPrinter = sDefault
  Set oShell = Nothing
End Function

DefaultPrinter = GetDefaultPrinter
If DefaultPrinter = Printer1 Then
  Printer = Printer2
Else
  Printer = Printer1
End If

Set oNetwork = CreateObject("WScript.Network")
oNetwork.SetDefaultPrinter Printer
Set oNetwork = Nothing

Wscript.Echo "Standard printer = " & Printer
'--------------------------------------------------------------------------------

:-)

Jeg har lidt problemer med den ene printer, som er en netværksprinter.
Navnet er umiddelbart ikke nok - ihvertfald får jeg en fejl.

Måske dette kan hjælpe.
Når jeg kører VBA har jeg fat i denne:
Application.ActivePrinter = "\\FLSTEDNT\AS - Kopirum Kopimaskine på Ne04:"

Hvis det er en netwærksprinter, så skal navnet være:
Printer1 = "\\ServerNavn\ShareNavn"

:-)

Fantastisk!
Tusind tak for hjælpen.