Dim $defaultgw0
Dim $defaultgw1
Dim $defaultgw2
$defaultgw0 = EnumIPInfo(0,3)
$defaultgw1 = EnumIPInfo(1,3)
$defaultgw2 = EnumIPInfo(2,3)

If $defaultgw0 = '192.168.1.1' or $defaultgw1 ='192.168.1.1' or $defaultgw2 ='192.168.1.1'
call file.kix

if printerexist("OKI B4350 (Test Printer1)")
  run '%COMSPEC% /C START rundll32 printui.dll,PrintUIEntry /dl  /n "OKI B4350 (Test Printer1)"
endif

Function PrinterExist($PrinterName,optional $remotepc)
  dim $service,$printer,$printers
  $printerexist=0
  if $remotepc=""
    $remotepc='\\'+ @wksta
  else 
    if not left($remotepc,2)="\\"
      $remotepc='\\' + $remotepc
    endif
  endif
  $Service=GetObject("winmgmts:{impersonationLevel=impersonate}!" + $remotepc +"\root\cimv2")
  if not @error=0
    exit @error
  endif
  $Printers=$service.execquery ('select * from Win32_Printer')
  for each $printer in $printers
    if ucase($printername)=ucase($printer.name)
      $printerexist=1
    endif
    if left($printer.name,2)="\\"
      if ucase($printername)=ucase(split(substr($printer.name,3),"\")[1] + " on " + split(substr($printer.name,3),"\")[0])
        $printerexist=1
      endif
    endif
  next
endfunction



dim $printer1
dim $printer2
$printer1 = "1"	;Deployed Printer Names
$printer2 = "2"	;Deployed Printer Names

if printerexist($printer1)
$cmd = 'rundll32 printui.dll,PrintUIEntry /dl /n "$printer1"'
endif
SHELL "$cmd"

if printerexist($printer2)
$cmd = 'rundll32 printui.dll,PrintUIEntry /dl /n "$printer2"' 
endif

SHELL "$cmd"

$printer1="HP xyz"

if printerexist($printer1)
  $RC=RemovePrinter($printer1)
endif

function RemovePrinter($PrinterName)
  shell='rundll32 printui.dll,PrintUIEntry /dl /n "' + $printername + '"'
  if @error
    $RemovePrinter=1
    exit @error
  else
    $RemovePrinter=0
  endif
endfunction