Witam
Sprawa wygląda następująco. Mam ja drukarkę sieciową w lokalizacji \\SERWER2\PR0005nowa
Potrzebuję skrypt który sprawi, że komputer zainstaluje sobie tą drukarkę i ustawi jako domyślną.
Stworzyłem coś takiego:
Cytat:
Option ExplicitOn error resume next
Dim printerNetworkDim printer
printer = InputBox\\SERWER2\PR0005nowa
Set printerNetwork = CreateObject("Wscript.Network")printerNetwork.AddW indowsPrinterConnection printerprinterNetwork.SetDefaultPrinter printer
|
Ale to nie działa.
Sprawdzałem coś takiego:
Cytat:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where Local = TRUE")
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\SERWER2\PR0005nowa"
If colPrinters.Count = 0 Then
objNetwork.SetDefaultPrinter "\\SERWER2\PR0005nowa"
End If
|
Dostaje komunikat w cmd: nazwa objNetwork.AddWindowsPrinterConnection nie jest rozpoznawana
Jakieś pomysły?