function STOPSPOOLER()
	DIM $remotepc,$objservice

	$remotepc=@wksta
	MESSAGEBOX($remotepc,"test")


	$objservice=Getobject("WinNT://" + $remotepc + "/Spooler,Service")
            if @error
              exit -4
            endif

            $objservice.stop
            do
              sleep 0.2
	      ?$objservice.status
            until $objservice.status=1   ;stopped
	    ?$objservice.status
	    
            ;$objservice.start



endfunction