配置发布数据库服务器时碰到错误18483

在完成时，提示错误18483：未能连接到服务器“DB1”，因为“distributor_admin”未在该服务器上定义为远程登录。  
请问这里应该怎么配置？应该在哪里配置这个用户？

--出现这种问题,应该是你曾经更改过计算机名  
 
--执行下面的语句进行修复,完成后重新启动SQL服务,然后重做配置  
if  serverproperty('servername')  <>  @@servername  
begin  
           declare  @server  sysname  
           set  @server  =  @@servername  
           exec  sp_dropserver  @server  =  @server  
           set  @server  =  cast(serverproperty('servername')  as  sysname)              
           exec  sp_addserver  @server  =  @server  ,  @local  =  'LOCAL'  
end