Tomasz Onyszko wrote:
> Tomasz Chmielewski wrote:
>
>> Robil ktos kiedys cos takiego?
>
> Sprobuj tak
Tzn. do czego mam to wsadzic? To chyba nie jest zwykly plik .bat?
Tomek
>
> Adding a Printer Connection
> ========
> Set WshNetwork = CreateObject("WScript.Network")
> WshNetwork.AddWindowsPrinterConnection "\\PrintServer1\Xerox300"
> WshNetwork.SetDefaultPrinter "\\PrintServer1\Xerox300"
>
> ========
>
> Setting the Default Printer
> ========
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
> Set colInstalledPrinters = objWMIService.ExecQuery _
> ("Select * from Win32_Printer Where Name = 'ScriptedPrinter'")
> For Each objPrinter in colInstalledPrinters
> objPrinter.SetDefaultPrinter()
> Next
> ========
>
>
>
Received on Fri Nov 5 09:40:23 2004
To archiwum zostało wygenerowane przez hypermail 2.1.8 : Fri 05 Nov 2004 - 09:42:00 MET