Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 54
Благодарности: 2

Профиль | Отправить PM | Цитировать


в Portable Script Center есть пример

Installing a Printer Driver not Found in Drivers Cab

Script Code

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
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)
Wscript.Echo intResult

-------
Если сообщение помогло, НАЖМИТЕ ПОЛЕЗНОЕ СООБЩЕНИЕ


Отправлено: 09:45, 15-01-2007 | #7