Unable to set default printer to $NewSrv. Do I need to escape the backslash in the statement
if SetDefaultPrinter("$NewSrv""$Ptr")=0
? "$NewSrv""$Ptr"

thanks in advance

 Code:

$NewSrv=\\vhost\
$OldSrv=\\pserver1\
;? $NewSrv
;? $OldSrv
$aDCPtrs =  "6thFloorCanon","6thFloorFieldCrew1","EngineeringPlotter_HPGL2",
"EngineeringPlotterPS","FIN_P1505N","HP4_2100","HP4_ACR","HP4_Creative",
"HP4_Engineer","HP4_Exec","HP4_Field","HP4_FINANCE","HP4_Online","HP4_OPS",
"HP4_Ops2","HP4_Prog1","HP4_Prog2","HP4_Prog3","HP4_Radio","HP4_TapeOps",
"HP4_VTL","HP5 Graphics","HP5_Aquarius","HP5_HR","HP5_Ops","HP5WJColor",
"HP_LJ1505","Phaser 8400N PS","RADIO_LJ1022n"

$defaultprn = GetDefaultPrinter()
? "$defaultprn"
For Each $Ptr in $aDCPtrs
    ? "$OldSrv""$Ptr"
   if "$defaultprn"="$OldSrv""$Ptr"
    ? "$OldSrv""$Ptr"
    ? "$NewSrv""$Ptr"
     if SetDefaultPrinter("$NewSrv""$Ptr")=0
       ? "$NewSrv""$Ptr"
     endif
   endif
;$defaultprn = GetDefaultPrinter()
;? "$defaultprn"

GoTo END

Function GetDefaultPrinter()
	$GetDefaultPrinter = Join(Split(ReadValue("HKEY_USERS\" + @sid + "\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device"), ',', 1), '')
EndFunction

:END

Edited by Allen (2009-10-23 07:28 PM)
Edit Reason: added code tags