Søg
Avatar billede rough Nybegynder
23. februar 2006 - 12:34 Der er 1 løsning

Sætte standard printer

Kan nogen hjælpe med et script der sætter standard printer.
Det skal checke hvilke printere der er installeret på maskinen og derefter sætte standard printer til den printer der indeholder std i printernavnet (share)
Avatar billede rough Nybegynder
27. februar 2006 - 13:22 #1
Klarede den selv på følgende måde:

Set oNetwork = Wscript.CreateObject("WScript.Network")

For Each strWSN In oNetwork.EnumPrinterConnections

If(InStr(strWSN,"std")<>0)Then
oNetwork.SetDefaultPrinter STRWSN
End If
Next

Set oNetwork = Nothing
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:59 Ang fifa 26 til Ps5 Af made18 i Andet software
I går 17:01 Kom til at tilslutte nogle 3.5 disk med et forkert Sata kabel fra en anden PSU Af Thomas B i Andet hardware
31/1021:35 Nokia 6.1 rcs Af rasmuso i Mobilnetværk
31/1013:55 Samsung Galaxy A21s ændre ringetone Af nu_igen i Mobiltelefoner
31/1013:43 Windows 11 lokalkonto-opret Af Uvanga i Windows
White papers
Flere white papers »