Random Choice

Randomize
oWshNetwork.SetDefaultPrinter "\\eserver01\Print" & Int((3-1+1)*Rnd+1)

Eller lidt mere dynamisk, så kan du vel rette:

oWshNetwork.AddWindowsPrinterConnection "\\eserver01\Print1"
oWshNetwork.AddWindowsPrinterConnection "\\eserver01\Print2"
oWshNetwork.AddWindowsPrinterConnection "\\eserver01\Print3"


oWshNetwork.SetDefaultPrinter "\\eserver01\Print1"

til:

Dim aPrinter(2)
aPrinter(0)="\\eserver01\Print1"
aPrinter(1)="\\eserver01\Print2"
aPrinter(2)="\\eserver01\Print3"

For i=0 To UBound(aPrinter)
  oWshNetwork.AddWindowsPrinterConnection aPrinter(i)
Next

Randomize
oWshNetwork.SetDefaultPrinter aPrinter(Int((3-1+1)*Rnd+1))

Hej w13 - tusind tak for dine svar! Nu har jeg forsøgt at benytte det sidste eksempel, men jeg synes ikke helt jeg kan få det til at virke? - Den fjerner fint eksisterende printere (den første del af koden), men den når aldrig så langt at den tilføjer nye?

Serveren hedder nu DSHK03 og printerne hedder DATABAR1, 2 og 3?
Har du endnu et bud? :) Mange tak indtil nu:

Option Explicit

Dim oWSHNetwork, oPrinters, intCounter
on error resume next

'-- Setting objects --
Set oWshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = oWshNetwork.EnumPrinterConnections

For intCounter =1 to oPrinters.Count -1 Step 2

'Fjern denne linje for at få vist en tekstboks med printernavne
'wscript.echo oPrinters.Item(intCounter)

oWSHNetwork.RemovePrinterConnection oPrinters.Item(intCounter), true, true


Next

Dim aPrinter(2)
aPrinter(0)="\\dshk03\DATABAR1"
aPrinter(1)="\\dshk03\DATABAR2"
aPrinter(2)="\\dshk03\DATABAR3"

For i=0 To UBound(aPrinter)
  oWshNetwork.AddWindowsPrinterConnection aPrinter(i)
Next

Randomize
oWshNetwork.SetDefaultPrinter aPrinter(Int((3-1+1)*Rnd+1))




'Clean up and exit the script

wscript.quit

hvilken fejlmeddelelse får du?

Hej W13, jamen der kommer nu ingen fejl :-/

Det eneste der sker at den den fjerne eksisterende printere, også er det ligesom det. Så den når aldrig til at tilføje de nye? :-S

Hmm. Virker mærkeligt.

Ja- det er nu lidt underligt.

Hvis jeg ændre følgende linje:
oWshNetwork.AddWindowsPrinterConnection aPrinter(i)

til f.eks.:
oWshNetwork.AddWindowsPrinterConnection aPrinter(2) - fungere det fint nok (printer nr. 2).

Men kan det være noget med at i aldrig bliver tildelt en værdi?

Hmm, du har Option Explicit på, så du skal lige Dim'e variablen "i", ja.

Hey w13 - nu er koden her jo noget jeg har fundet på nettet, for jeg har absolut ingen forstand på at kode...

Nu fjernede jeg Option Explicit, og wupti - det hele virkede :)

Men hvad gør dette? Og betyder det noget at jeg har fjernet det?
Du får point for din kæmpe hjælp! Tusind tak!

Option Explicit er meget god at have, men ikke nødvendig.

Den gør, at alle variabler (f.eks. "i") skal deklareres, dvs. at man skal skrive:
Dim i
inden man kan bruge den. Det vil gøre din kode en anelse hurtigere. Men hul i det, din kode er jo meget simpel.

Og tak for point! :)