Tomasz Onyszko wrote:
> Tomasz Chmielewski wrote:
>
>> Robil ktos kiedys cos takiego?
>
> Sprobuj tak
>
> 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
> ========
OK, mocarzem VBS nie jestem.
Jak w tym skrypcie wskazac sterownik?
Bo na razie wypisuje mi, ze nie moze znalezc sterownika.
Tomek
Received on Mon Nov 8 14:30:23 2004
To archiwum zostało wygenerowane przez hypermail 2.1.8 : Mon 08 Nov 2004 - 14:42:01 MET