Mappe printer afhængig af computerens enten ou eller gruppe

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

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