CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

brianp Nybegynder

11. maj 2005 - 21:37 Der er 2 kommentarer

Mappe printer afhængig af computerens enten ou eller gruppe

Hej med jer.
Jeg mangler et script som vil mappe printere til brugere afhængig af hvilken maskine de logger på. d.v.s. printer 1 hvis de logger på pc 1-10 og printer 2 hvis de logger på pc 11-20.
Den samme bruger vil logge på begge typer maskiner!
Jeg forestiller mig at pc1-10 er i ou1 og pc11-20 er i ou2 evt. i stedet for gruppe 1 og 2
Det er på et windows 2003 domæne hvis det har nogen betydning.

Synes godt om

rough Nybegynder

11. maj 2005 - 22:45 #1

Følgende script Tildeler printer efter PC navnets 3 første tegn, måske kan det bruges

'*** deklære variabler og objekter

Dim oNet, lokale, Pc, User
Set oNet = CreateObject("WScript.Network")

'---------------------------------------------------------------------
'*** hvilket lokale og bruger

User = LCase(oNet.username)
Pc = LCase(oNet.computername)

lokale = Left(Pc, 3)

'---------------------------------------------------------------------
'*** Tilkobling af printere afhængig af lokale

If lokale = "202" Then
oNet.AddWindowsPrinterConnection "\\PrintServer\202Printer"
oNet.SetDefaultPrinter "\\PrintServer\202Printer"

ElseIf lokale = "804" Then
oNet.AddWindowsPrinterConnection "\\PrintServer\804Printer"
oNet.SetDefaultPrinter "\\PrintServer\804Printer"

ElseIf lokale = "807" Then
oNet.AddWindowsPrinterConnection "\\PrintServer\807Printer"
oNet.SetDefaultPrinter "\\PrintServer\807Printer"

ElseIf lokale = "819" Then
oNet.AddWindowsPrinterConnection "\\PrintServer\819Printer"
oNet.SetDefaultPrinter "\\PrintServer\819Printer"

ElseIf lokale = "823" Then
oNet.AddWindowsPrinterConnection "\\PrintServer\823Printer"
oNet.SetDefaultPrinter "\\PrintServer\823Printer"

ElseIf lokale = "824" Then
oNet.AddWindowsPrinterConnection "\\PrintServer\824Printer"
oNet.SetDefaultPrinter "\\PrintServer\824Printer"
End If

'---------------------------------------------------------------------
'*** oprydning
Set oNet = Nothing

Synes godt om

brianp Nybegynder

12. maj 2005 - 09:10 #2

Det er en mulighed men ikke for mig da jeg har 250 af dem som skal administreres og det vil være for besværligt

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS