请问怎样调用DCOM,

解决方案 »

  1.   

    没弄过,和com有差别吗?
    而且你没有说是什么调用,在VB中,VC中,还是在script中呢这是我找的,不过没细看,你看下
    http://topic.csdn.net/t/20010822/11/250548.html在ASP中调用DCOM组件的应用技巧     
      商网络技术(上海)有限公司   蒋心武   
        
        由Microsoft   公司推出的DCOM组件,全称是Distributed   Component   Object   Model,可以在中间层进行事务逻辑服务,处理各种复杂的商务逻辑计算和演算规则。其与ASP配合,由ASP页面与DCOM组件建立连接,再通过对DCOM组件的调用,可以轻松实现某些复杂的功能。DCOM组件可利用VB、VC、DELPHI、PB和JAVA等多种语言工具来实现,所以其处理事务逻辑的能力十分强大。如果再利用MTS进行组件管理,则更加提高了性能。下面我用例子来具体说明。       
        
      1、编写DCOM组件:     
        
        假设我们想通过ASP页面来远程启动DNS服务,并且DNS服务器与Web服务器不为同一台机器。我们可以编写一个ActiveX   DLL   来实现这个功能。     
        
      首先我们建立一个批处理文件StartDNS.bat,文件中写入:Net   Start   DNS。将文件保存在DNS服务器的一个目录下,例如C:\ManDNS\:       
        
      其次我们编写   Dll   程序如下(VB编写):       
        
      Public   Function   StartDNS()   As   Boolean     
      On   Error   GoTo   ErrHandle     
      Dim   strReturn   strReturn   =   Shell("C:\ManDNS\StartDNS.bat")     
      StartDNS   =   True       
      Exit   Function   ErrHandle:   StartDNS   =   False     
      End   Function       
        
      DLL   名称为   ManDNS   类名为   DNSClass   我们将此DLL保存在C:\ManDNS\下。     
        
      2、注册DCOM组件:       
        
      编写好DLL程序后,我们要将其注册到服务器上。       
        
        首先在DNS服务器上打开Microsoft   Transaction   Server,   点击Computers,再点击My   Computer,选中Packages   Installed   ,单击鼠标右键,选中New   再单击Package。会弹出Package   Wizard。选中空包,取名为ManDNS,确定完成。点开此包,选中Component,单击鼠标右键,选中New   --->Component。点击Import   Component   That   Are   Already,在列表框中选中ManDNS.Dll。       
        
        然后在Web服务器上打开Microsoft   Transaction   Server,   点击Computers,点中Remote   Computer,选中DNS服务器上的ManDNS   Component,单击OK,将其加入Web服务器。       
        
      3、调用DCOM组件:       
        
      编写StartDNS.asp,并在其中调用注册好的DCOM组件,程序如下:       
        
      %@   LANGUAGE="VBSCRIPT"%       
        
      单击按钮启动DNS服务     
        
      %>     
      if   Request.form(“click”)   <>   “”   then     
      dim   StartDNS   ,RenStart       
      set   StartDNS   =   Server.CreateObject(“StartDNS.DNSClass”)       
      RenStart   =   StartDNS.   StartDNS       
      If   RenStart   then     
      Response.Write   “DNS服务启动成功。?   
      Else     
      Response.Write   “DNS服务启动失败。”       
      End   if       
      end   if     
      %>     
        
        对于程序员来说,可以利用自己熟悉的编程工具来编写ActiveX   Dll,用MTS进行管理,并用ASP程序将各种组件合理的搭建成系统,可以在Internet上实现几乎无所不能的功能