XP-n nyomtato telepitese minden felhasznalonak

[Kle'ri Istva'n]

Halihó!

Én csináltam egy kis scriptet ami a az AD logon réászébe bepakolva 
egéész jó műxik. Mindegy hol van az emberke, a gépnév alapján felhúzza a 
hozzá "közel" lévő nyomtatót. Persze lehet van jobb megoldás, akkor én 
is szivesen látom.

Ime a printer.vbs

Set WshNetwork = WScript.CreateObject("WScript.Network")

compnev = WshNetwork.ComputerName
compnev = UCASE(LEFT(compnev,3))

PrinterPath = "\\big\LJ5000PS"
PCanon = "\\big\Canon"
PP1 = "\\big\HPLJ2100_PCL6"

If compnev = "ILA" or  compnev = "GRA" or compnev = "VET" or compnev = 
"KIE" then
  WshNetwork.AddWindowsPrinterConnection PCanon
  WshNetwork.SetDefaultPrinter PCanon
End If

If compnev = "MUT" or  compnev = "MUV" then
  WshNetwork.AddWindowsPrinterConnection PrinterPath
  WshNetwork.SetDefaultPrinter PrinterPath
End If


If CompNev = "KER" or CompNev = "PGT" then
  WshNetwork.AddWindowsPrinterConnection PP1
  WshNetwork.SetDefaultPrinter PP1
End If



KI.