KACE Product Support

+1 for the above. We need a lot further detail. - jknox 11 years ago

We are using a majority of Windows Xp machine. Our users have restricted access.. We have created the following scirpt but it only runs to success if we are logged in as an administrator or as a power user.

''----------------------------------------------''
''----------------------------------------------''
'' ''
'' Script to automate TCP/IP printer installs ''
'' ''
'' ''
''----------------------------------------------''
''----------------------------------------------''


Set WSHNetwork = WScript.CreateObject("WScript.Network")
set shell = WScript.CreateObject( "WScript.Shell" )
CompName = shell.ExpandEnvironmentStrings("%COMPUTERNAME%")
Set objWMIService = GetObject("winmgmts:\\" & CompName & "\root\cimv2")
Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_
Set oShell = WScript.CreateObject("WScript.shell")
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

Sub createPort (name, ip)
objNewPort.Name = name
objNewPort.Protocol = 1
objNewPort.HostAddress = ip
objNewPort.SNMPEnabled = False
objNewPort.Put_
end sub

sub addPrinter (driver, port, name)
objPrinter.DriverName = driver
objPrinter.PortName = port
objPrinter.DeviceID = name
objPrinter.Location = "ADMIN"
objPrinter.Network = True
objPrinter.Shared = false
objPrinter.ShareName = ""
objPrinter.Put_
end Sub

'------------------'
'Copy Files: '
'------------------'
'Const OverWriteFiles = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists("C:\okidata\okidata") Then
Set objFolder = objFSO.CreateFolder("C:\okidata\okidata")
objFSO.CopyFolder ".\7x86" , "C:\okidata\okidata\7x86" , OverWriteFiles
objFSO.CopyFolder ".\7x64" , "C:\okidata\okidata\7x64" , OverWriteFiles
End If


'------------------'
'Add printer ports:'
'------------------'
'createPort "HP4200_BCEHFP_North", "150.142.155.50"
'createPort "HP8500_Exec_color", "150.142.153.21"
createPort "okidata" , "192.168.1.86"

'----------------------------------------------'
'Install printers with drivers native to WinXP:'
'----------------------------------------------'
' TCP/IP Port Name Display Name
' -------------------- -----------------
'addPrinter "HP LaserJet 4200 PS", "HP4200_BCEHFP_North", "HP4200 North PS"
'addPrinter "HP LaserJet 4200 PCL 6", "HP4200_BCEHFP_North", "HP4200 North"

'-------------------------------------------------' Display name
'Install printers with externally defined drivers:' for printer Driver location Port name Driver name in .inf file
'-------------------------------------------------' ----------- --------------------------------- ------------ -----------------------
'oshell.run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /if /b ""HP8150 South PS"" /f U:\instalxp\hp8150ps\HP8150PS.INF /r ""HP8150_BCEHFP_South"" /m ""HP LaserJet 8150 PS""" ,,true
If Not objFSO.FolderExists("C:\Program Files (x86)") Then
oshell.run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /if /b ""AdminDColor"" /f C:\okidata\okidata\7x86\OP745.INF /r ""okidata"" /m ""OKI C6150(PCL)""" ,,true
Else
oshell.run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /if /b ""AdminDColor64"" /f C:\okidata\okidata\7x64\OP745.inf /r ""okidata"" /m ""OKI C6150(PCL)""" ,,true
End If

'SETS PRINTER AS DEFAULT.


Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'AdminDColor64'")

For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()

next - tanya@michigansugar.com 11 years ago