关于sql更改计算机名和服务器名一致或"错误 18483

今天在配置数据库发布和分发时总是报出现 18483 错误
提示说：错误 18483:未能连接到服务器 "XXX"，因为 'distributor_admin'未在该服务器上定义为远程登陆。
我的发布和分发是同一个服务器，"XXX" 为我的机器名，分发数据库是默认的名称，而我在另外一台机器上做时就正常。
1、设置共享复制目录:
      \\computer_machine\C$...\..如果服务器取消过默认的共享（$)则会失败；此时新建一个目录，并赋予权限，目录改为：\\computer_machine\共享目录名
2、建立用于发布应用的windows账号
3、在配置分发服务器时遭遇了 错误18483 提示因为distributor_admin未在该服务器上定义为远程登陆,故无法创建
解决方法：(运行以下程序）
USE master
GO
--设置两个变量
DECLARE @serverproperty_servername  varchar(100),
 @servername    varchar(100)
--取得Windows NT 服务器和与指定的 SQL Server 实例关联的实例信息
--具体可以看联机丛书"SERVERPROPERTY"
SELECT @serverproperty_servername = CONVERT(varchar(100), SERVERPROPERTY('ServerName'))
--返回运行 Microsoft® SQL Server™ 的本地服务器名称
--具体可以看联机丛书@@SERVERNAME
SELECT @servername = CONVERT(varchar(100), @@SERVERNAME)
--如果@serverproperty_servername和@servername不同(因为你改过计算机名字),再运行下面的
--删除错误的服务器名
EXEC sp_dropserver @server=@servername
--添加正确的服务器名
EXEC sp_addserver @server=@serverproperty_servername, @local='local'
2:邹健答复的:
--出现这种问题,应该是你曾经更改过计算机名
--执行下面的语句,完成后重新启动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
但是我执行完上面的SQL,重启服务以后,还是报同样的错误.最后尝试着把注册名手动更改的和计算机名一致,结果就OK了.