on error resume next
set wn=Wscript.CreateObject("Wscript.Network") 
Select Case WScript.Arguments.Count
  Case  0 
    Call InstallPrinter(wn.ComputerName,"Xerox-WC-PE120i") 
	WScript.Quit
  Case  2 
    strIP1 = WScript.Arguments( 1 )
	strComputer1 = WScript.Arguments( 0 )
    Call InstallPrinter(strComputer1, strIP1)
	WScript.Quit
End Select
Call Usage()  	
Wscript.Quit   
Function InstallPrinter(strComputer,strIP)
  '---------------------------Installing new TCP/IP port-------------------------------
  Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  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_
  '----------------------------Installing printer driver-------------------------------
  Set objDriver = objWMIService.Get("Win32_PrinterDriver")
  objDriver.Name = "Xerox WC PE120 Series PCL 6"
  objDriver.Infname = "\\Main\GPO\Prn_XeroxPE120\WINXP\WCPE12.inf"
  intResult = objDriver.AddPrinterDriver(objDriver)
  '--------------------------------Installing printer----------------------------------
  set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
  objPrinter.DriverName = "Xerox WC PE120 Series PCL 6"
  objPrinter.PortName = "IP_" & strIP
  objPrinter.DeviceID = "Printer Xerox WC PE120"
  objPrinter.Location = "Принтер в отделе бухгалтерия"
  objPrinter.Network = True
  objPrinter.Shared = false
  objPrinter.Default = true
  objPrinter.Put_
  objPrinter.SetDefaultPrinter(objPrinter.NAME)
  'Set objWMIService = GetObject("winmgmts:" _
  '& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  
  'Set colInstalledPrinters =  objWMIService.ExecQuery _
    '("Select * from Win32_Printer ")
  'For Each objPrinter in colInstalledPrinters
   '  objPrinter.SetDefaultPrinter()
	 'ID = ObjDevice
	 'WScript.Echo objPrinter.Name
  'Next
  'objPrinter.setdefaultprinter "Printer Xerox WC PE120" 
End Function  
Function Usage()
   WScript.Echo "Использование: Без параметров - устанавливает принтер Xerox-WC-120i на локальный компьютер                  Inst_Prn_Xerox_pe120i.vbs [имя удаленного комьютера] [IP адрес или DNS имя принтера] - устанавливает принтер Xerox WC 120i на удаленный компьютер"
End Function