Архив форумов ЦИТФорума

[daem666]

Народ, может ли кто подсказать как при помощи скрипты установить принтер локально с перенаправлением на IP-порт, причем предусмотреть такой случай что драйвера для принтера отсутствуют в Drivers.cab... Но есть на сетевом ресурсе....
_________________
Windows работает?!!! Читай внимательно инструкцию

[Avalanche]

Определяем контекст комьютера

Option Explicit
Dim WSHNetwork, Computer, Path, strComputerDN, objSysInfo, objComputer, sPrintPath, PrintLocation
Dim objWMIService, colInstalledPrinters, objPrinter
Set WSHNetwork = CreateObject("WScript.Network")
On Error Resume Next
Path = WSHNetwork.ComputerName
Set objSysInfo = CreateObject("ADSystemInfo")
strComputerDN = objSysInfo.ComputerName
Set objComputer = GetObject("LDAP://" & strComputerDN)

'Назначаем необходимый для установки сетевой принтер
'в зависимости от значения поля Location
Select Case objComputer.Get("Location")
Case "Отдел 1"
sPrintPath = "\\server1\HPLaserJ"
PrintLocation = "Принтер в Отделе 1"
Case "Отдел 2"
sPrintPath = "\\server2\HP1100"
PrintLocation = "Принтер HP1100 Отдел 2"
Case Else
MsgBox("Для установки принтера обратитесь к системному администратору.") :WScript.Quit
End Select

'Выполняем проверку установленных принтеров
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")

For Each objPrinter in colInstalledPrinters
If PrintLocation = objPrinter.Location Then
WScript.Quit
End If
Next

'Подключаем принтер и делаем его принтером по умолчанию
WSHNetwork.AddWindowsPrinterConnection sPrintPath
WSHNetwork.SetDefaultPrinter sPrintPath

Сохраняем наш скрипт под именем print

[daem666]

Сетевой принтер я могу подключить и проще... Проблема в том что мне нужно поставить принтер как ЛОКАЛЬНЫЙ... причем учесть тот момент что на компьютере могут отсутствовать драйвера для данного принтера... и если таковых нет... произвести установку драйверов с общедоступного сетевого диска... вот что мне нужно... Причем к качестве примечания... Поставить принтер как локальный с перенаправлением печати на сетевой порт IP если для данного принтера есть драйвера на компьютере для меня тоже уже решенная задача.... Проблема в установке драйверов при отсутствии таковых на компьютере...
_________________
Windows работает?!!! Читай внимательно инструкцию

[Дубровский]

Черствый daem666. Avalanche так старался, так старался!...

[daem666]

А что делать... я конечно извиняюсь за черствость... но факт есть факт...
_________________
Windows работает?!!! Читай внимательно инструкцию

[4u3u]

Здесь неплохая подборка способов установки принтера с TCP/IP портом:
http://www.codecomments.com/archive303-2005-2-389627.html

[daem666]

Спасибо за ссылку... буду искать...
_________________
Windows работает?!!! Читай внимательно инструкцию

[bary]

[bary]

'==============================
'Install Printer Ports
'Installs a TCP/IP printer port on a computer.
'Supported Platforms

'Windows Server 2003 Yes

'Windows XP Yes

'Windows 2000 No

'Windows NT 4.0 No

'Windows 98 No
'Script Code
'================================
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_

objNewPort.Name = "IP_169.254.110.14"
objNewPort.Protocol = 1
objNewPort.HostAddress = "169.254.110.14"
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = False
objNewPort.Put_

[daem666]

Тогда еще вопрос... Как определить dll-ку необходимого драйвера принтера... Их обычно бывает туева хуча...
_________________
Windows работает?!!! Читай внимательно инструкцию

[bary]

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

Set objDriver = objWMIService.Get("Win32_PrinterDriver")

objDriver.Name = "NewPrinter Model 2900"
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
objDriverPath = "C:\Scripts\NewPrinter.dll"
objInfname = "C:\Scripts\NewPrinter.inf"
intResult = objDriver.AddPrinterDriver(objDriver)




objDriverPath = "C:\Scripts\NewPrinter.dll"
objInfname = "C:\Scripts\NewPrinter.inf"

Вот эти две строчки тебе ни о чем не говорят?

Последний раз редактировалось: bary (Вт 17 Май 2005 14:35), всего редактировалось 1 раз

[daem666]

Неужели так и указывать... втупую... NewPrinter... вне зависимости от модели...?
_________________
Windows работает?!!! Читай внимательно инструкцию

[bary]

Устал я, Читай доку!
http://microsoft.com/scripting