计算机-默认 权限设置并未从地址 LocalHost(使用 LRPC) 使用 CLSID

忘记了自己之前是怎么对计算机蹂躏的。重启后右下角的网络连接的小图标上多了一个小红叉，但不影响上网，就是看起来不爽，而且提示了服务Network List Service没有启动。
恩 打开服务 选中Network List Service，启动。 =。= 出现错误 启动后又自动停止了。
这时看了下日志文件 （计算机-默认 权限设置并未从地址 LocalHost(使用 LRPC) 使用 CLSID
{A47979D2-C419-11D9-A5B4-001185AD2B89} 向用户 NT AUTHORITY\LOCAL SERVICE SID (S-1-5-19) 授予对 COM 服务器应用程序的 本地 激活 权限。此安全权限可以使用组件服务管理工具进行修改。）。
看到这，于是找到组件服务管理器,展开DCOM服务,但是找死找不到(CLSID 为 {A47979D2-C419-11D9-A5B4-001185AD2B89} )的项。
后面这步比较关键了 去注册表中找{A47979D2-C419-11D9-A5B4-001185AD2B89} 找到了它的AppID值{C96887DA-A652-4426-905E-4A37546F847C}。
这时再展开DCOM服务,有{C96887DA-A652-4426-905E-4A37546F847C}这项了 ，就是netprofm（查看方式要选详细信息）。
鼠标右建选netprofm的属性。-》“启动和激活权限” -》 自定义编辑，在启动权限里加入LOCAL SERVICE用户，允许本地启动和本地激活，确定。
ok Network List Service服务又可以启动了，看那网络连接图标又闪动起来了。

使用vb 引用TLBINF32DLL类库，这个文件在系统目录中 Private Sub Command1_Click() Dim TLIApp As Object Dim TLBInfo As Object Dim TypeInf As Object Set TLIApp = CreateObject( "TLITLIApplication ") Dim ProgID As String Dim CLSID As String ' 在这里给出dll文件名，注意它不支持长文件名 Set TLBInfo = TLIAppTypeLibInfoFromFile( "l:\DbgWProcdll ") For Each TypeInf In TLBInfoCoClasses ProgID = TypeInfName CLSID = TypeInfGuid DebugPrint ProgID DebugPrint CLSID Next End Sub

配置DCOM
具体配置方法如下:
1:在服务器上安装office的Excel软件
2:在"开始"->"运行"中输入dcomcnfgexe启动"组件服务"
3:依次双击"组件服务"->"计算机"->"我的电脑"->"DCOM配置"
4:在"DCOM配置"中找到"Microsoft Excel 应用程序",在它上面点击右键,然后点击"属性",d出"Microsoft Excel 应用程序属性"对话框
5:点击"标识"标签,选择"交互式用户"
6:点击"安全"标签,在"启动和激活权限"上点击"自定义",然后点击对应的"编辑"按钮,在d出的"安全性"对话框中填加一个"NETWORK SERVICE"用户(注意要选择本计算机名),并给它赋予"本地启动"和"本地激活"权限
7:依然是"安全"标签,在"访问权限"上点击"自定义",然后点击"编辑",在d出的"安全性"对话框中也填加一个"NETWORK SERVICE"用户,然后赋予"本地访问"权限
在window 2003 server中，如果还出现8000401a错误，在标示里面选择“下列用户”，填写登录计算机的并拥有对Excel本地 *** 作权限的用户。或者在标示里面选择“启用用户” 或者添加一个every one 用户

检索 COM 类工厂中 CLSID 为 {00024500-0000-0000-C000-000000000046} 的组件时失败，原因是出现以下错误: 80070005 解决办法: 配置 DCOM 中 EXCEL 应用

---