tcp/ip printer install
mangler et script der via "vbs" fil vil installere 2 printereip: "192.168.1.90"
Printer: "KONICA MINOLTA bizhub C25 PCL6"
Kalde navn1: "Develop - Blank" (Skal fast printe fra bakke 2)
Kalde navn2: "Develop - Brevpapir" (Skal fast printe fra bakke 1)
Jeg køre "vbs" filen fra en usb hvor på driverne også er i kilden: "\flyt\BHC25PCL6Winx86_1040DA\BHC25PCL6Winx86_1040DA\KODJVJ__.inf"
Håber nogen kan hjælpe
Har prøvet denne men den virker ikke:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True
Install "192.168.1.90"
'Start the install of the printer
sub Install(strIP)
InstallPrinterPort strIP
end Sub
'==================
strBasePrinter = "KONICA MINOLTA bizhub C25 PCL6"
strPrinterName = "Develop - Brevpapir"
strINFPath = "e:\flyt\BHC25PCL6Winx86_1040DA\BHC25PCL6Winx86_1040DA\KODJVJ__.inf"
strIPPort = "IP_192.168.1.90"
Set objShell = CreateObject("WScript.Shell")
strCommand = "cmd /c rundll32 printui.dll,PrintUIEntry /if /b """ & strBasePrinter & """ /f " & strINFPath & " /r """ & strIPPort & """ /m """ & strPrinterName & """ & /Z"
objShell.Run strCommand, 1, True
'==================
Sub InstallPrinterPort(strIP)
' First check whether the port exists already
Set colInstalledPorts = objWMIService.ExecQuery _
("Select Name from Win32_TCPIPPrinterPort")
For each objPort in colInstalledPorts
If objPort.Name="IP_" & strIP then exit sub ' We have a result, so no need to add port
Next
' Add new printer port
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_" & strIP
objNewPort.Protocol = 1
objNewPort.HostAddress = strIP
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = False
objNewPort.Put_
end Sub
