用vbs增加驅動程式櫃中所沒有的印表機驅動程式



贊助商連結


anson lin
2005-08-18, 05:26 PM
有人成功過或試過這個vbs嗎???一直起不來 !!


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

其中比較好奇的是objDriverPath = "C:\Scripts\NewPrinter.dll"要給什麼阿??
怎樣給都不行 :( :(

贊助商連結


alexchuo
2005-08-21, 04:22 PM
我看到的範例是這個:
安裝 Apple LaserWriter 8500 印表機驅動程式,且只能用在 XP/2003

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objDriver = objWMIService.Get("Win32_PrinterDriver")
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

objDriver.Name = "Apple LaserWriter 8500"
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
errResult = objDriver.AddPrinterDriver(objDriver)

anson lin
2005-08-22, 05:30 PM
恩~~這印表機 WindowsXP有內建所以OK...
目前需要的是在WidnowsXP中沒有內建的Drivers,例如ColorLaserJet3500..等
所以才需要用VBS安裝時順便把Driver也一起塞到XP中