Hello;
Unable to set the default printer on $NewSrv. Do I have to escape the
backslash in the printer UNC path when testing for the default
printer or something else?
thanks
S
****

 Code:
$NewSrv=\\vhost\ 
$OldSrv=\\pserver1\ 
;? $NewSrv 
;? $OldSrv 
$aDCPtrs = 
"6thFloorCanon","6thFloorFieldCrew1","EngineeringPlotter_HPGL2", 
"EngineeringPlotterPS" 

$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 


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-11-06 08:02 PM)
Edit Reason: added code tags
_________________________
If Stupidity got us into this mess, then why can't it get us out?
Will Rogers