$oldprinter='\\server\Printer share1'
$newprinter='\\server\Printer share2'

ReplacePrinter($oldprinter, $newprinter)


function ReplacePrinter($oldprinter, $newprinter)

for each $Item in split(WMIQuery('Name','Win32_Printer'),'|')
	if $item = $oldprinter
		$=addprinterconnection($newprinter) 
			If not @error
				$GetDefaultPrinter = join(split(readvalue("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device"),',',1),'')
				if $GetDefaultPrinter = $oldprinter
					$=setdefaultprinter($newprinter)
				endif
				$=delprinterconnection($oldprinter)
			endif			
	endif
next

Endfunction

function ReplacePrinter($oldprinter, $newprinter)
	$=addprinterconnection($newprinter) 
	if $oldprinter = join(split(readvalue("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device"),',',1),'')
		$=setdefaultprinter($newprinter)
	endif
	$=delprinterconnection($oldprinter)
Endfunction

$objWMIService = GetObject("winmgmts:\\" + @wksta + "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_Printer where Network = True",,48)
For each $objItem in $colItems
  "Default: " + $objItem.Default ?
  "Name: " + $objItem.Name ?
  ?
Next

function ReplacePrinter($oldprinter, $newprinter, Optional $ForceDefault)
	DIM $objWMIService, $colItems, $objItem, $_

	$objWMIService = GetObject("winmgmts:\\" + @wksta + "\root\cimv2")
	$colItems = $objWMIService.ExecQuery("Select * from Win32_Printer where Network = True",,48)
	For each $objItem in $colItems
		if $objItem.Name = $oldprinter
			$_=addprinterconnection($newprinter) 
			If @error	exit 1		endif
			; if $objItem.Default or $ForceDefault
			if $objItem.attributes & 4 or $ForceDefault
				$_=setdefaultprinter($newprinter)
			endif
			$_=delprinterconnection($oldprinter)
		endif
	next
Endfunction

Quote:

---

Rad,

What is wrong with the following? Most often when printers move is because you bring up a print server and you have to move 84 printers from one server to another..

Prevent special printers from being deleted

PriMapState() - Checks for existent printerconnection

Thanks,

Kent

---