'Drucker Zuweisung (printer.vbs) '(c) Thorsten Jarz '22.2.2009 On error resume next Set WshNetwork = WScript.CreateObject("WScript.Network") 'Wenn Kein Raum gefunden drucker = "\\srv01\prt101-1" 'Suche Raum Select Case Left(wshnetwork.ComputerName, 6) Case "PC101-" drucker = ""\\srv01\prt101-1" Case "PC201-" drucker = "\\srv01\prt201-1" Case "PC205-" drucker = "\\srv01\prt205-1" End Select wshnetwork.AddWindowsPrinterConnection drucker wshnetwork.SetDefaultPrinter drucker