BoForce; damned few things I like better than a fix on a Friday afternoon.
Good catch on the missing 'Next' statement and your suggestions on the variable naming got me sorted out.
I left the variables unchanged;
$NewSrv=\\vhost\
$OldSrv=\\pserver1\

but enclosed both server and printer variable names within double quotes rather than individually in the code body and KIX was satisfied.
thanks for the help and TGIF.
DemoDog

 Code:
 if "$defaultprn"="$OldSrv$Ptr" 
      addprinterconnection("$NewSrv$Ptr")
;    ? "$OldSrv$Ptr" 
;    ? $NewSrv'\'$Ptr 
     if SetDefaultPrinter("$NewSrv$Ptr")=0 
;        ? "$NewSrv$Ptr"


Edited by Mart (2009-11-08 08:57 PM)
Edit Reason: Please use code tags when posting code.
_________________________
If Stupidity got us into this mess, then why can't it get us out?
Will Rogers